3

我在dataGridReportVB 2010 的设计器视图中创建了一个 datagridview。然后我使用查询来填充数据集,并且我希望这个数据集填充 datagridview ......但它似乎不起作用。

这是我的代码:

Dim con As New OleDb.OleDbConnection
con.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;
                         Data Source=C:\Users\Administrator\Documents\MenuDB.accdb"
con.Open()
Dim ds As DataSet = New DataSet
Dim adapter As New OleDb.OleDbDataAdapter
Dim sql As String

sql = @"SELECT OrderDate, MenuItem 
        FROM   MenuItems, Orders 
        WHERE  Orders.itemID = MenuItems.ID 
           AND Format(Orders.OrderDate,'mm/dd/yyyy') >= #" + fromDate + "# 
           AND Format(Orders.OrderDate,'mm/dd/yyyy') <= #" + toDate + "#"

adapter.SelectCommand = New OleDb.OleDbCommand(sql, con)
adapter.Fill(ds)
dataGridReport.DataSource = ds

我知道现在缺少一些东西-我环顾四周,大多数人似乎都在使用类似的东西dataGridReport.DataSource = ds.Tables('somereference')

但我的数据集是从连接两个表的查询中动态创建的数据集,它不是存储在项目数据源中的东西。我也没有通过其属性将 datagridview 绑定到任何数据源。我错过了什么?

(顺便说一句,sql查询是正确的,我已经测试过了,返回了预期的结果)。

4

3 回答 3

12

您可以通过索引从数据源中获取表:

dataGridReport.DataSource = ds.Tables(0)
于 2012-11-24T19:00:15.773 回答
1
dataGridReport.DataSource = ds.Tables("Tablename")
于 2017-06-20T14:12:23.753 回答
0
Dim con As New OleDb.OleDbConnection
con.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;
DataSource=C:\Users\Administrator\Documents\MenuDB.accdb"
con.Open()
Dim ds As DataSet = New DataSet
Dim adapter As New OleDb.OleDbDataAdapter
Dim sql As String

sql = @"SELECT OrderDate, MenuItem 
      FROM   MenuItems, Orders 
      WHERE  Orders.itemID = MenuItems.ID 
      AND Format(Orders.OrderDate,'mm/dd/yyyy') >= #" + fromDate + "# 
      AND Format(Orders.OrderDate,'mm/dd/yyyy') <= #" + toDate + "#"

adapter.SelectCommand = New OleDb.OleDbCommand(sql, con)
adapter.Fill(ds,sql)
dataGridReport.DataSource = ds.tables(sql)
于 2018-05-16T23:08:14.127 回答