السلام عليكم ورحمة الله وبركاته
لو سمحتم كنت اريد تحويل كود يتعلق بالتقارير من الـ DAO الى الـ ADO
الكود يتعلق بالتقارير وكذلك الكريستال ريبورت
الكريستال ريبورت الذي اعمل عليه اصدار 4.6.1
اصدار الفيجوال بيسك 6.0
قاعدة البيانات اكسس 2000
هذا هو الكود
اقتباسPrivate Sub Command7_Click()
If Trim$(Combo1) = "" Then
MsgBox "Please, Select A Number To Continue"
Exit Sub
End If
db.QueryDefs.Delete "items_Query"
Dim s As String
s = "select * from items where items_nmbr = '" & Combo1.Text & "'"
db.CreateQueryDef "items_Query", s
CrystalReport1.DataFiles(0) = App.Path & "\Stock.mdb"
CrystalReport1.ReportFileName = "item.rpt"
CrystalReport1.Action = 1
في الموديول مكتوب الاتي
اقتباسGlobal db As New ADODB.Connection
Global items As New ADODB.Recordset
وفي الفورم لود
اقتباسdb.Open " provider=microsoft.jet.OLEDB.4.0 ; Data source=stock.mdb "
items.Open "items", db, adOpenDynamic, adLockOptimistic
والسلام عليكم