Teknik ADO Untuk Pencarian Record Pada Database

Artikel sebelumnya membahas Teknik DAO Untuk Searching Data Pada Database . Pada artikel ini akan dibahas mengenai Teknik ADO Untuk Pencarian Record Pada Database yang membantu dalam pencarian data tersebut.

Berikut Design program Teknik ADO Untuk Pencarian Record Pada Database

Saat mengetikkan perintah anda harus menambah komponen dahulu dengan perintah :

1. Ctrl+T
2. Click Microsoft ADO DB Control 6.0
3. Click OK

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

Berikut listing program Teknik ADO Untuk Pencarian Record Pada Database

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

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"
  
    Kode = ""
    Judul = ""
    Pengarang = ""
    Penerbit = ""
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   PADA PERINTAH SELEC tersebut tambahkan T di akhir
            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 !"
            Else
                MsgBox "Data tidak temukan !"
                Judul = ""
                Pengarang = ""
                Penerbit = ""
            End If
            rs.Close  'menutup recordset
            Judul.SetFocus
        End If
    End If
End Sub

Sumber : Mesran.net