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
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
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
0 komentar:
Posting Komentar