 |
可以使用错误捕获方法可以确认记录集对象是否关闭。
例:
Dim rs As ADODB.Recordset '定义rs为记录集对象
On Error Goto ErrHandle '设置错误陷井
rs.Close '关闭记录
ErrHandle: '出错处理
Msgbox "记录集对象未打开或已关闭"
 蒋建华的意见：
可判断记录集属性state值，adStateClosed已关闭，adStateOpen是打开的:
dim rs as adodb.recordset
.....
if rs.state=adStateOpen then rs.close
黄明、dcq的意见：
可以通过记录集的State属性。
例：（rs.state and adstateopen) = 1 表示当前记录集打开，为0关闭
阿青的意见：
If Not rs Is Nothing Then
If rs.State=1 Then
'do something
end if
end if
此问题由陈国桥回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 数据库, database, query。
|
如何编写语句判断一个记录集对象是否关闭
