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

Sumber : Mesran.net