通过VBA代码调用数据库中的SQL过程

Question

我有一个SQL 查询，它占用数据库中存储的一个参数。我想从在同一数据库上运行的 VBA 代码调用相同的代码。我在工作中使用 MS Access。

例如，考虑一下，我有一个 SQL 查询“Q”，它采用参数“p”，我打算从我的 VBA 代码“C”调用此 SQL 查询，这自然也涉及将此参数“p”传递给查询。

非常感谢帮助 索汉姆

Answer 1

这里有几种可能性。

假设它是一个建立在保存要使用的参数的表单上的 SELECT 查询，并且输入是安全的：

s = "SELECT * FROM MyTable WHERE AText ='" & Me.MyText & "'"

可以像这样使用：

Forms!SomeForm.RecordSource = s

或者

Set qdf = CurrentDb.CreateQueryDef("NewQuery", s)

但是，可以通过其他更好的方式完成上述操作。

假设这是一个从保存要使用的参数的表单运行的 ACTION 查询，并且输入是安全的：

s = "UPDATE MyTable Set AText ='" & Me.MyText & "'"

那么

Set db = CurrentDB
db.Execute s, dbFailOnError

或者您可以使用临时查询，这会更安全：

'Temporary query
s = "UPDATE MyTable Set AText = MyRext"

Set qdf = db.CreateQueryDef("", s)

qdf.Parameters!MyText = Me.MyText
qdf.ReturnsRecords = False
qdf.Execute dbFailOnError

与上面类似的东西也适合现有的查询。

您还可以将参数传递给过程，在这种情况下，Me.MyText 成为变量，或者您可以使用 Inputbox，但这很少是一个好主意。

之后，就是整个ADO的世界了。