منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ربط اداة datareport مع قاعدة البينات عن طريق الكود

إخواني الكرام
أستعمل الاداة Data Control
في ربط قاعدة البينات بالفيجوال بيسك
وعند عمل التقارير يتوجب علي ربط قاعدة البينات بالاداة DataEnvironment1
ولكنها تطلب مسار القاعدة كاملا
وهذه مشكلة في نقل البرنامج من جهاز لاخر

وسؤالي كيف اقوم بالربط عن طريق الكود لاستطيع كتابة كود مسار قاعدة البينات بالكود
لتفادي هذه المشكلة

وجزاكم الله خيرا

كود :

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.Show

جزاكم الله كل خير
ونفع الله بك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبدالله الصافي

مصمم هاوي

عبدالله الصافي