多谢班斧、仙桃。
我试了一下,还是不行。我的方法是:
1:在access中建立一个“查询”,名称为“查询1”,内容大概如下
PARAMETERS jdzl Text ( 50 );
select * from table_a where col_id = jdzl;
如果用access立刻执行,需要在弹 出的窗口中输入一个参数,就可以得到查询结果。
2:在vb.net中
Private Sub Query(byval Query_JD as string)
Dim cmd As New OleDb.OleDbCommand()
cmd.CommandType = CommandType.TableDirect
cmd.CommandText = "查询1
Dim strConn, strSQL As String
strConn = ""; '填写你自己的连接字符串
Dim cn As New OleDbConnection(strConn)
cn.Open()
strSQL = "SELECT OrderID, CustomerID, EmployeeID, OrderDate " & _
"FROM Orders WHERE CustomerID = ?"
Dim cmd As New OleDbCommand(strSQL, cn)
cmd.Parameters.Add("@CustomerID", OleDbType.WChar, 5)
cmd.Parameters(0).Value = "ALFKI"
Dim rdr As OleDbDataReader = cmd.ExecuteReader()