Pencarian Record Data Database Access Menggunakan Visual Basic Net 2008

Bagaimana melakukan pencarian data pada tabel data yang sudah tersimpan pada basis data?

Good question !

Postingan ini akan membahas pencarian record data database access menggunakan visual basic net 2008

Variabel yang perlu di tambahkan yaitu :

Public RS as OleDbDataReader

letakkan di bawah class form1 diatas.


Design program masih sama dengan program sebelumnya, karna bagian ini hanya memberikan program tentang pencarian data.

Double click pada textbox Kode, dan rubah event menjadi keypress, lalu ketikkan program berikut ini :


    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then

            ' Tambahkan huruf T pada perintah SELEC
            SQL = "SELEC * FROM BUKU Where Kode='" & Kode.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            RS = CMD.ExecuteReader
            RS.Read()

            If RS.HasRows = True Then
                Judul.Text = RS.Item(1)
                Pengarang.Text = RS.Item(2)
                Penerbit.Text = RS.Item(3)
                MsgBox("Data ditemukan !")

            Else
                MsgBox("Data Tidak ditemukan !")
            End If
        End If

    End Sub

Sumber : Mesran.net