Benar apa yang dibilang ma Mareta Mujiburrachman syntaqnya
set datagrid1.datasource=rs
dan yang dieksekusi adalah sSql nya jadi set rs=cnn.execute(sSql)
moga membantu...
"<-Mareta Mujiburrachman->" <[EMAIL PROTECTED]> wrote:
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
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
