在VB中如何调用带参数的ACCESS查询？

Question

我说的是这样的ACCESS查询：
SELECT 交易ID, 交易日期, 产品ID, 数量, 金额, 供应商ID, 交易描述 FROM 进货表
WHERE 交易ID=[请输入交易ID:];
在VB里如何调用？

Answer 1

'下例假定参数值为可变字符串，最大长度200
Dim mdbcn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sn As New ADODB.Recordset
Dim Par As ADODB.Parameter，str As String
mdbcn.CursorLocation = adUseClient
mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=你的数据库"
mdbcn.Open
cmd.CommandText = "你的查询名"
cmd.CommandType = adCmdStoredProc
str = InputBox("输入参数值:")
Set Par = cmd.CreateParameter("", adVarChar, adParamInput, 200)
cmd.Parameters.Append Par
Par.Value = str
Set cmd.ActiveConnection = mdbcn
Set sn = cmd.Execute
MsgBox sn.RecordCount
Set sn = Nothing: Set cmd = Nothing
Set mdbcn = Nothing