Teknik DAO Untuk Searching Data Pada Database

Bagi anda yang tergolong baru dalam pemrograman mungkin tidak paham mengenai teknik teknik pemrograman menggunakan database access bukan? Berikut di bahas sedikit mengenai teknik untuk mengkoneksikan data menggunakan microsoft access.

Pada Visual basic dikenal 3 teknik dalam mengkoneksikan data, yaitu :

1. Data ActiveX Object
2. ActiveX Data Object
3. RDO (Remote Data objek)

Pada artikel teknik DAO untuk searching data pada database akan dibahas menggukan DAO

Komponen DAO ini merupakan kontrol standar yang dimiliki Project VB, saat memilih project baru.

Nama komponen ini yaitu DATA.

Saat menggunakan komponen ini setting properti yang digunakan yaitu :

DatabaseName : C:DAOBuku.mdb
RecordsetType : Table
RecordSource : Buku

Nah pada saat kita klik DatabaseName tersebut kita akan database Access 95 berada.

Baru kemudian atur properti RecordsetType dan RecordSource tersebut.

Berikut Design form teknik DAO untuk searching data pada database

 

Berikut listing program

Private Sub Form_Load()
    Kode = ""
    Judul = ""
    Pengaran  = ""
    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
            With Data1.Recordset
                .Index = "Kd"
                .Seek "=", Kode.Text
                If .NoMatch Then
                    MsgBox "Data tidak temukan !"
                    Judul = ""
                    Pengarang = ""
                    Penerbit = ""
                Else
                    Judul = !Judul
                    Pengarang = !Pengarang
                    Penerbit = !Penerbit
                    MsgBox "Data di temukan !"
                End If
                Judul.SetFocus
            End With
        End If
    End If
End Sub

 Sumber : Mesran.net