24-11-12, 10:13 PM (آخر تعديل لهذه المشاركة : 28-01-15, 10:50 PM {2} بواسطة abulayth.)
امابعد اغلب المبرمجون المبتدئين يستخدمون الربط التقليدى عبر الادوات فى إنشاء التقارير بــ Datareport ليس من سهولته وإنما لعدم معرفة طرق الربط عن طريق الكود التى تعد اقوى واسرع وذات نتائج حقيقية
اليوم سوف تتعلمون كيفية إنشاء التقرير بالكود البرمجى adodb
وقل وداعا للربط التقليدى :p:p
إذهب الى قائمة Project وإختار References
ثم حدد مكتبة Microsoft ActiveX Data Obiects 2.7 Libray
ارسم الشكل التالى : استخدام الـــ Label هنا تم تغيير شكل الليبل وعمل اطار له من خاصية BorderStyle ---->> 1 - rptBSSolid
وكذلك تسميته من خلال خاصية الـ Caption كما هو موضح بالشكل
ارسم الشكل التالى : استخدام الـــ Text ايضاً قم بتغيير اطار التكست من خاصية BorderStyle ---->> 1 - rptBSSolid من خاصية Datafiled اكب اسم الحقل
ناتى للاكواد :
فى فسم التصريحات General
PHP كود :
Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset
فى حدث الـــ Form_Load()
PHP كود :
If db.State = 1 Then db.Close db.CursorLocation = adUseClient db.Provider = "Microsoft.Jet.OLEDB.4.0;" db.Open App.Path & "\vb4arb.mdb"
للوصول لقاعدة البيانات عن طريق المسار
اما فى كوماند القرير Command1_Click()
PHP كود :
If rs.State = adStateOpen Then rs.Close rs.Open "select*from Tabel1", db, adOpenStatic, adLockPessimistic Set DataReport1.DataSource = rs DataReport1.Show
اذا كان المتغير rs فاتح يتم إغلاقه
فتح الجدول
اسناد القيم او البيانات من المتغير rs الى التقرير
عرض التقرير
والان انظر للتقرير
تنبيه : تم زيادة حقل للتاريخ هذه البيانات افتراضية لكى لايزعل منى احد وفى النهاية: ارجو ان اكون قد وفقت فى الشرح الصور والمثال بالمرفقات.....
سبحان الله وبحمده سبحان اللهالعظيم آللهملگآلحمد حتى ترضى .. ولگآلحمدإذا رضيِت .. ولگآلحمدبعد آلرضآ