【VBAPlanet】VBA+ADO+SQL,这样取数真香

ADO是什么

首先,我们要介绍下ADO。
ADO (ActiveX Data Objects,ActiveX数据对象)是微软提出的应用程序接口,用以实现访问关系或非关系数据库中的数据……更多概念信息可以自行搜索。

之所以要学习ADO,一个原因是ADO自身的一些属性和方法对于数据处理是极其有益的;更重要的原因是,在EXCEL VBA中,一般只有通过ADO,才可以使用强大的SQL查询语言访问外部数据源,进而查、改、增、删相关数据源中的数据。

延伸在具体编程操作上,就形成了四步走发展战略:

  1. VBA引用ADO类库。
  2. ADO建立对数据源的链接。
  3. ADO执行SQL语言。
  4. VBA处理SQL查询结果。

如何引用ADO

VBA中引用ADO类库一般有两种方式。

一种是前期绑定。

所谓前期绑定,是指在VBE中手工勾选引用Microsoft ADO相关类库。

在Excel中,按快捷键打开VBA编辑窗口,依次单击【工具】→【引用】,打开【引用-VBAProject】对话框。在【可使用的引用】列表框中,勾选“Microsoft ActiveX Data Objects 2.8 Library”库,或“Microsoft ActiveX Data Objects 6.1 Library”库,单击【确定】按钮关闭对话框。

【VBAPlanet】VBA+ADO+SQL,这样取数真香_第1张图片

另一种是使用代码后期绑定。

Sub 后期绑定()
    Dim cnn As Object
    Set cnn = CreateObject("adodb.connection")
End Sub

两种方式的主要区别是,前期绑定后,在代码编辑过程中,VBE的“自动列出成员”功能,可以提供ADO的属性和方法,这便于代码快捷、准确的编写。但当他人的Excel工作簿并没有手工前期绑定ADO类库时,相关代码将无法运行。因此后期代码绑定ADO的通用性会更强些,它不需要手工绑定相关类库。

比较好的用法是,代码编写及调试时,使用前期绑定,代码编写完善后,再修改为后期绑定发布使用。

不论我们使用SQL语言对数据源作何操作,都得首先使用ADO创建并打开一个到数据源的链接;这就好比得先修路,才能使用汽车运输货物。

在VBA中,我们通常使用ADO的Connection.Open语句来显式建立一个到数据源的链接。

Connection.Open语法如下:

connection.Open ConnectionString, UserID, Password, Options
  • ConnectionString可选,字符串,包含连接信息。
  • UserID可选,字符串,包含建立连接时所使用用户名。
  • Password可选,字符串,包含建立连接时所使用密码。
  • Options可选,决定该方法是在连接建立之后(异步)还是连接建立之前(同步)返回,默认是同步,adAsyncConnect是异步。

虽然不同的数据库或文件有不同的连接字符串,但常用的数据库或文件的连接字符串均是固定的。

举个例子,如果将代码所在的Excel(2019版)作为一个外部数据源建立链接,代码如下:

Sub Testcnn()
    Dim cnn As Object	' 定义变量
    Set cnn = CreateObject("adodb.connection")	' 后期绑定ADO
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
    ' 建立链接
    cnn.Close	' 关闭链接
    Set cnn = Nothing	' 释放内存
End Sub

简单说下上面代码连接字符串中各关键字(第4行代码)的意思。

  • Provider是Connection
    对象提供者名称的字符串值,03版Excel是“Microsoft.jet.OLEDB.4.0”,其它版本可以使用“Microsoft.ACE.OLEDB.12.0”;
  • Extended Properties是Excel版本号及其它相关信息,03版本是Excel 8.0,其它版本可以使用Excel
    12.0。
  • 其中HDR项是引用工作表是否有标题行,默认值HDR=Yes,意思是引用表的第一行是标题行。标题只能一行,不能多行,亦不能存在合并单元格。HDR=no,意思是引用表不存在标题行,也就是说第一行开始就是数据记录了;此时,相关字段名在SQL语句中可以使用f加序列号表示,第1列字段名是f1,第2列字段名是f2,其余以此类推,f是英文field(字段)的缩写。
  • IMEX项是汇入模式,默认为0(只读模式),1是只写,2是可读写。当参数设置为1时,除了只写,还有默认全部记录数据类型为文本的用途,关于这一点及其限制前提我们以后再谈。
  • Data Source是数据来源工作薄的完整路径。

