在VB6中动态创建使用ADO控件访问数据库

使用ado控件可以方便的在vb6中访问odbc数据库，但是通过直接放置adods控件来获得ado的数据连接比较麻烦，我们可以在vb工程中创建一个公共数据模块，将ado控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ado连接。

一次完整的ado调用操作分为如下几个步骤：

1. 打开ado到数据库的连接，初始化ado recordset集。
2. 通过写入sql语句执行查询并返回查询结果recordset集；或者可以通过写入sql语句执行相应数据库操作。
3. 释放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=数据表库名称

  conn.open

  set rs = new adodb.recordset

  with rs do
    activeconnection = conn
    cursortype = adopendynamic
    locktype = adlockoptimistic
  end with
end function

'****************************
'关闭数据库
'****************************
function connclose()                       
   set rs = nothing
   conn.close
   set conn = nothing
end function

'**********************************************************
'        获得数据库路径
'  本例数据库保存在程序目录下的dbs子目录中，名为db1.mdb
'**********************************************************
public function getdatabasepath() as string
    dim spath as string
    if right$(app.path, 1) = "/" then
        spath = app.path + "dbs/"
    else
        spath = app.path + "/dbs/"
    end if
   
    getdatabasepath = spath + "db1.mdb"
end function

'end of my.bas
'-----------------------------------------------------------------

如下示例代码为my.bas的使用方法：
'-----------------------------------------------------------------
'使用rs对象执行select语句
'tablename和fieldname分别为表名和字段名
'查询结果保存在数组s中
private sub runselectcommand()
    dim s(99) as string
    dim i as integer
    i=0
    call my.connopen
        my.rs.open "select * from tablename"
        while not rs.eof
            i=i+1
            if not isnull(my.rs!fieldname) then s(i)=cstr(my.rs!fieldname)
            rs.movenext
        wend
    call my.connclose
end sub

'使用conn对象执行update/delete/insert语句
'sql语句放在变量ssql中
private sub runsqlcommand()
    dim ssql as string
    call my.connopen
        my.conn.execute ssql
    call my.connclose
end sub

'对于datagrid和datareport这些需要datasource的控件可以做如下操作
'使用select语句打开rs的数据集
set obj.datasource=my.rs
'---------------------------------------------------------------------

这个方法对于开发简单小型的mis系统很实用，也可以在报表和数据表中使用，缺点是在多表操作和函数嵌套调用时，一个动态ado对象不能同时执行两个工作，后一个写入的sql语句会覆盖先写入的sql语句，当在回到前一个过程时，会因为字段找不到而出错。因此如果可能需要进行多表操作，可以尝试多定义几个conn 和rs对象。