Mas Eko, itu hanya salah ketik kode. Sebenarnya yang dieksekusi sSql. Lagipula di awal penulisan kode saya menambahkan Option Explicit. Jadi seperti Mas Purwedi bilang kalau ada variabel yang tidak terdefinisi pasti akan akan ketahuan. Yang jadi masalah dari program saya ini, saya lagi bingung nih bagaimana pengkodean yang pas, sehingga Datagrid bisa menampilkan isi dari sebuah tabel database, tanpa memakai ADODC yang katanya ngga fleksible.
Setahu saya banyak pakar VB yang nongkrong di milis ini, masa ngga ada yang tahu sih masalah saya ini. Ngga tahu, atau malas untuk menjawab. karena pertanyaannya terlalu "ringan" dan umum. ----- 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.
