清空DAO记录集或创建空DAO记录集

时间:2018-01-26 13:54:44

标签: vba ms-access

所以这看起来有点奇怪。但是,我正在尝试做一个关于是否查找记录的简单If-Else声明。

第一部分是这样的:

If String Meets Criteria Open Recordset Else Recordset Is Empty End If

我确实对空集进行了大量搜索,到目前为止我的答案只是创建一个返回空的快速SQL语句。这真的是最简单的方法吗?我永远不会以这种方式设置它,但这是修复一些代码的最快方法:

If recordset.recordCount > 0 Then [Rest of Code]

有没有更明显的东西我还没找到?像:

Set Recordset = 0

1 个答案:

答案 0 :(得分:1)

如果您想要一个不包含任何记录但不可更新的记录集,您可以使用以下代码:

cp -a /home/stefan/Downloads/testfile /srv/shiny-server
cp: cannot create directory '/srv/shiny-server/testfile': Permission denied

DAO记录集始终处于打开状态并链接到数据源。像Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT 1 From MSysObjects WHERE FALSE") 这样的东西不起作用(与ADO记录集相比,你可以在其中调暗未打开的记录集)。

如果您只想要一个占位符对象,您也可以Dim rs As New DAO.Recordset,但在这种情况下尝试访问属性或方法时会遇到运行时错误。