[ممدوح]

ما المشكلة في استخدام هذا الكود طالما أنك تتصل بقاعدة البيانات

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim cmd = "SELECT * FROM Category"
       Dim adapter = New SqlDataAdapter(cmd, cn)
       Dim table = New DataTable()
       adapter.Fill(table)

       Dim rds = New ReportDataSource("DataSet1", table)
       Form2.ReportViewer1.LocalReport.DataSources.Clear()
       Form2.ReportViewer1.LocalReport.DataSources.Add(rds)
       Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = "Test.Report1.rdlc"
       Form2.ReportViewer1.RefreshReport()
       Form2.ShowDialog()

   End Sub

---

جرب هذا الكود واذكر ملاحظاتك والا ضع مشروعك مع نسخة من قاعدة البيانات على شكل Script