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

السلام عليكم ورحمة الله بركاته
هل يمكن رض تقرير بقاعدة بيانات اكسيس بواسطة الفيجوال ؟
وما هو الكود  ان امكن ؟

Try
Me.WindowState = FormWindowState.Maximized
Me.OleDbConnection1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Application.StartupPath & "\m_lab.mdb;Jet OLEDBatabase Password=;"
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
Dim crReportDocument As New p_c_r()
With crConnectionInfo
.DatabaseName = db_manger.dblocation.Text
.Password = ""
End With
CrTables = crReportDocument3.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
CrystalReportViewer1.ReportSource = crReportDocument3
CrystalReportViewer1.RefreshReport()

بسم الله الرحمن الرحيم
بعد اضافة الاداة data1
تعمل قاعدة بيانات وتحولها الى تنسيق 97
وتربط المربع النصي مع القاعدة عن طريق الخواص او مربع الخصائص

for i = 1 to data1.recordcount
text1.text=data1.feild i
if data1.feild1+1 <>eof then text2.text=data1.feild i+1
.
.
.
data1.movenext
next i
...........................................
هذا الي اقدر عليه
.........................................
bye

عدنان الشمري
احمداحمداحمد6
شكرا ليكم شباب وبارك الله فيكم
لكن انا كنت اقصد لو فية تقرير جاهز فى الاكسيس اقصد تقرير مش استعلام ممكن فتحة عن طريق الفيجوال بيسك على هيئة صورة داخل نموذج الفيجوال 2010