--- In [email protected], Suwanto Afiadi
<[EMAIL PROTECTED]> wrote:
> 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
??????
COBA DEH LOE;
1.CARA PERTAMA: BUAT 2 PK, PERTAMA ID DATTYPE> AUTO NUMBER, KEDUA
KATEGORIID > DTATYPE TEXT
2.CARA KEDUA: LOE RUBAH DATATYPE PK JADI TEXT.
> SELAMAT MENCOBA SALAM HANDY_CREATIVE....
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/
