ms-access - 进入: Using query in VBA for recordset

Question

我已经习惯以以下格式进行记录集:

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "Select field1, field2 from myTable where field1 > 30"

Set rs = CurrentDb.OpenRecordset(strSQL)

'... Do wahtever using rs.

是否可以使用已经创建的查询代替文本并为其提供where子句？

这是到SQL Server 2008数据库的链接表。我喜欢在Access中保存简单的查询。

Answer 1

你可以

使用具有参数的查询，并在查询使用参数的情况下指定参数的值。

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rst As DAO.Recordset

Set qdf = CurrentDb.QueryDefs("qry_SomeQueryWithParameters")

qdf.Parameters("SomeParam").Value = "whatever"

Set rst = qdf.OpenRecordset

或者

指定查询名称作为命令，并在记录集

上使用 Filter property

Dim rs As DAO.Recordset
Dim rsFiltered As DAO.Recordset


Set rs = CurrentDb.OpenRecordset(qry_SomeQueryWithoutParameters)

rs.Filter = "field1 > 30"
set rsFiltered = rs.OpenRecordset