[walkady]

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

[عدنان الشمري]

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()

[احمداحمداحمد6]

بسم الله الرحمن الرحيم
بعد اضافة الاداة 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

[walkady]

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