Coba seperti ini Mas. Semoga saya tidak salah.
If Not IsNull(txt_passport.Text) Then
Set adoRs = New ADODB.Recordset
adoRs.open "select str_country_name, str_no_passport,
str_nama_panggilan, str_nama_keluarga,str_tgl_lahir from vdetail where
str_no_passport = '" & txt_passport.Text & "' order by
str_no_passport",ADOCn,adOpenKeyset,adLockOptimistic
End If
2008/5/12 Ramadhan <[EMAIL PROTECTED]>:
> Numpang tanya nih.... saya pingin ambil data dari mysql namun secara
> native tidak odbc, untuk memasukkan recordset nya tidak mau, keluar
> error seperti ini :"The connection be used to perform this operation. It
> is either closed or invalid in this contect". Mohan pencerahaannya kira
> ...... apa penyebabnya ...
>
> Script-nya......
>
> Option Explicit
> Dim strADOCn As String
> Dim SQL As String
> Dim strSQL As String
> Dim cbSQL As String
> Dim ADOCn As Connection
> Dim adoRs As Recordset
> Dim cbRs As Recordset
>
> strADOCn =
> "Driver=MySQLprov;Server=192.168.7.4;Port=3306;Database=dbxxxx;User=xxxx;
> Password=xxxx;Option=3;"
> Set ADOCn = New ADODB.Connection
> ADOCn.Open strADOCn
>
> If Not IsNull(txt_passport.Text) Then
> SQL = "select str_country_name, str_no_passport,
> str_nama_panggilan, str_nama_keluarga,"_
> & "str_tgl_lahir from vdetail order by str_no_passport"
> Set adoRs = New ADODB.Recordset
> With adoRs
> .CursorLocation = adUseServer
> .CursorType = adOpenKeyset
> .LockType = adLockOptimistic
> .*Open SQL, ADOCn, , , adCmdText --------- hasil debug....
> berhenti disini*
> .Find "str_no_passport = '" & txt_passport.Text & "'"
> End With
> End If
>
>
> Keinginan saya menampilkan data sesuai no_passport. Terima kasih
> sebelumnya.
>
>
> ------------------------------------
>
> Wahana Programmer Groups Links
>
>
>
>
>
