+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] شباب عند نقل البرنامج على جهاز العميل ظهرت لى رساله خطأ فى الكريستال ريبورت (/showthread.php?tid=12456)
شباب عند نقل البرنامج على جهاز العميل ظهرت لى رساله خطأ فى الكريستال ريبورت - احمد عبد الحكيم - 09-06-15
بسم الله الرحمن الرحيم
السلام عليكم شباب
حدثت معى مشكلة فى الكريستال ريبورت
عند تسطيب البرنامج على جهاز العميل والضغط على زر الطباعة تظهر لى هذه الرسالة
[attachment=7214]
RE: شباب عند نقل البرنامج على جهاز العميل ظهرت لى رساله خطأ فى الكريستال ريبورت - abdhassan - 17-07-15
السلام عليكم
يوجد لديك مشكلة لانك لم تحدد مسار قاعدة البيانات
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
RE: شباب عند نقل البرنامج على جهاز العميل ظهرت لى رساله خطأ فى الكريستال ريبورت - atefkhalf2004 - 17-07-15
السيد الفاضل
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()