Akhirnya selesai juga masalah program saya. Setelah menelusuri ulang arsip
email dari Mas Purwedi Kurniawan dengan Judul Nanya Recordset dan DataGrid1.
Ternyata disitu ada jawaban dari kebingungan saya dalam menampilkan isi tabel
kedalam Datagrid.
----- Original Message -----
From: Eko Wibowo Yudhi Setyo Nugroho
To: [email protected]
Sent: Tuesday, December 26, 2006 6:00 PM
Subject: Re: [Programmer-VB] Hasil query ditampilkan dalam Datagrid
menggunakan Object Recordset dan Komponen DataGrid.
kok yang di eksekusi cnn, bukan aSQL nya?, teman yang lain ada yang mau
ngasih pendapat
----- Original Message -----
From: Frangky
To: [email protected]
Sent: Saturday, December 23, 2006 5:14 AM
Subject: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan
Object Recordset dan Komponen DataGrid.
Teman-teman, maaf kalau pertanyaan ini pernah ditanyakan sebelumnya.
Selama ini Saya menggunakan Komponen Data1 dan DBGrid untuk menampilkan isi
dari sebuah tabel ke dalam DBGrid.
Dengan menggunakan code seperti dibawah ini, hasilnya seperti yang saya
inginkan.
Private Sub Form_Load()
With Data1
.RecordSource = "SELECT * from table1"
.Refresh
If .Recordset.Recordcount >0 Then
DBGrid1 = .Recordset!Kode
End If
End Sub
Pertanyaannya bagaimana kalau saya menggunakan Object Recordset dan
Komponen DataGrid.
Saya menggunakan code seperti dibawah ini tapi tidak berhasil.
Private Sub Form_Load()
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path &
"\dbRental.mdb"
cnn.CursorLocation = adUseClient
Dim sSql As String
sSql = "select * from tbPinjam"
Set rs = cnn.Execute(xpilih)
If rs.RecordCount < 0 Then
DataGrid1 = rs!KODE
End If
End Sub
Mohon bantuannya.
