| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3820 人关注过本帖
标题:技术请教:下面的代码运行时报错?
只看楼主 加入收藏
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 9楼 风吹过b
程序代码:
Private Sub Image4_Click()

Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2

If RS.State <> adStateClosed Then


Image8.Visible = True

Image8.Picture = Form2.Image62.Picture

Else
Image8.Picture = Form2.Image63.Picture


'  释放相应的资源
RS.Close
conn.Close
    Set RS = Nothing
    
    Set conn = Nothing

Exit Sub

End If

End Sub
2020-05-21 07:19
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
那你只能 在这个地方中断一下,然后在本地窗口里,检查 rs 的属性。
看看有哪个属性能标识RS 的状态的。

授人于鱼,不如授人于渔
早已停用QQ了
2020-05-21 08:09
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
用这个判断呢?

if  rs is Nothing then     
'如果对象没有引用任何对象


---------------
我直接定义一个RS,然后不做任何操作时,在本地窗口 中 rs 的属性直接为 Nothing


授人于鱼,不如授人于渔
早已停用QQ了
2020-05-21 08:12
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:7 

程序代码:
Private Sub Image4_Click()

Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2
    If RS.State <> adStateClosed Then
        Image8.Visible = True
        Image8.Picture = Form2.Image62.Picture
    Else
        Image8.Picture = Form2.Image63.Picture
        ' 这里取消 Exit Sub 语句
    End If
    '将 关闭对象语句移动到判断语句之外
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn = Nothing
End Sub

请不要选我!!!
2020-05-21 13:38
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 14楼 ZHRXJR
图片附件: 游客没有浏览图片的权限,请 登录注册



报错依旧。。。。。
2020-05-21 17:37
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
检查其他过程,可能没有关闭 RS 对象

请不要选我!!!
2020-05-23 13:27
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 16楼 ZHRXJR
好的,我再查查。
2020-05-23 13:30
pt497159
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-3-20
收藏
得分:0 
Call KKK(conn)
Set rs = New ADODB.Recordset
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2

Image8.Visible = True

Image8.Picture = Form2.Image62.Picture
If rs.State = 1 Then rs.Close
2020-06-18 00:41
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:76
帖 子:279
专家分:1367
注 册:2006-6-25
收藏
得分:0 
有这个提示了,说明rs是在关闭状态,不需要再关闭了。
感觉 delete * from 数据 Where 确认状态= 'NG'"就是直接删除数据。

确认对应的记录已经被删除,那么这个关闭语句就不要了。
2020-06-18 10:22
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 19楼 cwa9958


这是最让我能够理解满意的答案,谢谢
2020-06-19 18:08
快速回复:技术请教:下面的代码运行时报错?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056809 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved