正确关闭 vb.net 中的 adodb 连接

Question

在vb.net中，有一些应用程序使用adodb来访问mysql服务器。

private adoconnect as new adodb.connection
public adors as new adodb.recordset

public function returnadors(byval column as string) as string
 return adors.fields(column).value.tostring
end function


Public Function ReadData(ByVal strQuery As String, Optional ByVal strWhere As String = vbNullString) As Boolean

        Try

            If ADOConnect.State = ConnectionState.Open Then Call CloseConnection()
            ADOConnect.Open(dsn, user, pass)
            ADORS.Open(strQuery, ADOConnect, ADODB.CursorTypeEnum.adOpenDynamic)
            If not ADORS.EOF  Then Return True

        Catch ex As Exception

            msgbox(ex)

        End Try

        Return False

End Function

public sub closeconnection()
   if adoconnect.state = connectionstate.open then adoconnect.close
end sub

现在假设我们想用数据库中的内容填充文本框：

if readdata("SELECT NAME FROM USERS WHERE ID = 1") then
    me.textbox1.text = returnadors("NAME")
end if
call closeconnection

重新编写这些函数是一项艰巨的任务 - 除非绝对需要，否则我对这样做不感兴趣。

这是我的问题。

即使连接关闭（并且我已单步执行代码，它也会关闭） 连接在处于睡眠状态的sql server上仍然可见，

为什么？我怎样才能确保连接已关闭。

谢谢

Answer 1

将以下内容添加到您的 ConnectionString 中：

Pooling=False;

Answer 2

我对你正在做的事情没有太多经验，但这通常是我使用 sqlserver 连接所采取的路径。 使用将自动关闭您的连接。

Using ADOconnect
   'operations
End Using