[طالب برمجة]

باركك الرب

الخطأ السابق كان في نوع IDD فهو نصي وليس رقمي، وكان يجب أن توضع قيمها بين علامات تنصيص '   '
والأخر لم يتم تنفيذ الاستعلام بعد أن أنشاء DataAdapters
والآخير تم ربط التقرير مع قاعدة البيانات قبل الاستعلام الجديد

إذاً، ربط التقرير بالبيانات يكون بعد تنفيذ الاستعلام

هذا تعديل للكود وقد حذفت الغير ضروري

PHP كود :

     Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim Xxx = Val(TextBox1.Text)
        Dim yyy = Val(TextBox2.Text)
        Dim dt As New DataTable
        SQLstr = "Select * From STUDENT where [IDD] BETWEEN @id1 and @id2 ORDER BY [IDD]"
        Dim DataAdapters As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapters.SelectCommand.Parameters.AddWithValue("@id1", Xxx)
        DataAdapters.SelectCommand.Parameters.AddWithValue("@id2", yyy)
        If DataAdapters.Fill(dt) > 0 Then
            Dim rpt1 As New CrystalReport1
            rpt1.SetDataSource(dt)

            Dim frm As New Form2
            frm.CrystalReportViewer1.ReportSource = rpt1
            frm.ShowDialog()

        Else
            MsgBox("لا توجد نتائج بين الرقمين")

        End If
    End Sub 


يستحسن استخدام DataTable بدلا من DataSet