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

بسم الله الرحمن الرحيم
السلام عليكم شباب
حدثت معى مشكلة فى الكريستال ريبورت
عند تسطيب البرنامج على جهاز العميل والضغط على زر الطباعة تظهر لى هذه الرسالة

[attachment=7214]

السلام عليكم
يوجد لديك مشكلة لانك لم تحدد مسار قاعدة البيانات

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

السيد الفاضل
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()