أريد ربط أستعلام مكون من ثلاثة حقول مع
DBGRID
مكون من ثلاثة حقول
وهذا هو الكود الذي قمت بكتابته ولم ينجح
علما بأنني أستخدم طريقة
DAO
ولا أريد اسخدام
DATA CONTROL
(GENERAL) Dim MYDB As Database Dim MYTB As Recordset
Private Sub Form_Load() Set MYDB = OpenDatabase(App.Path & "/INDEX.MDB") End Sub
Private Sub Command1_Click()
Set MYTB = MYDB.OpenRecordset("أسـم الأستعلام")المحاولة الأولي للربط ولم تنجح
MYTB!Name = DBGrid1.Columns([0]) MYTB!AGE = DBGrid1.Columns([1]) MYTB!ADDRESS = DBGrid1.Columns([2])
المحاولة الثانية للربط و أيضا لم تنجح
MYTB.Index([0]) = DBGrid1.Columns([0]) MYTB.Index([1]) = DBGrid1.Columns([1]) MYTB.Index([2]) = DBGrid1.Columns([2])
End Sub
أرجو تصحيح الكود وجزاكم الله خيرا