在上一讲中,讲了几种连接方案,ADO连接时讲了两种方案,一是前期通过引用来绑定ADO,还有一种是后期在代码中绑定,这讲中我将结合实际问题来具体的讲解一下这两种方案的利用。实际需求:利用VBA打开一个如下面图示的数据库,打开后提示连接成功,并提示ADO版本号。1 后期绑定方法也就是说在程序中绑定ADO,这种方案代码稍微多些,我们先看代码: strPath = ThisWorkbook.Path & "\mydata.accdb" Set cnADO = CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" MsgBox "数据库连接成功!" & vbCrLf & _ vbCrLf & "ADO版本为:" & cnADO.Version & vbCrLf & _ vbCrLf & "Connection对象提供者名称:" & cnADO.Provider MsgBox "数据库连接失败!", vbInformation, "连接数据库"代码解析:上述代码是ADO后期绑定的一个典型的代码,大家可以收藏并利用它。① strPath = ThisWorkbook.Path & "\mydata.accdb"语句把数据库存在的路径放在了变量strPath中。Set cnADO = CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" MsgBox "数据库连接成功!" & vbCrLf & _ vbCrLf & "ADO版本为:" & cnADO.Version & vbCrLf & _ vbCrLf & "Connection对象提供者名称:" & cnADO.Provider2 我们再看看前期绑定的时候该如何书写代码 Dim cnADO As New ADODB.Connection 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① 和上述代码不同的是这里用了Dim cnADO As New ADODB.Connection 即声明了一个新的ADO连接cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath特别提示:运行前一定要引用上ADO,我这里只是给出截图,如何设置引用在上节已经讲过,这种连接方法和上面的方法都是在实际中可以利用的方法,需要的朋友一定要收藏,不必再去编写代码,测试了,上面就是两种绑定方案的讲解。这两种方案可以在实际代码中利用它。
|