在Set RCopetask = DEtoGlzj.rsComopetask语句前叫一下代码:
IF NOT DETOGLZJ.CONNECTIONNAME.STATE=ADSTATEOPEN THEN
DETOGLZJ.CONNECTIONNAME.OPEN
END IF
IF NOT DETOGLZJ.RSCOMPETASK.STATE=ADSTATEOPEN THENEND IF
IF NOT DETOGLZJ.CONNECTIONNAME.STATE=ADSTATEOPEN THEN
DETOGLZJ.CONNECTIONNAME.OPEN
END IF
IF NOT DETOGLZJ.RSCOMPETASK.STATE=ADSTATEOPEN THENEND IF
解决方案 »
- 关于vb发布的一很奇怪的问题
- 这样的按钮 在webbrowser里怎么点啊(急急急)
- 如何用VBA将WORD里面的重点信息存入于EXCEL表中
- 操作数据库时明明是有错误但没有抛出错误,且照样成功执行
- 我想在程序中控制另一个程序文本框的输入,能行吗?
- 要回家了,公司竟然发奖金了,晕倒,放分200
- 小程序,<注册--登陆验证>问题,总是不成功,请教各位大侠
- ★★源码放松★★ 经典:让窗体的白色部分透明,这个可不一般。
- 那位朋友能体提供繁体版的windows98,我要做个测试。
- outlook改变默认帐号
- Frame的背景面能加入图片吗~~~~~~~~~~~~!谢谢您
- 请教各位,如何将窗体及上面的控件保存成图片??????
其中CONNECTIONNAE为你的COMMAND所属于的连接名
with DEtoGlzj.rsComopetask
if .state=adstateopen then .close
.open "SELECT * FROM [TableName]"
:
End with