المشاركات : 68
المواضيع 6
الإنتساب : May 2014
السمعة :
1
الشكر: 46
تم شكره 331 مرات في 24 مشاركات
السلام عليكم
يوجد لديك مشكلة لانك لم تحدد مسار قاعدة البيانات
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Dim cc1 As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
With crConnectionInfo
' .ServerName = spaths
.DatabaseName = spaths & "db1.mdb"
.UserID = ""
.Password = ""
End With
CrTables = cc1.Database.Tables
For Each Me.CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
من اعمالنا نخطى ومن اخطائنا نتعلم ولاشى مستحيل
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
السيد الفاضل
abdhassan
ممكن مثال بسيط علي استخدام هذه الطريقة
ةهل طريقتك تصلح هنا
Dim dt As New DataTable
dt.Load(dr)
Dim rpt As New CrystalReport820
Dim t1, t2, t3, t4, t5, t6, t7 As TextObject
't1.Text = dr1.Item("moderia_name")
rpt.SetDataSource(dt)
Form12.CrystalReportViewer1.ReportSource = rpt
Form12.Show()