vb.net - 如何从 VB.Net 2010 中的 MS Access 2010 (.accdb) 调用查询？

Question

我有这段代码使用来自 ms 访问的数据填充 datagridview：

Dim con As New OleDbConnection  
Dim ds As New DataSet  
Dim da As OleDb.OleDbDataAdapter  
Dim Sql As String

Sql = "SELECT * FROM myTable WHERE case_no=?"  
Try  
  con.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=Sample.accdb;Persist Security Info=True;Jet OLEDB:Database Password=dbadmin2010"  
    con.Open()  
    Dim cmd As OleDbCommand = New OleDbCommand(Sql, con)  
    da.SelectCommand = cmd  
    cmd.Parameters.AddWithValue("case_no", case_no)  

    Dim ds As DataSet = New DataSet  
    da.Fill(ds, "Case Info")  
    DataGridView1.DataSource = ds.Tables("Case Info")  

Catch ex As Exception  
    MsgBox(ex.Message)  
End Try

现在我刚刚从 MS Access 本身的设计视图中创建了一个查询，有没有办法调用该查询并将结果检索到我的 datagridview 中？

Answer 1

只需使用查询名称并设置命令类型即可，例如，除了您已有的之外，还可以使用以下注释：

Try
    con.ConnectionString = enter_connection_string_here 
    con.Open()
    cmd.Connection = con
    cmd.CommandType = CommandType.StoredProcedure
    cmd.CommandText = "NameOfQuery"
    da.SelectCommand = cmd
    cmd.Parameters.AddWithValue("case_no", case_no)

    da.Fill(ds, "Case Info")