Programer Go Blogs !!

Created By Rahmad Hidayat

Tambahkan komponen :

Componen	Properties	Value
Form1	Caption	Mengisi Field Database
Combobox1	Text	(Kosong)
Datagrid1	-	-

Keterangan :

Jika pada Toolbox belum terdapat componen datagrid maka anda bisa mencarinya dengan mengklik kanan pada area kosong toolbox dan pilih components…

Pada dialog component, pilih Microsoft Datagrid Control 6.0 (OLEDB), Ok

Contoh Tampilan Program :

Penjelasan Coding Program :

‘ Pastikan anda telah menyediakan sebuah database yang nantinya akan dikoneksikan

‘ dengan visual basic.

'deklarasi variabel cn dan rs

Dim cn As New ADODB.connection

Dim rs As New ADODB.Recordset

Private Sub Form_Load()

‘Membuka database “data.mdb”

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"

‘Memanggil variabel isicombo

Call isicombo

End Sub

Sub isicombo()

Set rs = New ADODB.Recordset

rs.Open "select * from tblsiswa", cn, adopenkeyset

'jika field didatabase tidak kosong, lakukan perulangan (Do...Loop)

‘Serta isikan field nim kedalam combo1

If rs.recordcount <> 0 Then

Do While rs.EOF = False

Combo1.AddItem rs!nim

rs.MoveNext

Loop

'jika field didatabase kosong, keluar dari sub

Else

Exit Sub

End If

End Sub

Private Sub Combo1_Click()

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from tblsiswa where nim='" & Combo1 & "'", cn, adopenkeyset

'jika field didatabase tidak kosong, tampilkan field yang terpilih ke Datagrid

If rs.recordcount <> 0 Then

Set DataGrid1.DataSource = rs

'jika field didatabase kosong, keluar dari sub

Else

Exit Sub

End If

End Sub

Jika saat dijalankan terjadi kesalahan seperti ini :

Maka anda hanya perlu menambahkan komponen

Microsoft ADO Data Control 6.0 (OLEDB) kedalam Form yang telah anda buat.

Maka saat dijalankan hasilnya aka

n seperti ini :