Sama saja Mas, setelah saya menambahkan Microsoft ActiveX Data Objects Recordset 2.8 Library, dan memakai code dari Mas Eris Riso, ngga ada perubahan. Tetap saja muncul Run-time error '7004': The rowset is not bookmarkable. ----- Original Message ----- From: ERIS RISO To: [email protected] Sent: Tuesday, December 26, 2006 10:58 AM Subject: RE: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan Object Recordset dan Komponen DataGrid.
Trus kalo misalnya di modif sedikit seperti ini bagaimana: Private Sub Form_Load() Dim rs As ADODB.Recordset cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbRental.mdb" Dim sSql As String sSql = "select * from TBpINJAM" Set rs = New ADODB.Recordset Set rs = cnn.Execute(sSql) Set DataGrid1.DataSource = rs End Sub saya rasa penggunaan : If rs.RecordCount < 0 Then Set DataGrid1.DataSource = rs!KODE End If Tidak perlu, toh Mas juga tidak melakukan validasi apapun selain menampilkan data jadi kita sederhanakan aja ya. Jangan lupa pada project menambahkan Microsoft ActiveX Recordset ------------------------------------------------------------------------------ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Frangky Sent: 26 Desember 2006 9:29 To: [email protected] Subject: Re: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan Object Recordset dan Komponen DataGrid. Kalau Set DataGrid1.DataSource = rs muncul Run-time error '7004': The rowset is not bookmarkable. ----- Original Message ----- From: ERIS RISO To: [email protected] Sent: Tuesday, December 26, 2006 10:26 AM Subject: RE: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan Object Recordset dan Komponen DataGrid. Gimana kalo gini aja: Set DataGrid1.DataSource = rs ---------------------------------------------------------------------------- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Frangky Sent: 26 Desember 2006 7:47 To: [email protected] Subject: Re: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan Object Recordset dan Komponen DataGrid. Teman-teman saya menggunakan code dibawah ini, tapi setiap kali program dijalankan muncul Run-time error '13' Type mismatch Yang disorot warna kuning Set DataGrid1.DataSource = rs!KODE Private Sub Form_Load() cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbRental.mdb" Dim sSql As String sSql = "select * from TBpINJAM" Set rs = cnn.Execute(sSql) If rs.RecordCount < 0 Then Set DataGrid1.DataSource = rs!KODE End If End Sub ----- Original Message ----- From: "<-Mareta Mujiburrachman->" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Saturday, December 23, 2006 1:32 PM Subject: Re: [Programmer-VB] Hasil query ditampilkan dalam Datagrid menggunakan Object Recordset dan Komponen DataGrid. > 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 > > > Wahana Programmer Groups Links > > Yahoo! Groups Links > > >
