判断 Recordset 是否打开，是则关闭，rs.close ,怎么判断？？？

AbsAbsAbs 2004-03-25 06:18:42

...全文

193 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

artoksxb 2004-03-25

打赏
举报

if rs.state=1 then rs.close

铁拳 2004-03-25

打赏
举报

'後面再加上
rst.open

铁拳 2004-03-25

打赏
举报

' 正確的寫法應該是
if rst.state<>adstateclosed then
rst.close
end if

victorycyz 2004-03-25

打赏
举报

上面各位说的都正确。

不过，有一个细节要注意，因为state属性是存储的位值。所以，最好是按拉的运算方式来处理：

if rs.state and adstateopen then
msgbox "已打开"
else
rs.open
end if

慕容红雪 2004-03-25

打赏
举报

recordset.state

easydone 2004-03-25

打赏
举报

通过rs.State判断

popraincn 2004-03-25

打赏
举报

就是这个样子，俺用过，if rs.State = adStateOpen then rs.Close

intersun 2004-03-25

打赏
举报

if rs.State = adStateOpen then rs.Close

射天狼 2004-03-25

打赏
举报

if rs.State = adStateOpen then rs.Close

ADODB.Recordset (0x800A0E78)---数据库操作错误（rs没有打开表不能用rs.close结束)(rs已经关闭,不能再用rs读取数据) ADODB.Recordset (0x800A0E79)---数据库操作错误（rs已经打开一个表,不能再打开别的表) ADODB....

Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = cn.Execute("SELECT UserName , Password FROM 超级用户 ") If rs.EOF Then rs.Close Set rs = Nothing Unload Me Load FrmMain Exit ...

Private rs As ADODB.Recordset Public userName As String Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOK_Click() Call login End Sub Private Sub Form_Activate() Call conDB Set ...

rs.open sql,conn：如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.close在文件最后再写rs.close 中间可以来多个记录集rs1.open sql1,conn，最后一块关闭记录集:rs.close rs1....

set rs=server.CreateObject("adodb.recordset") rs.Open "select * from [admin] where UserPassword='"&UserPassword&"' and admin='"&admin&"' " ,conn,1,1 if rs.bof and rs.eof then response.write ...

VB基础类

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章