ارجوا حل مشكلتي تظهر لي رساله
run-time error 91:
object variable or with block variable not set
في الكود التالي
rs.open sql, cnn, 1, 2
وقمت بنعريف المتغيرات في module
global rs as recordset
global cnn as adodb.connection
مشكلة عند الاتصال بقاعدة البيانات باستخدام ADO
اقتباسglobal rs as recordsetglobal cnn as adodb.connection
جرب تبديلها بـ:
Global rs As New ADODB.RecordSet Global cnn As New ADODB.Connection
لاحظ إضافة New
هذه الجملة خاطئة :wacko:
in module
Public Cn As New ADODB.Connection, Rc1 As New ADODB.Recordset
in Form
Dim SQL As String, i As Long SQL = "Select * From CustomerData Where ID = " & Text1 If Rc1.State = adStateOpen Then Rc1.Close Rc1.Open SQL, Cn, adOpenKeyset, adLockOptimistic For i = 0 To Rc1.RecordCount - 1 Print Rc1(0) Rc1.MoveNext Next i
ليس كل ما يتمناه المرء يدركه
