ADO对象的关闭以及数据库压缩

一般来说，自定义ADO对象连接对数据库操作比较容易控制，大部分资料 也讲解的多，对于ADO控件，资料一般只是介绍如何使用ADO控件访问数据库以及如 何绑定其他控件显示，而对于关闭ADO控件的连接讲解比较少，我的程序想在主界 面使用ADO控件显示数据库，还允许用户进行数据库压缩。虽然代码比较简单， 但是还是费了不少功夫，本来还想单独作个小程序算了，后来终于解决了。进行了 一下小结，希望对数据库开发人员有所帮助。

Vb使用ADO对数据库操作一般有两种方式，分别是自己定义控制连接以及使用ADODC控件进行数据库访问。

一、自己定义连接

Public BILL_CON As String    '定义连接字符串

Public billconn As New ADODB.Connection '定义全局ADO连接变量

Public billcmd As New ADODB.Command    'ADO命令
Public billrs As New ADODB.Recordset       'ADO记录

BILL_CON = "Provider=Microsoft.Jet.OLEDB.4.0;
Persist Security Info=True;
Data Source=" + Str_AppPath + "bill.mdb" + ";
Jet OLEDB:Database Password='123456'" 

    billconn.Open BILL_CON

    Set billcmd.ActiveConnection = billconn

    billrs.CursorLocation = adUseClient

    billcmd.CommandText = "select * from eee"

    billrs.Open cmd, , adOpenDynamic,adLockOptimistic

上述代码就是打开一个数据库并执行一条查询命令

billrs.Close

Set billrs = Nothing

Set billcmd =Nothing

billconn.Close

Set billconn = Nothing

上述代码就关闭连接，并释放资源。

一般这个方法比较容易控制，介绍也比较多，这里不多做解释了