PENCARIAN DATA DENGANG MENGGUNAKAN EVENT LOSTFOCUS

Posting kali ini masih meelanjutkan dari postingan sebelumnya yaitu Koneksi database dengan metode modul,

Langsung saja klik dua kali pada txtkode, dan rubah event menjadi LOSTFOCUS

Lalu ketikan kode berikut ..

Private Sub TXTKODE_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTKODE.LostFocus

        CMD = New OleDbCommand("SELECT * FROM TB_BRG WHERE KD_BRG = '" & TXTKODE.Text & "'", CONN)

        RD = CMD.ExecuteReader

        RD.Read() ' RD READER

        If RD.HasRows = True Then

            TXTNAMA.Text = RD.Item(1)

            TXTH_BELI.Text = RD.Item(2)

            TXTH_JUAL.Text = RD.Item(3)

            TXTJUMLAH.Text = RD.Item(4)

        Else

            TXTKODE.Text = ""

            TXTKODE.Focus()

            MsgBox("DATA TIDAK DITEMUKAN...!", MsgBoxStyle.OkOnly, "PENTING")

        End If

    End Sub

Sebelum menjalankan pastikan database dudah terisi data,

Jalankan dan ketikan text yang sama pada kode, dan tekan tab pada keyboard maka field-field nya akan tampil pada textbox, namun jika text tidak ada dalam kode maka akan muncul pesan

“ Data tidak ditemukan.........”

Terimakasih, walaupun sedikit semoga dapat membantu teman-teman yang masih newbie kayak saya ini.....