检查你的Set
rs_user
=
ExecuteSQL(txtSQL,
MsgText)这个代码中的ExecuteSQL函数,该函数在退出时将数据库连接和记录集都关闭了,因此,实际上你的记录集对象无效
msgText是干什么用的?是SQL数据库的连接字符串么?像是没有赋值。
另外,当Dim 记录集的时候已经DIM成New ADODBRecordSet后,使用时就不必再SET 为New ADODBRecordSet了。
一般我使用ADO的时候是用
Dim Rs AS New ADODBRecordSet
Dim CN As New ADODBConnection
dim StrData as String '数据库边接字串
Dim sqlTxt as string '将要被执行的SQL语句
cnconnectionstring=strdata
cnopen
sql="SELECT"
Rsopen sql,cn,1,1 '只读,是否只读在于后面两个参数。
以上就是关于VB运行时错误\"3704\",对象关闭时,不允许 *** 作全部的内容,包括:VB运行时错误\"3704\",对象关闭时,不允许 *** 作、求助VB编程高手,实时错误3704 对象关闭时 不允许 *** 作、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)