Access自定义函数，实现递归查询

介绍

有一个数据表，表名为测试表，表结构及内容如下：

表结构

内容

需要创建一个查询实现，统计每个节点下指定类型的个数，Access中没有CTE 递归查询，通过创建自定义函数实现

创建函数

在ACCESS数据库中没有存储过程、函数、触发器等功能。可以使用ACCESS提供的模块功能来实现

在数据库工具 选项卡中，点击 Visual Basic

新建一个模块。然后打开这个模块，在打开VBA环境下编写相应的代码来完成需要的功能。

DAO版

'引用 “Microsoft Office 16.0 Access database engine Object Library”
Public Function TypeCount(ID As Integer, TypeName As String) As Integer
  '定义变量
  Dim c As Integer
  Dim rs As DAO.Recordset
  
  '查询数据
  Set rs = CurrentDb.OpenRecordset("select * from 测试表 where 父节点 = " & ID)

  '循环统计
  Do While Not rs.EOF
    If rs("类型").Value = TypeName Then
      c = c + 1
    Else
      c = c + TypeCount(rs("编号").Value, TypeName)
    End If
    rs.MoveNext
  Loop
  
  '返回结果
  TypeCount = c
   
End Function

ADO版

'引用 “Microsoft ActiveX Data Objects 2.1 Library”
Public Function TypeCount_ADO(ID As Integer, TypeName As String) As Integer
  '定义变量
  Dim c As Integer
  Dim rs As adodb.Recordset
   
  '查询数据
  Set rs = New adodb.Recordset
  Sql = "select * from 测试表 where 父节点 = " & ID
  rs.Open Sql, CurrentProject.Connection
  
  '循环统计
  Do While Not rs.EOF
    If rs("类型").Value = TypeName Then
      c = c + 1
    Else
      c = c + TypeCount_ADO(rs("编号").Value, TypeName)
    End If
    rs.MoveNext
  Loop
  
  '返回结果
  TypeCount = c
   
End Function

调用函数

查询SQL

SELECT *, TypeCount(编号, '三级节点') as 包含三级节点数 FROM 测试表;

查询结果

参考文档

Office VBA 入门

https://learn.microsoft.com/zh-cn/office/vba/library-reference/concepts/getting-started-with-vba-in-office?source=recommendations

Microsoft ActiveX 数据对象（ADO）参考

https://learn.microsoft.com/zh-cn/office/client-developer/access/desktop-database-reference/microsoft-activex-data-objects-reference

Microsoft 数据访问对象（DAO）参考

https://learn.microsoft.com/zh-cn/office/client-developer/access/desktop-database-reference/microsoft-data-access-objects-reference

原文地址：http://www.cnblogs.com/txgh/p/16793809.html