不明白,不过这样的程序不可以简化么?
可以试试用
rs.CursorLocation = adUseClient
rs.Open Sqlstr, gsys_dbcon
Set rs.ActiveConnection = Nothing
应该不会出错
可以试试用
rs.CursorLocation = adUseClient
rs.Open Sqlstr, gsys_dbcon
Set rs.ActiveConnection = Nothing
应该不会出错
你没有谢错误处理
在出现错误的时候要进行gsys_dbcon,rollback
或者在事务进行提交之前判断错误号码
if err.number=0 then
gsys_dbcon.commits
else
gsys_dbcon.rollback
end if否则就会出现错误