handy_creative wrote:
>--- 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....
>>
>>
>
>
>
Makasih atas tanggapannya, tapi sudah bisa kok (dapat dari milis
sebelah), tinggal ngilangin tanda petik tunggal pada query diatas.
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/
