+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : ربط اداة datareport مع قاعدة البينات عن طريق الكود (/showthread.php?tid=25732)
ربط اداة datareport مع قاعدة البينات عن طريق الكود - عبدالله الصافي - 14-07-18
إخواني الكرام
أستعمل الاداة Data Control
في ربط قاعدة البينات بالفيجوال بيسك
وعند عمل التقارير يتوجب علي ربط قاعدة البينات بالاداة DataEnvironment1
ولكنها تطلب مسار القاعدة كاملا
وهذه مشكلة في نقل البرنامج من جهاز لاخر
وسؤالي كيف اقوم بالربط عن طريق الكود لاستطيع كتابة كود مسار قاعدة البينات بالكود
لتفادي هذه المشكلة
وجزاكم الله خيرا
RE: ربط اداة datareport مع قاعدة البينات عن طريق الكود - مصمم هاوي - 14-07-18
كود :
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "data.mdb;" & "Jet OLEDB:Database Password=123;"
Set rs = New ADODB.Recordset
rs.Open " select * from Tabel1 ", cn, adOpenStatic, adLockReadOnly
DataReport1.Orientation = 2
Set DataReport1.DataSource = rs
DataReport1.Caption = "عنوان التقرير"
DataReport1.ShowRE: ربط اداة datareport مع قاعدة البينات عن طريق الكود - عبدالله الصافي - 15-07-18
جزاكم الله كل خير
ونفع الله بك