Suwanto Afiadi wrote:
> Dear Folks,
> Langsung aja ya, saya menggunakan Datagrid dengan koneksi
> ADODB.connection dengan database access.
> Error coding saya terjadi pada event Datagrid click., dibawah ini
> adalah codingnya :
> Private Sub DGDD_Click()
> MDrs.MoveFirst
> MDrs.Find "DokumenID = '" & DGrs.Fields("DokumenID") & "'"
> If MDrs.EOF Then
> MDrs.MoveFirst
> Exit Sub
> Else
> With MDrs
> If Not (.EOF) Or Not (.BOF) Then
> txtID = .Fields("DokumenID")
> txtNamaDok = .Fields("Nama_Dokumen")
> txtPengirim = .Fields("Pengirim")
> txtTujuan = .Fields("Tujuan")
> txtTglMasuk = .Fields("Tanggal_Masuk")
> txtPerihal = .Fields("Perihal")
> txtLetak = .Fields("Letak_Berkas")
> End If
> End With
> End If
> Dim temprs As New ADODB.Recordset
> temprs.Open "Select * from Kategori Where KategoriID = '" &
> DGrs.Fields("KategoriID") & "'", koneksi, adOpenKeyset, adLockOptimistic
> DDrs.MoveFirst
> DDrs.Find "Kategori = '" & temprs.Fields("Kategori") & "'"
> If DDrs.EOF Then
> DDrs.MoveFirst
> Exit Sub
> Else
> With DDrs
> txtKategori = .Fields("Kategori")
> End With
> End If
> temprs.Close
> Set temprs = Nothing
> End Sub
> ==> Ketika DGDD (datagrid) saya click muncul error sebagai berikut
> run-time error'-2147217913(8004e07)
> Data Type mismatch in Criteria expression
> ==>Debug : terjadi pada baris sebagai berikut :
> temprs.Open "Select * from Kategori Where KategoriID = '" &
> DGrs.Fields("KategoriID") & "'", koneksi, adOpenKeyset, adLockOptimistic
> ==>Dgrs adalah recordset untuk DetailDokumen . KategoriID pada tabel
> Kategori tipe datanya Autonumber (PK), dan KategoriID pada tabel
> DetailDokumen tipe datanya Number (PK)
> ==>kenapa kesalahan tersebut bisa terjadi apakah ada yang salah dengan
> query saya, mohon penjelasan dari teman2 ?
> Menurut saya querynya sudah benar tetapi kenapa tetap saja muncul
> pesan kesalahan diatas ketika saya click datagrid.
> Sekian pertanyaan saya atas waktu dan jawabannya saya ucapkan terima
> kasih
>
>
> Best regards,
>
> suwanto
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
