Program ADO Untuk Tambah dan Edit Record Database

Minggu, 17 Februari 2013 | 18:03 WIB | Dibaca : 3895 kali | Kategori : Prog Visual Basic
Program ADO Untuk Tambah dan Edit Record Database

Setelah anda mempelajari teknik pencarian data, berikut akan di berikan Program ADO Untuk Tambah dan Edit Record Database.

Terlebih dahulu anda harus membuat satu database menggunakan microsoft acess :
Nama Database : SmartSolution.mdb
Nama Tabel : Buku
Field
1. Kode  jenisnya Text
2. Judul jenisnya Text
3. Pengarang jenisnya Text
4. Penerbit jenisnya Text
dan isikan min 1 data

Designlah form  Program ADO Untuk Tambah dan Edit Record Database



Listing program Program ADO Untuk Tambah dan Edit Record Database

Dim db As New ADODB.Connection  'variabel untuk database
Dim rs As New ADODB.Recordset  'variabel untuk tabel
Dim sql As String

'Untuk mengosongkan data di textbox
Private Sub btnBatal_Click()
    Kode = ""
    Judul = ""
    Pengarang = ""
    Penerbit = ""
    btnSimpan.Enabled = False
End Sub

'sub untuk mengedit data
Private Sub btnEdit_Click()
    'membuat dahulu perintah SQL
    sql = "UPDATE Buku SET Judul='" & Judul.Text & "'," & _
                        " Pengarang='" & Pengarang.Text & "'," & _
                        " Penerbit='" & Penerbit.Text & "' " & _
                        " Where Kode='" & Kode.Text & "'"

    ' bagian menjalankan perintah SQL sehingga record tersimpan pada database
    db.BeginTrans
    db.Execute sql, adCmdText
    db.CommitTrans

    ' menampilkan pesan
    MsgBox "Data record baru sudah di Edit !"

    ' untuk mengosongkan tampilan
    Call btnBatal_Click

    ' untuk memfocuskan kode
    Kode.SetFocus
End Sub

' Sub untuk menyimpan data
Private Sub btnSimpan_Click()
    ' membuat dahulu perintah SQL
    sql = "INSERT INTO Buku (Kode, Judul, Pengarang, Penerbit)" & _
          " VALUES('" & Kode.Text & "','" & _
                        Judul.Text & "','" & _
                        Pengarang.Text & "','" & _
                        Penerbit.Text & "')"

    ' bagian menjalankan perintah SQL sehingga data tersimpan pada database
    db.BeginTrans
    db.Execute sql, adCmdText
    db.CommitTrans

    ' menampilkan pesan
    MsgBox "Data record baru sudah tersimpan !"

    ' mengosongkan isian
    Call btnBatal_Click
    ' memfocuskan kode
    Kode.SetFocus
End Sub

Private Sub Form_Load()
    'digunakan untuk membuka database
    If db.State = adStateOpen Then db.Close
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SmartSolution.mdb;Persist Security Info=False"
   
    Call btnBatal_Click
End Sub


Private Sub Kode_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        If Kode.Text = "" Then
            Kode.SetFocus
        Else

            'menyiapkan perintah SQL di SELEC tambahkan huruf T nya
            sql = "SELEC * FROM Buku Where Kode='" & Kode.Text & "'"

            'jika record terbuka harus di tutup
            If rs.State = adStateOpen Then rs.Close

            'perintah untuk membuka record
            rs.Open sql, db, adOpenDynamic, adLockOptimistic
            If rs.RecordCount <> 0 Then
                Judul = rs!Judul
                Pengarang = rs!Pengarang
                Penerbit = rs!Penerbit
                MsgBox "Data di temukan !"

                btnSimpan.Enabled = False
                btnEdit.Enabled = True
            Else
                MsgBox "Data tidak temukan !"
                Judul = ""
                Pengarang = ""
                Penerbit = ""

                btnSimpan.Enabled = True
                btnEdit.Enabled = False
            End If
           
            rs.Close  'menutup recordset
            Judul.SetFocus
        End If
    End If
End Sub



Demikianlah artikel Program ADO Untuk Tambah dan Edit Record Database ini, semoga dapat membantu anda memahami pemrograman ADO pada Visual Basic 6.0 .

Ayooo, kita belajar bahasa pemrograman. Asik lho !

Tag : Program ADO Untuk Tambah dan Edit Record Database, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic, tempat download program


Bila berita ini bermanfaat silahkan share Program ADO Untuk Tambah dan Edit Record Database ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program ADO Untuk Tambah dan Edit Record Database

Anda berada di halaman Program ADO Untuk Tambah dan Edit Record Database, dan telah membaca artikel Program ADO Untuk Tambah dan Edit Record Database. Artikel Program ADO Untuk Tambah dan Edit Record Database bisa anda peroleh pada halaman http://www.mesran.web.id/berita-558-program-ado-untuk-tambah-dan-edit-record-database.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program ADO Untuk Tambah dan Edit Record Database sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id