怎样解决在vb中数据库打开连接未关闭的异常

在打开数据库之前就先关闭数据库一次或在catch里面d出消息框之前就关闭数据库的连接。我想这两种足以解决

你的问题

！我以前就是这样做的。

连接为关闭主要是打开发生冲突。有可能是里面用到了Time控件，你的Time在定时打开数据库而导致

private function F_Search(byval iKB as integer) as boolean

on error goto Err

dim ado As New AdoObject

on error goto exception

ado.openConn("XXXXXXXXXX")

ado.executeSQL("SQLYYYYY")

。。。。。。'其他处理省略

exit function'这句别忘了！~

err:

msgbox "ERROR"

end function

这么长的代码,眼都看花了,居然没有一分,呵呵.

调用时参数错误了.

Set rs = getrs("strsql")

txtname.Text = rs("name")——————>这句出问题了，错误如题目所示！

txtdepartnum.Text = rs("department")

strsql1 = "select name from department where id='" &rs("department") &"'"

Set rs1 = getrs("strsql1")

把这上面中getrs的参数上的引号去掉:

set rs=getrs(strsql)

......

set rs=getrs(strsql1)

---