السلام عليكم ورحمة الله وبركاته هذا شرح لكيفية
عمل علاقة مع الــ Datareport بدون DataEnvironment
أولاً : من القائمة "Project" ====> "References"
اختر المكتبة : Microsoft ActiveX Data Objects 2.5 أو أي إصدار آخر .
1. في قسم التصريحات العامة ضع الكود التالي :
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset
Function connectDB() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\datareport.mdb" End Function
2. أدرج زر أمر [Command] و DataReport
#. في الــ Datareport أدرج :
أ. مربعات نصوص [RtpTextBox] في الــ Section1
ب. اجعل اسم الــ DataFaild لمربعات النصوص اسم الحقل الذي تريده
اغلق الــ Datareport .
#. زر الأمر [Command] غير Caption إلى 'طباعة تقرير' أو إلى ما تحب .
أ. انقر مزدوجاً على زر الأمر و اكتب الكود التالي :
Call connectDB rs.Open "SELECT * FROM DEMO", conn, adOpenStatic, adLockOptimistic Set DataReport1.DataSource = rs DataReport1.Show
ثم قم بتشغيل البرنامج و اختبر ما فعلت
و إليكم مثال عملي على ذلك .
أتمنى أن أكون قد أفدتكم :rolleyes:
