12-09-19, 01:48 PM
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام
عندي برنامج احاول تغيير طريقة اتصال قاعدة البيانات فيه لاستخدم طريقة SQL
ولكن تظهر عندي رسالة Error 91
كما بالصورة
كود الاتصال:
هل يوجد خطأ بالاكواد ام هناك خطأ بطريقة الاتصال
وشكرا لكم
اخوتي الكرام
عندي برنامج احاول تغيير طريقة اتصال قاعدة البيانات فيه لاستخدم طريقة SQL
ولكن تظهر عندي رسالة Error 91
كما بالصورة
كود الاتصال:
كود :
'Option Explicit
Public CN As New ADODB.Connection
Public RS As ADODB.Recordset
Public RS2 As ADODB.Recordset
Public RS3 As ADODB.Recordset
Public RS4 As ADODB.Recordset
Public sql As String
Dim dbpath As String
Public Sub Connected()
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
With RS
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With
dbpath = App.path & "\base\Datacar.mdb"
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbpath & " ;Persist Security Info=False"
End Sub
هل يوجد خطأ بالاكواد ام هناك خطأ بطريقة الاتصال
وشكرا لكم