Menampilkan Data Database Access dengan Visual Basic 2008

Artikel ini adalah lanjutan dari artikel saya Koneksi ke Database Access dengan Visual Basic 2008. Di sini saya akan membuat program yang dapat menampilkan data dari database Access ke textbox.

Buatlah tampilan form seperti ini:

dua textbox diatas dinamakan txtKodeAnggota dan txtNamaAnggota. Tombol Cari akan di-klik untuk menampilkan nama yang dimaksud sesuai dengan kode anggota yang ditulis di txtKodeAnggota.

Saya menggunakan parameter @p1 yang digunakan untuk menerima kode anggota dari txtKodeAnggota.text, kemudian mencarinya dengan query di database pus.mdb

        Dim nilai As OleDbDataReader

        cmd.CommandText = _
        " select NamaAnggota " + _
        " from Anggota " + _
        " where KodeAnggota = @p1"

        cmd.Parameters.Clear()
        cmd.Parameters.Add("@p1", OleDbType.VarChar).Value =  _ 
        Trim(txtKodeAnggota.Text)

perlu diperhatikan. Anda harus selalu membersihkan parameter agar data yang lama tidak dibaca lagi oleh program dengan perintah ini:

       cmd.Parameters.Clear()

kemudian mendefinisikan ulang parameter. Karena disini saya menggunakan tipe data string untuk kodeanggota, maka saya menggunakan ini

       OleDbType.VarChar

Sehingga jika tipe data Anda adalah tanggal, ceritanya jadi lain.

Query dijalankan dengan perintah perintah

       cmd.ExecuteReader()

dan dimasukkan ke variabel nilai yang bertipe

       OleDbDataReader

kemudian hasil tersebut dibaca dengan perintah

        nilai.Read()

nilai.Read() akan membaca field pertama di query dan menampilkannya pada txtNamaAnggota.Text

        txtNamaAnggota.Text = nilai.GetValue(0)

jangan lupa untuk selalu menutup reader, agar pembacaan berikutnya selalu yang terbaru

        nilai.Close()

Program Selengkapnya:
Imports System.Data.OleDb Imports System.Data.SqlClient Public Class Form1 '--- Definisi letak database Dim strPath As String = FileSystem.CurDir Dim strNamaDatabase As String = "Pus.mdb" Dim strPathDatabase As String = strPath + "\" + strNamaDatabase '--- Definisi koneksi database Dim con As New OleDbConnection( _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _ strPathDatabase) Dim cmd As New OleDbCommand Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load con.Open() cmd.Connection = con End Sub Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Dim nilai As OleDbDataReader cmd.CommandText = _ " select NamaAnggota " + _ " from Anggota " + _ " where KodeAnggota = @p1" cmd.Parameters.Clear() cmd.Parameters.Add("@p1", OleDbType.VarChar).Value = Trim(txtKodeAnggota.Text) nilai = cmd.ExecuteReader() nilai.Read() txtNamaAnggota.Text = nilai.GetValue(0) nilai.Close() End Sub End Class

Menampilkan Data Database Access dengan Visual Basic 2008 2018-04-10T18:49:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer