اشكال در لينك به دتابيس بارمز

[ali_mo7670]

با سلام به برنامه نويسان عزيز
من قبلا با اين كد ديتابيس رو به گزارشم معرفي مي كردم
For Each crdbtab In crrpet.Database.Tables
crdbtab.ConnectionProperties.Item("Data Source") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=K:\hozor\" + "h" + term + ".mdb "
Next
حال بنا به دلايلي به ديتابيس رمز دادم و با توجه به تغييرات بايد اين كد كار بده
For Each crdbtab In crrpet.Database.Tables
crdbtab.ConnectionProperties.Item("Data Source") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=K:\hozor\" + "h" + term + ".mdb;Persist Security Info=false;Jet OLEDB:Database Password=rsr2020"
Next
ولي اين كد كار نمي ده متغير term نام ديتابيس هستش
اگه كسي ميتونه راهنمايي كنه
با تشكر

[Restlesa]

می تونی تو برنامه ات از ابزار adodc استفاده کنی ؟؟؟

[ali_mo7670]

به چه شکل؟
میشه توضیح بدی اگه امکان داره کامل.

[Restlesa]

ابزار Adodc یه ابزار بسار قوی و پیشرفته در حین حال بسیار ساده برای ارتباط با بانک های اطلاعاتی هستش
با استفاده از این ابزار خیلی راحت (تنها با نوشتن 3 خط کد) می تونی به بانک اطلاعاتیت متصل بشی و هر بلایی که بخوای سر بانک اطلااعاتیت بیاری
کد متصل شدن به بانک اطلاعاتی رمز گذاری شده به شکل زیره :

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\dbase.mdb;Persist Security Info=False; Jet OLEDB:Database Password = 123456"

Adodc1.RecordSource = "SELECT User_Name FROM Users"
Adodc1.Refresh

اگه جایی از این کد رو متوجه نشدی بگو تا کامل تر برات توضیح بدم.

[ali_mo7670]

دوست عزیز متشکر.
ولی مشکل من اینه میخوام به 1دیتابیس با رمز لینک بشم و گزارش گیری کنم؟
خوب الان من چطور این selectرو به کریستال بدم ؟
میشه این توضیح بدین؟

[Restlesa]

منظورت برنامه کریستال ریپورت هستش ؟؟؟؟

[ali_mo7670]

اره.
در واقع من میخوام به 1دیتابیس بارمز لینک بشم که بتونم باهاش گزارش گیری کنم.کریستال V10استفاده میکنم.

[Restlesa]

دوست عزیز یه سری به سایت زیر بزن شاید مشکل برطرف بشه
http://www.visualbasic.blogfa.com/

[torshizi]

با این دستور امتحان کنید البته با data environment است

Private Sub DataEnvironment_Initialize()
DataEnvironment1.Connection1.Open ("Persist Security Info=false;Data Source =E:\nezarat\nezarat.mdb;Jet OLEDB:Database Password=123;")
end sub