通过设置Connection对象属性连接Access数据库的方法

                               

                        在通过VBA程序访问Access数据库时，首先需要连接数据库。在VBA中，使用ADO对象模型可以连接到各种不同类型的数据库，这都是通过设置Connection对象的相应属性完成的。Connection对象表示打开的连接到数据库的链接。无论对数据库进行何种操作，首先需要完成的都是生成该对象以连接到数据库。本文介绍通过设置Connection对象属性来连接Access数据库的方法。
        1、新建Excel工作簿，打开Visual Basic编辑器，在工程资源管理器中添加一个模块，在“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：
        Sub ConnectToAccess()
        Dim conn As New ADODB.Connection
        conn.Provider="Microsoft.Jet.OLEDB.4.0" '指定Connection对象提供者的名称
        conn.ConnectionString="data source="&_ThisWorkbook.Path&"\dbSource.mdb" '指定Connection对象的连接字符串
        conn.Mode=adModeReadWrite '指定数据库读写模式
        conn.Open '打开到指定数据库的链接
        Debug.Print conn.ConnectionString '输出连接字符串
        Debug.Print conn.ConnectionTimeout '输出连接超时时间
        Debug.Print conn.Mode '输出数据库读写模式
        Debug.Print conn.Provider '输出提供者名称
        Debug.Print conn.Version '输出ADO版本号
        Debug.Print conn.State '输出连接当前开启状态
        End Sub

       

        图1　插入模块并输入程序

        2、按F5键运行"ConnectToAccess"过程，此时在“立即窗口”中将会获取程序运行结果，如图2所示。

       

        图2　“立即窗口”输出结果

        提示
        这里要注意的是，在"ConnectionToAccess"过程中指定ConnectionString属性时，只给出了data source相关内容，但是在输出该属性时，却获取了很多内容，其中就包含Provider属性的相关信息。