Question

这是我遇到的问题。我需要执行一个保存的查询，接受来自表单中条目的参数。执行查询后，我需要检索选定的值。我该怎么做呢？

我知道我可以使用CurrentDB.Openrecordset（“myquery”）执行查询。我想为此使用ADO。

我能够使用ADO向表中插入行。

提前感谢您的帮助

Answer 1

您可以通过将查询视为存储过程来在Access VBA with ADO中执行此操作，如下所示：

Dim cmd As ADODB.Command, rst As ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "yourQueryName"
cmd.Parameters.Append cmd.CreateParameter("yourParameterName", adInteger, adParamInput, , 5)
Set rst = cmd.Execute
Do Until rst.EOF
    Debug.Print rst(0).Value
    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set cmd = Nothing

在访问2007中执行保存的查询并检索结果

1 个答案: