Question

VB.NET里如何关闭ADODC控件连接

ADODC连接了数据库,把窗口关闭了却发现数据库还在打开,想把数据库连接的ADODC关闭,该如何关闭?

Answer 1

使用ADO控件可以方便的在VB6中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据连接比较麻烦，我们可以在VB工程中创建一个公共数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ADO连接。
一次完整的ADO调用操作分为如下几个步骤：
打开ADO到数据库的连接，初始化ADO RECORDSET集。
通过写入SQL语句执行查询并返回查询结果RECORDSET集；或者可以通过写入SQL语句执行相应数据库操作。
释放RECORDSET集，关闭数据库连接。
需要注意的是，每个动态创建的ADO同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ADO。
下面是相关的代码：
'-----------------------------------------------------------------
'如下代码保存在名为my.bas的工程模块中
Public CONN As Adodb.Connection '定义ADO CONNECTION对象
Public RS As Adodb.Recordset '定义ADO RECORDSET对象
'****************************
'打开数据库连接
'****************************
Function ConnOpen()
Dim ASTR As String
Set CONN = New Adodb.Connection
ASTR = GetDatabasePath 'MDB文件数据库路径
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ASTR & ";Persist Security Info=False"
'本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串：
'Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称

Answer 2

ADODC自身大包了关闭功能，出现这样的问题，很有可能是程序在运行中途出现错误跳出，致使ADODC链接没断开。退出VB.NET重新进入，不行就只能重启了。

Answer 3

在关闭窗口前或者使用完数据库操作后执行下OleDbConnection的Close方法就行了.