Jalan tuh...
cuma driver yang saya pake MySQL ODBC 3.51 Driver, kemudian sintak sql saya
sesuaikan dengan data saya,
model Connection dan Recordset nya sama.
error :"The connection be used to perform this operation. It
is either closed or invalid in this contect", akan terjadi jika recordset
mengeksekusi perintah sql tetapi koneksi belum dibuka atau connection statenya
masih close.
Saya yakin state dari objek connection ADOCn masih adStateClose / 0.
Tapi dari titik debug yang anda tunjukan koneksi harusnya sudah terbuka oleh
sintak ADOCn.Open strADOCn, karena titik debug berada setelah baris tersebut.
Coba anda pastikan dulu apakah state connection sudah dibuka atau masih close.
ini Connection String yang saya pakai :
strCon = "driver={mysql odbc 3.51 driver}; " & _
"server = localhost;" & _
"database = test; " & _
"uid=xxx;" & _
"port=3306;" & _
"password=xxx;" & _
"option =3"
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.
[Non-text portions of this message have been removed]
