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
>
>
>
