+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] ربط الفيجول بيسك6 بالاكسس2003 (/showthread.php?tid=1192)
ربط الفيجول بيسك6 بالاكسس2003 - الوفا - 07-12-13
السلام عليكم ... شكرررا عالمنتدى الروووعه
ارجوو مساعدتكم عندي سؤال بلغه 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
RE: ربط الفيجول بيسك6 بالاكسس2003 - تركي الحلواني - 07-12-13
لو ترفق مشروعك ليتم التعديل علية بحسب طلبك
RE: ربط الفيجول بيسك6 بالاكسس2003 - الوفا - 07-12-13
بس عفوا تقصد ارفق برنامج الفيجول الي ربطته والجدول بالاكسس؟؟؟؟؟ لكن كيف ارفقه لا اعرف ذلك؟؟؟؟؟؟؟؟؟؟؟ ارجوووو التوضيح ولكم جزيل الشكر
RE: ربط الفيجول بيسك6 بالاكسس2003 - mamas1 - 07-12-13
لا أعلم هل المشكل لديك في الكود أم أنني لم أفهم جيدا
لأنو المفروض
(student_quize(0, 1) = Data1.Recordset.Fields(1
تكون (student_quize(y, 1) = Data1.Recordset.Fields(1
و أيضا بالنسبة للأسطر الأخرى كلها
يتم الأرفاق هكذا
إضغط إضافة رد ...
ستجد في الأسفل بعد كتابتك للرد و قبل الضغط على زر إرسال إرفاق ملف
إضغط زر "إختر الملف" ثم زر "إضافة الملف" ثم إنتظر قليلا حتى يتم الفرفع ثم إضغط "إضافة رد"
في الحقيقة أنا أحب مثل هذه التمارين
و سأحاول مساعدتك بقدر إستطاعتيرغم أنني لا أحب DAO أحب أكثر ال ADO لكن نفس الشي سنحصل عى نفس النتيجة
RE: ربط الفيجول بيسك6 بالاكسس2003 - الوفا - 07-12-13
شكررررااااا الك mamas1
يعني كيف كله يكون fiels 1
student_quize(0, 1) = Data1.Recordset.Fields(1
تكون (student_quize(y, 1) = Data1.Recordset.Fields(1
كيف يكون الكود???
عند رفع الملف الجدول والمشروع يظهر لي نوع الملف غير مسموح به !!!!!
لكن سوف اقوم بعمل كوبي للجدول والكود هو الي كتبتا......
NO QUIZ_1 QUIZ_2 QUIZ_3 QUIZ_4 QUIZ_5 QUIZ_6 FINAL TOTAL
e1 P P P P P P P 74
e2 P P F F P F F 4
e3 P F F P P F F 3
e4 P P F P P P P 6
e5 P P F P P F F 1
e6 P P P F F F F 5
e7 F P P P P P P 7
e8 P P P P P F P 4
جدول درجات الطلاب
حيث ال p تمثل pass
وال f تمثل faill
طيب باقي الكود كيف اطبع الجدول كامل على الفورم والمصفوفه كيف اتعامل معاها؟؟؟؟؟؟؟؟ اي مع حقول الجدول؟؟؟
RE: ربط الفيجول بيسك6 بالاكسس2003 - mamas1 - 07-12-13
قم برفع المشروع عشان نكمل يا أخي
قم بضغطه باستعمال win rar بعد ذلك قم برفعه
RE: ربط الفيجول بيسك6 بالاكسس2003 - الوفا - 07-12-13
اي الان يقبل الرفع بعد الضغط شكررررا.......[attachment=852][attachment=851][attachment=850][attachment=849]
هذا الجدول والمشروع مع الفورم والموديل.....
RE: ربط الفيجول بيسك6 بالاكسس2003 - mamas1 - 07-12-13
طيب راح أشوفه إن شاء الله
لكن في المرة القادمة
قم بضغط المجلد الذي يحتوي على المشروع كله بعد ذلك قم برفعه حتى ترفع ملف واحد وليس 4 !
RE: ربط الفيجول بيسك6 بالاكسس2003 - الوفا - 07-12-13
اووووووووووكي ان شاءالله...لان اول مره ارفع في منتدى
شكرررا للمساعده مقدمااااا ...وفي انتظاركم
RE: ربط الفيجول بيسك6 بالاكسس2003 - mamas1 - 07-12-13
في الحقيقة لديك عدة أخطاء
أولها أنك لم تفهم الأكواد .. وهذا واضح من خلال ما طرحته قبل قليل ..
ثانيا
لا نكتب
PHP كود :
Private Sub Form1_Load()
PHP كود :
Private Sub Form_Load()
PHP كود :
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)
student_quize(0, 8) = Data1.Recordset.Fields(8)
y = y + 1
Data1.Recordset.MoveNext
Loop
End Sub
PHP كود :
Private Sub Command1_Click()
Print vbNewLine
Do While Not Data1.Recordset.EOF
Print vbNewLine
Print Data1.Recordset.Fields(0), Data1.Recordset.Fields(1), Data1.Recordset.Fields(2), Data1.Recordset.Fields(3), Data1.Recordset.Fields(4), Data1.Recordset.Fields(5), Data1.Recordset.Fields(6), Data1.Recordset.Fields(7), Data1.Recordset.Fields(8)
Data1.Recordset.MoveNext
Loop
End Sub
Loop
طيب أعطين ما المطلوب و سأعمل عليه بعد ذلك أشرح لك تفاصيل الأكواد