[سلامات]

سلام عليكم

التقرير لا يتصل بالكود

كود :

  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.SetDataSource(dt)
                rpt.SetDatabaseLogon("admin", "1234", "serverday, "dbempl")
                Form_REPORTING.CrystalReportViewer.ReportSource = rpt
                Form_REPORTING.Show()

عند استعراض العارض يطلب معلومات الاتصال و معلومات اتصال موجوده ؟؟





شوو المشكلة ؟