【Access基础】在代码中如何确定操作查询是否正确执行

来源:红尘如烟 点击数:8200 　 | 收藏 | 复制

时　间:2014-07-04 12:36:43
作　者:缪炜 ID：24010 城市：江阴
摘　要:在代码中使用Current.Execute 方法运行删除、更新、追加等操作查询时，如何确定操作查询是否正确执行。
正　文:

对于删除，更新，追加等操作查询，很多时候大家喜欢在代码中使用CurrentDb.Execute 方法运行，因为该方法使用简单，而且不会弹出确认对话框。但是CurrentDb.Execute方法也有个问题，就是无论运行的结果如何，甚至就算是SQL语句语法错误它也不会向你提示，这样我们搞不清查询是不是被正确执行了。那么如何来处理这个问题呢？这里我们可以用到Database对象的RecordsAffected属性，该属性返回的是最近调用的操作查询影响的记录行数。示例代码如下：

Dim db As Database

Set db = CurrentDb

db.Execute "Delete * FROM 员工表 Where 姓名='张三'"

If db.RecordsAffected = 0 Then

MsgBox "查询未正确执行！", vbInformation

End If

Set db=Nothing

注意，这里必须先声明一个Database对象变量，然后将变量赋为CurrentDb对象，而不能直接引用CurrentDb对象，下面这样使用是错误的，RecordsAffected属性会始终返回0。

CurrentDb.Execute "Delete * FROM 员工表 Where 姓名='张三'"

If CurrentDb.RecordsAffected = 0 Then

MsgBox "查询未正确执行！", vbInformation

End If