Kamis, 19 April 2018

Mengisi DataGridView dengan Database Access


DataGridView dipergunakan untuk menampilkan data tabel database dengan model baris dan kolom. Langkah-langkah yang diperlukan untuk mengisi DataGridView dengan database Access adalah sebagai berikut:

Definisikan Database
Definisi database adalah memberitahu letak database access dan mempersiapkan obyek yang akan menghubungi database tersebut dari form.

'--- 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

Buka Database
Kode berikut biasanya dilletakkan di Form Load. Fungsinya agar form menghubungi database sesuai dengan definisi yang diberitahukan sebelumnya.

 'Open database
con.Open()
cmd.Connection = con

Letakkan Data di DataGridView
Saya biasanya meletakkan bagian ini pada fungsi khusus, sebagai contoh AmbilData() dengan kode program sebagai berikut dan fungsi tersebut dipanggil saat di FomLoad

Sub AmbilData()
        Dim nilai As OleDbDataReader
        Dim dtAnggota = New DataTable()

        cmd.CommandText = String.Empty
        cmd.CommandText = _
        " select KodeAnggota, NamaAnggota " + _
        " from Anggota "

        nilai = cmd.ExecuteReader()
        nilai.Read()
        dtAnggota.Load(nilai)

        With DataGridView1
            .AutoGenerateColumns = True
            .DataSource = dtAnggota
            .Refresh()
        End With

        nilai.Close()
    End Sub

Program selengkapnya:

Mengisi DataGridView dengan Database Access Rating: 4.5 Diposkan Oleh: Good Dreamer

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.