هذا كود الإتصال مع قاعدة البيانات
If db.State = adStateOpen Then db.Close ''''' db.Provider = "Microsoft.JET.OLEDB.4.0;" db.Open App.Path & "\Call_Center.mdb"
وهنا جملة sql
''''
If sql.State = adStateOpen Then sql.Close sql.Open "SELECT codes.loc, codes.code FROM codes", db, adOpenDynamic, adLockOptimistic
وهذا كود العرض في datagrid
Set DataGrid1.DataSource = sql
وهذه رسالة الخطأ أرجو التصحيح
the Rowset is not bookmarkable
عدل السطر
sql.Open "SELECT codes.loc, codes.code FROM codes", db, adOpenDynamic, adLockOptimistic
الي
sql.Open "SELECT codes.loc, codes.code FROM codes", db, adOpenstatic, adLockOptimistic
و أخبرني بالنتيجة
رسالة الخطأ ما عادة تظهر ولكن لا يتم عرض شئ في الجريد علما بأن جدول Codes به بيانات
ضع هذا المتغير
dim rs as recordset
ثم عدل السطر
db.Open App.Path & "\Call_Center.mdb"
الي
"set rs=db.Open App.Path & "\Call_Center.mdb
واخبرني بالنتيجة
syntax erorr
جرب ذلك
If db.State = adStateOpen Then db.Close
'''''
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Call_Center.mdb"
If sql.State = adStateOpen Then sql.Close
sql.cursorlocatoin=aduseclient
sql.Open "SELECT codes.loc, codes.code FROM codes", db, adopenstatic, adLockOptimistic
Set DataGrid1.DataSource = sql
هذا الموضوع مغلق.