如何判断数据集已经打开啊？

[aiguo25]

我在做数据库变成的时候，数据集 rs
rs.open"select .........."
如果忘记rs.close的话，下次再 rs.open的话，就报错，
如何判断 rs是否打开啊？

[starsoulxp]

利用rs.state判断

[starsoulxp]

方法一：
可以使用错误捕获方法可以确认记录集对象是否关闭。
例:
Dim rs As ADODB.Recordset '定义rs为记录集对象
On Error Goto ErrHandle '设置错误陷井
rs.Close '关闭记录
ErrHandle: '出错处理
Msgbox "记录集对象未打开或已关闭"

[starsoulxp]

方法二：
可判断记录集属性state值，adStateClosed已关闭，adStateOpen是打开的:
dim rs as adodb.recordset
.....
if rs.state=adStateOpen then rs.close

[aiguo25]

回答的很好，满分
就用
if rs.state=adStateOpen