kalo dr kodenya bang frangky sih ad ayg berbeda deh.. masa mau eksekusi "cnn.Execute(xpilih)" tp malah (sSql = "select * from tbPinjam") harusnya kan yang dieksekusi "sSql"-nya
trus coba kode "DataGrid1 = rs!KODE" depannya ditambahin "Set" jadi "Set DataGrid1.DataSource = rs!KODE" mungkin membantu --- Frangky <[EMAIL PROTECTED]> wrote: > 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. Regards, Mareta Mujiburrachman __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