VBA代码Application.Version可以获取计算机的Excel版本号,因此以下代码兼顾了03及各高级版本Excel的情况:

Sub Testcnn2()
    Dim cnn As Object
    Dim strPath As String
    Dim str_cnn As String
    Set cnn = CreateObject("adodb.connection")
    strPath = ThisWorkbook.FullName '当前工作簿的完整路径
    If Application.Version < 12 Then '判断Excel版本号,以使用不同的连接字符串
        str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    cnn.Close
    Set cnn = Nothing
End Sub

最后,需要提醒大家的是,链接是一种昂贵的资源(官方语),因此在代码运行完毕后,请养成关闭链接(cnn.Close)并释放内存(Set cnn = Nothing)的好习惯。

如何使用ADO执行SQL语句

聊完了如何绑定ADO以及建立与数据源的链接,最后说下如何使用ADO执行SQL语句。

我们可以使用ADO的Connection对象或Recordset、Commannd执行SQL语句;这里大家只需要先了解Connection对象的Execute方法就可以了。

这是一个最常用的VBA+ADO+SQL套路化查询代码。

Sub DoSql_Execute1()
    Dim cnn As Object, rst As Object
    Dim strPath As String, str_cnn As String, strSQL As String
    Dim i As Long
    Set cnn = CreateObject("adodb.connection")
    '以上是第一步,后期绑定ADO
    '
    strPath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    '以上是第二步,建立链接
    '
    strSQL = "SELECT 姓名,成绩 FROM [Sheet1$] WHERE 成绩>=80"
    'Sql语句,查询Sheet1表成绩大于80……姓名和成绩的记录
    Set rst = cnn.Execute(strSQL)
    'Execute()执行SQL语句,始终得到一个新的记录集rst
    '以上是第三步,编写并执行SQL
    '
    Worksheets("结果表").Select '选中存放结果的工作表
    Cells.ClearContents '清空值
    For i = 0 To rst.Fields.Count - 1
    '利用fields属性获取所有字段名,fields包含了当前记录有关的所有字段,fields.count得到字段的数量
    '由于Fields.Count下标为0,又从0开始遍历,因此总数-1
        Cells(1, i + 1) = rst.Fields(i).Name
    Next
    Range("a2").CopyFromRecordset rst
    '使用单元格对象的CopyFromRecordset方法将rst内容复制到A2单元格为左上角的单元格区域
    '以上是第四步,将SQL查询结果和字段名写入表格指定区域
    '
    cnn.Close '关闭链接
    Set cnn = Nothing '释放内存
End Sub

简洁版(不考虑复制表头列名称)

Sub DoSql_Execute2()
    Dim cnn As Object, rst As Object
    Dim strPath As String, str_cnn As String, strSQL As String
    Dim i As Long
    Set cnn = CreateObject("adodb.connection")
    '以上是第一步,后期绑定ADO
    '
    strPath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    '以上是第二步,建立链接
    '
    strSQL = "SELECT 姓名,成绩 FROM [Sheet1$] WHERE 成绩>=80"
    'Sql语句,查询Sheet1表成绩大于80……姓名和成绩的记录
    Worksheets("结果表").Select '选中存放结果的工作表
    Cells.ClearContents '清空值
    Range("a2").CopyFromRecordset cnn.Execute(strSQL)
    'Execute语句先执行SQL语句
    '使用单元格对象的CopyFromRecordset方法将SQL查询到的内容复制到A2单元格为左上角的单元格区域
    '此法代码简洁,但未能获取标题栏信息
    '以上是第三步,执行SQL语句并将数据读入表格指定区域
    '
    cnn.Close '关闭链接
    Set cnn = Nothing '释放内存
End Sub

以上。通常,我们只需要修改SQL语言以及放置查询结果的工作表名称。

你可能感兴趣的:(VBAPlanet,excel,sql)