السلام عليكم ... شكرررا عالمنتدى الروووعه
ارجوو مساعدتكم عندي سؤال بلغه 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
ارجوو مساعدتكم عندي سؤال بلغه 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