Question

有没有办法使用sqldataadapter创建一个reportviewer？可能吗？似乎我找不到在数据源上获取它的方法。

        Dim con As SqlConnection = New SqlConnection("Data Source = pc11-pc\kim; Initial Catalog = mypos; User ID = sa; Password = 123")
    Dim sqlstr As String = "Select * from Supplier"
    Dim adp As SqlDataAdapter = New SqlDataAdapter(sqlstr, con)
    Dim dt As New DataTable
    adp.Fill(dt)

    'reportviewer1.datasources = dt

Answer 1

以下是它的一瞥......

 Dim dt As DataTable = New DataTable
 Dim conn As SqlConnection = New SqlConnection(connString)

 Try
  conn.Open()
  Dim cmd As New SqlCommand(sql, conn)
  Dim adapter As New SqlDataAdapter(cmd)
  adapter.Fill(dt)
 Catch ex As Exception
   MessageBox.Show("Error")
 Finally
 conn.Close()
 End Try

 Dim ds As New ReportDataSource(dataSourceName, dt)
 rViewer.LocalReport.DataSources.Clear()
 rViewer.LocalReport.DataSources.Add(ds)
 rViewer.LocalReport.Refresh()

Answer 2

这是我的代码先生

       'TODO: This line of code loads data into the 'myposDataSet5.Product' table. You can move, or remove it, as needed.
    Me.ProductTableAdapter.Fill(Me.myposDataSet5.Product)
    Dim dt As DataTable = New DataTable
    Dim conn As SqlConnection = New SqlConnection("Data Source = pc11-pc\kim; Initial Catalog = mypos; User ID = sa; Password = 123")

    Try
        conn.Open()
        Dim cmd As New SqlCommand("Select * From Product", conn)
        Dim adapter As New SqlDataAdapter(cmd)
        adapter.Fill(dt)
    Catch ex As Exception
        MessageBox.Show("Error")
    Finally
        conn.Close()
    End Try

    'Dim ReportDataSource As DataTable = New DataTable
    'Dim ds As New ReportDataSource(dt.TableName = "test", dt)
    Dim ds As New Microsoft.Reporting.WinForms.ReportDataSource(dt.TableName, dt)
    ReportViewer1.LocalReport.ReportPath = "D:\visual studio\mypos\mypos\Report3.rdlc"
    ReportViewer1.LocalReport.DataSources.Clear()
    ReportViewer1.LocalReport.DataSources.Add(ds)
    ReportViewer1.LocalReport.Refresh()
    Me.ReportViewer1.RefreshReport()

使用sqldataadapter的reportview

2 个答案: