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

إخواني الكرام 
أستعمل الاداة 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

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

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