[ابو ليلى]

السلام عليكم و رحمة الله وبركاته
الاخ سلامات,
انا صراحة انحرمت من العمل مع Crystal report  مع اصدارة VS 2015 , مشكلة الدمج لم اجد لها حل مع الاصدارة 64؟
على اي حال على ما اذكر انك بحاجة الى اسناد الاتصال للتقرير
جرب تعدل الكود عندك لما يلي

PHP كود :

       If Sqlconn.State = ConnectionState.Open Then
            Sqlconn.Close()
        End If
        Sqlconn.Open()
        Dim sql As String = " SELECT  * FROM Table  WHERE age " & Colog.Text.Trim & " " & (T4.Text.Trim) & " "
        Dim comm As New SqlCommand(sql, Sqlconn)
        Dim da As New SqlDataAdapter(comm)
        Dim dt As New DataTable
        da.Fill(dt)

        Dim rpt As New reportcrystal
        rpt.DataSourceConnections.Item(0).SetConnection(Servername, DatabaseName, False)
        rpt.DataSourceConnections(0).SetLogon("admin", "1234")
        rpt.SetDataSource(dt)
        Form_REPORTING.CrystalReportViewer.ReportSource = rpt
        Form_REPORTING.Show() 


واذا لم يعمل معك عليك بالكود الثقيل و ضبط كل الخصائص

PHP كود :

Dim cryRpt 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

        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

        With crConnectionInfo
            .ServerName = "YOUR SERVER NAME"
            .DatabaseName = "YOUR DATABASE NAME"
            .UserID = "YOUR DATABASE USERNAME"
            .Password = "YOUR DATABASE PASSWORD"
        End With

        CrTables = cryRpt.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()