我一般是这么做的:
If rs.State = 1 Then rs.Close
If rs.State = 1 Then rs.Close
解决方案 »
- Rnd(100)的数据按档位进行靠位的算法.
- PICTURE控件
- 急!急!access数据库中表的排序
- 一个画图板中的橡筋线问题-菜鸟入门级问题
- 如何 使宏无效 打开文件
- 我要从服务器上下载一个文件!!请给代码
- 窗体Resize事件问题
- 向大家请教,怎样列出符合查询条件的纪录的各项数据呢?我编完后运行总是“没有找到该数据”可是我明明输入和数据库表里相应字段一样的字符串了阿,可就是查不到,也无法显示找到的数据
- to unruledboy(燃烧自己,点亮他人,南海佬是也!)你不是早就解决问题了吗?怎么不来领分?
- 请问如何判断listbox中是否为空呀?如果为空则某按钮可用,请高手将代码编出来,谢谢你了!
- 请教一个问题,分割文本的问题
- vb6的data控件不能访问access2000数据库,如何解决,是不是装一个Jet 4.0就可以了,那里可以下载?
Set cn_s1 = New ADODB.Connection cn_s1.Open "Provider=MSDAORA.1;
Password=*;
user id= ** ;
Data Source = ***;" strsql = "delete from *** where carton_no=’13’
cn_sl.execute strsql
因为当你的记录集对象rs为空时,用close方法就会产生错误!
因为你可能del是最后一条记录
要是你想用rs的话可以用shepherd228(牧羊人)的方法!
也可以不用rs.close
因为在这个模块结束后系统会将rs的占的内存空间还给你的!
记录集一般用于返回记录,所以除了,select语句都可以不要用记录集打开了,
如果你用close方法错误,很可能就是,它已经关闭了
试试
Set rs = Nothing
关了rs又不会出错