24-11-12, 10:13 PM
امابعد
اغلب المبرمجون المبتدئين يستخدمون الربط التقليدى عبر الادوات فى إنشاء التقارير بــ Datareport ليس من سهولته وإنما لعدم معرفة طرق الربط عن طريق الكود التى تعد اقوى واسرع وذات نتائج حقيقية
اليوم سوف تتعلمون كيفية إنشاء التقرير بالكود البرمجى adodb
وقل وداعا للربط التقليدى :p:p
إذهب الى قائمة Project وإختار References
ثم حدد مكتبة Microsoft ActiveX Data Obiects 2.7 Libray
ارسم الشكل التالى :
استخدام الـــ Label
هنا تم تغيير شكل الليبل وعمل اطار له من خاصية BorderStyle ---->> 1 - rptBSSolid
وكذلك تسميته من خلال خاصية الـ Caption كما هو موضح بالشكل
ارسم الشكل التالى :
استخدام الـــ Text
ايضاً قم بتغيير اطار التكست من خاصية BorderStyle ---->> 1 - rptBSSolid
من خاصية Datafiled اكب اسم الحقل
ناتى للاكواد :
فى فسم التصريحات General
فى حدث الـــ Form_Load()
للوصول لقاعدة البيانات عن طريق المسار
اما فى كوماند القرير Command1_Click()
اذا كان المتغير rs فاتح يتم إغلاقه
فتح الجدول
اسناد القيم او البيانات من المتغير rs الى التقرير
عرض التقرير
تنبيه : تم زيادة حقل للتاريخ
هذه البيانات افتراضية لكى لايزعل منى احد
وفى النهاية: ارجو ان اكون قد وفقت فى الشرح
الصور والمثال بالمرفقات.....
اغلب المبرمجون المبتدئين يستخدمون الربط التقليدى عبر الادوات فى إنشاء التقارير بــ 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 الى التقرير
عرض التقرير
تنبيه : تم زيادة حقل للتاريخ
هذه البيانات افتراضية لكى لايزعل منى احد
وفى النهاية: ارجو ان اكون قد وفقت فى الشرح
الصور والمثال بالمرفقات.....