بسم الله الرحمن الرحيم
اخواني الكرام عندي مشكلة في هذا الكود:
1-أنا قمت بأنشاء form1 جديد
2- قمت بأنشاء Button (زر) Command 1
3-قمت باستخدام تقنية ADO لربط هذا الفورم مع قاعدة بيانات Categories
لكن المشكلة عندما قمت بتنفيذ البرنامج أعطاني Error Message
مع العلم أن الخطأ ظهر لي في الالسطر ذو الون الأحمر من الكود
فما الحل :
' In General dim db as new adodb.connection dim rs as new adodb.recordset
في الزر Command1 قمت بكتابة الكود التالي
Dim sql As String sql = "Select * From Categories" If rs.State = adStateOpen Then rs.Close rs.Open sql, db, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs
