اخذت المثال المرفق من المنتدى, عندما اشغله يعمل بشكل جيد,لكن عندما اضيفه الى مشروعي مثل ماهو تماما لا اغير الا اسماء المعطيات,تظهر لي الرساله المرفقه.
ارجوا ايجاد حل لذلك.
Dim olecon As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB.accdb;")
Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
Dim da As New OleDbDataAdapter("SELECT Tbl_Customers.CustID, Tbl_Customers.CustName FROM Tbl_Customers WHERE [Tbl_Customers.CustID]=@CustID;", olecon) da.SelectCommand.Parameters.AddWithValue("@CustId", TextBox1.Text)
Dim dt As New DataTable da.Fill(dt)
Dim rpt As New CrystalReport1 rpt.SetDataSource(dt) CrystalReportViewer1.ReportSource = rpt