[nassery99]

اخذت المثال المرفق من المنتدى, عندما اشغله يعمل بشكل جيد,لكن عندما اضيفه الى مشروعي مثل ماهو تماما لا اغير الا اسماء المعطيات,تظهر لي الرساله المرفقه.
ارجوا ايجاد حل لذلك.

[a.ahmed]

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    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

    End Sub

End Class 


[nassery99]

الف شكر على الرد السريع.

---

للاسف ظهرت رسالة الخطاء التالية

[a.ahmed]

app.config

PHP كود :

<?xml version="1.0"?>
<configuration>
  <startup useLegacyV2RuntimeActivationPolicy="true"/>
</configuration>