[الوفا]

السلام عليكم ... شكرررا عالمنتدى الروووعه

ارجوو مساعدتكم عندي سؤال بلغه vb6 وعندي مشروع تخرج ومحتاجه ربط الفيجول بيسك6 بالاكسس2003 وخزن الجدول في مصفوفه والتعامل معه ؟؟؟؟؟؟

وانا توصلت بعد الربط بطريقه DAO الى هذا الكود لكن لم اعرف كيفه طباعه الجدول كامل على الفورم وكذلك لم اعرف التعامل مع الحقول بالمقارنه مع قيم او تعديل من خلال الفيجول ارجووووو المساعده رجااااءا ؟؟؟؟؟

Private Sub Form1_Load()

Dim x, y As Integer

Data1.Recordset.MoveFirst
Data1.Recordset.MoveLast
x = Data1.Recordset.RecordCount
ReDim student_quize(0 To x, 0 To 7) As String

y = 0
Do While Not Data1.Recordset.EOF

student_quize(y, 0) = Data1.Recordset.Fields(0)
student_quize(0, 1) = Data1.Recordset.Fields(1)
student_quize(0, 2) = Data1.Recordset.Fields(2)
student_quize(0, 3) = Data1.Recordset.Fields(3)
student_quize(0, 4) = Data1.Recordset.Fields(4)
student_quize(0, 5) = Data1.Recordset.Fields(5)
student_quize(0, 6) = Data1.Recordset.Fields(6)
student_quize(0, 7) = Data1.Recordset.Fields(7)
y = y + 1
Data1.R[/size]ecordset.MoveNext

Loop

End Sub