[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

للأسف أخي الكريم

"خطأ غير متوقّع في عمليّة جلب البيانات"

الكود المستعمل رقم 1 :

كود :

       Dim Facture_Code As String = Me.TextBox2.Text

       If Me.TextBox2.Text = vbNullString Then
           XtraMessageBox.Show("الرّجاء .. إختيار كود فاتورة المبيعات", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
       Else
           Cursor.Current = Cursors.WaitCursor
           Dim AzizCrystal As New ReportDocument
           Dim crtableLogoninfo As New TableLogOnInfo
           Dim crConnectionInfo As New ConnectionInfo
           Dim CrTables As Tables
           Try
               Dim MyReportPath As String = Application.StartupPath & "\FolderReport\Crystal1.Rpt"
               AzizCrystal.Load(MyReportPath)
               With crConnectionInfo
                   .ServerName = Application.StartupPath & "\MARKETING.Mdb"
                   .DatabaseName = Application.StartupPath & "\MARKETING.Mdb"
                   .UserID = "Admin"
                   .Password = "AZERTY987654"
               End With
               CrTables = AzizCrystal.Database.Tables
               For Each CrTable In CrTables
                   crtableLogoninfo = CrTable.LogOnInfo
                   crtableLogoninfo.ConnectionInfo = crConnectionInfo
                   CrTable.ApplyLogOnInfo(crtableLogoninfo)
               Next
               If Conne_2020.State = ConnectionState.Closed Then Conne_2020.Open()
               Dim Adp As New OleDb.OleDbDataAdapter("SELECT INVOICES_VENTE_Code,INVOICES_VENTE_Date,INVOICES_VENTE_Customers_Name,INVOICES_VENTE_Total,INVOICES_VENTE_Total_Arabic,INVOICES_VENTE_Total_Quantite,INVOICES_VENTE_DETAILS_Code,INVOICES_VENTE_DETAILS_Items_Code,INVOICES_VENTE_DETAILS_Items_Name,INVOICES_VENTE_DETAILS_Quantite,INVOICES_VENTE_DETAILS_Price,INVOICES_VENTE_DETAILS_Total From TBL_INVOICES_VENTE INNER JOIN TBL_INVOICES_VENTE_DETAILS ON INVOICES_VENTE_DETAILS_Code = INVOICES_VENTE_Code Where INVOICES_VENTE_Code = '" & Facture_Code & "'", Conne_2020)
               Dim Ds As DataSet = New DataSet()
               Adp.Fill(Ds, "TBL_INVOICES_VENTE")
               Adp.Fill(Ds, "TBL_INVOICES_VENTE_DETAILS")
               Dim Dt = Ds.Tables(0)
               If Dt.Rows.Count = 0 Then
                   XtraMessageBox.Show("لم يتم العثور على بيانات لعرضها في التّقرير", "طباعة التقرير", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                   Cursor.Current = Cursors.Default
                   Exit Sub
               Else
                   AzizCrystal.SetDataSource(Ds)
                   Dim Frm As New FrmPrinting
                   Frm.CrystalReportViewer1.ReportSource = AzizCrystal
                   Frm.CrystalReportViewer1.Zoom(100%)
                   Frm.CrystalReportViewer1.Refresh()
                   Frm.ShowDialog()
               End If
               If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
               AzizCrystal.Close()
               AzizCrystal.Dispose()
           Catch ex As Exception
               XtraMessageBox.Show("خطأ غير متوقّع في عمليّة جلب البيانات", "طباعة التقرير")
           End Try
       End If

الكود المستعمل رقم 2 :

كود :

       If Me.TextBox2.Text = vbNullString Then
           XtraMessageBox.Show("الرّجاء .. إختيار كود فاتورة المبيعات", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
       Else
           Cursor.Current = Cursors.WaitCursor
           Dim AzizCrystal As New ReportDocument
           Dim crtableLogoninfo As New TableLogOnInfo
           Dim crConnectionInfo As New ConnectionInfo
           Dim CrTables As Tables
           Try
               Dim MyReportPath As String = Application.StartupPath & "\FolderReport\Crystal1.Rpt"
               AzizCrystal.Load(MyReportPath)
               With crConnectionInfo
                   .ServerName = Application.StartupPath & "\MARKETING.Mdb"
                   .DatabaseName = Application.StartupPath & "\MARKETING.Mdb"
                   .UserID = "Admin"
                   .Password = "AZERTY987654"
               End With
               CrTables = AzizCrystal.Database.Tables
               For Each CrTable In CrTables
                   crtableLogoninfo = CrTable.LogOnInfo
                   crtableLogoninfo.ConnectionInfo = crConnectionInfo
                   CrTable.ApplyLogOnInfo(crtableLogoninfo)
               Next
               If Conne_2020.State = ConnectionState.Closed Then Conne_2020.Open()
               Dim Ds As DataSet = New DataSet()
               Dim Facture_Code As String = Me.TextBox2.Text
               If Conne_2020.State = ConnectionState.Closed Then
                   Conne_2020.Open()
               End If
               Dim Sql As String = "SELECT INVOICES_VENTE_Code,INVOICES_VENTE_Date,INVOICES_VENTE_Customers_Name,INVOICES_VENTE_Total,INVOICES_VENTE_Total_Arabic,INVOICES_VENTE_Total_Quantite,INVOICES_VENTE_DETAILS_Code,INVOICES_VENTE_DETAILS_Items_Code,INVOICES_VENTE_DETAILS_Items_Name,INVOICES_VENTE_DETAILS_Quantite,INVOICES_VENTE_DETAILS_Price,INVOICES_VENTE_DETAILS_Total From TBL_INVOICES_VENTE INNER JOIN TBL_INVOICES_VENTE_DETAILS ON INVOICES_VENTE_DETAILS_Code = INVOICES_VENTE_Code Where INVOICES_VENTE_Code = @Pcode"
               Dim cmd As New OleDbCommand(Sql, Conne_2020)
               cmd.Parameters.AddWithValue("@Pcode", Facture_Code)
               Ds.Clear()
               Dim Da As New OleDbDataAdapter(cmd)
               Da.Fill(Ds, "TBL_INVOICES_VENTE")
               Da.Fill(Ds, "TBL_INVOICES_VENTE_DETAILS")
               Dim Dt = Ds.Tables(0)
               If Dt.Rows.Count = 0 Then
                   XtraMessageBox.Show("لم يتم العثور على بيانات لعرضها في التّقرير", "طباعة التقرير", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                   Cursor.Current = Cursors.Default
                   Exit Sub
               Else
                   AzizCrystal.SetDataSource(Ds)
                   Dim Frm As New FrmPrinting
                   Frm.CrystalReportViewer1.ReportSource = AzizCrystal
                   Frm.CrystalReportViewer1.Zoom(100%)
                   Frm.CrystalReportViewer1.Refresh()
                   Frm.ShowDialog()
               End If
               If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
               AzizCrystal.Close()
               AzizCrystal.Dispose()
           Catch ex As Exception
               XtraMessageBox.Show("خطأ غير متوقّع في عمليّة جلب البيانات", "طباعة التقرير")
           End Try
       End If

سواء بالكود رقم 1 أو بالكود رقم 2 .. نفس رسالة الخطأ

تحياتي