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.
