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

原创 2005年05月27日 22:22:00

在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对象。

vb.net 教程 3-13 动态创建控件1

前面介绍的都是通过拖拽或者双击工具箱中的控件后,在窗体上创建控件。 如果不采用以上方法是不是就不能创建和使用控件呢? 肯定可以在代码中创建的。 基本步骤 1、定义一个窗体级别的变量,类型为需要的控...

VB6批量动态控件数组事件响应

  • 2016年09月02日 09:47
  • 2KB
  • 下载

vb.net 教程 3-13 动态创建控件3

在vb6的时候,很方便在设计的时候创建控件数组。 例如两个按钮控件(CommandButton),当修改其中一个控件名称与另外一个控件名称一样时,vb6编辑器会提示: 按下“是”就会创建控件数...

使用MFC+ADO+SQL2008(Access)如何动态创建数据库和表

SQL要动态创建数据库,MFC中编程实现方法是:首先连接master数据库,然后查询sysdatabases表中是否存在需要创建的数据库名,如果有则不用创建,否则进行新数据库的创建,新数据库的创建直接...

ADO对象动态创建数据库和表

  • 2010年06月21日 14:06
  • 35KB
  • 下载

VB6 通过winsock控件数组实现客户端和服务器多对一通信

在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信,如果把客户端和服务器放置于同一台电...

VB6 安装完成,添加Windows Common Controls 6.0控件,报错Object Library Not Registered

文章主要来自整理,以备不时之需。 1.我的系统为win7 专业版+sp1,在准备安装vb之前系统已经安装vs2010,+sqlserver2005 2.安装vb英文版,安装完成后重启计算机.(未进行m...

vb6远程数据访问控件(netdata)

  • 2009年05月22日 23:44
  • 73KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB6中动态创建使用ADO控件访问数据库
举报原因:
原因补充:

(最多只允许输入30个字)