ADO连接Access的前期绑定方法实例（下）

【分享成果，随喜正能量】眾生多悲苦，發願‬菩提心。願今天所有聽見我、看見我、憶念我的眾生，因我心而‬生喜悅！除消身心的痛苦！種下脫解‬的種子！願我等‬身心念力所及之處一切眾切‬生因佛得度，所修善根，回向眾生，共證無上菩提。

《VBA数据库解决方案》教程（10090845）是我推出的第二套教程，目前已经是第二版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：第五讲：ADO连接Access的前期绑定方法实例（下）

第五讲 ADO连接Access前期绑定与后期绑定方法实例（上）

2我们再看看前期绑定的时候该如何书写代码

这种方式代码非常的简单：

Sub mynzConnection_5_2()

    Dim cnADO As New ADODB.Connection

    Dim strPath As String

    strPath = ThisWorkbook.Path & "\mydata.accdb"

    cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

    If cnADO.State = adStateOpen Then

        MsgBox "数据库连接成功！" & vbCrLf & _

            vbCrLf & "ADO版本为：" & cnADO.Version & vbCrLf & _

            vbCrLf & "Connection对象提供者名称：" & cnADO.Provider

        cnADO.Close

        Set cnADO = Nothing

    Else

        MsgBox "数据库连接失败！"

    End If

End Sub

代码截图：

代码讲解,

①和上述代码不同的是这里用了Dim cnADO As New ADODB.Connection声明了一个新的ADO连接

②这个时候直接打开连接即可：

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

看我们代码的运行：

特别提示：运行前一定要引用上ADO，我这里只是给出截图，如何设置引用在上节已经讲过，这种连接方法和上面的方法都是在实际中可以利用的方法，需要的朋友一定要收藏，不必再去编写代码，测试了。

代码的运行：

上面就是两种绑定方案的讲解。这两种方案可以在实际代码中利用它。

今日内容回向：

1 前期绑定与后期绑定有什么不同？

2 前期绑定与后期绑定在代码的书写上有什么异同？

本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：