鲁达 大家好,今日继续讲解VBA数据库解决方案，今日的内容是第70讲: 数据查询中，三个工作表联合查询的方法。在各种查询中，内连接，左外连接，右外连接等等，这些方法大家在工作中要多加利用，并且灵活利用，利用多了，知识就变成自己的了。今日我们讲解的是三个工作表的联合查询，也就是说三个工作表的数据要一次查询。我们还是看下面的实例讲解。
实例，我们有三个工作表，工作表"数据3"，工作表"数据7"，工作表"数据8"数据如下：
我们在上面的三个工作表中以员工编号为线索，要返回三个表的联合表格，同时字段要全字段，员工编号,姓名,年龄,民族,植树数量,成活数量，这个代码要如何写呢？下面看我的代码:
Sub mynzRecords_70() '第70讲 三表查询SQL
Dim cnADO, rsADO As Object
Dim strPath, strSQL As String
Worksheets("70").Select
Cells.ClearContents
Set cnADO = CreateObject("ADODB.Connection")
Set rsADO = CreateObject("ADODB.Recordset")
strPath = T
cnADO.Open "provider=Micro;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath
strSQL = "select A.员工编号,B.姓名,B.年龄,C.民族,A.植树数量,A.成活数量" _
& " from [数据3$] as A,[数据7$] as B,[数据8$]" _
& " as C where A.员工编号=B.员工编号 and B.员工编号=C.员工编号 group by " _
& "A.员工编号,B.姓名,B.年龄,C.民族,A.植树数量,A.成活数量"
'打开记录集
r strSQL, cnADO, 1, 3
For i = 1 To r
Cells(1, i) = r(i - 1).Name
Next
'提出数据
Range("a2").CopyFromRecordset rsADO
'释放内存
r
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub
代码截图：
代码解读：
1 上述代码就是要联合数据3工作表、数据7工作表、数据8工作表，通过A.员工编号=B.员工编号 and B.员工编号=C.员工编号量实现三表联合查询
2 strSQL = "select A.员工编号,B.姓名,B.年龄,C.民族,A.植树数量,A.成活数量" _
& " from [数据3$] as A,[数据7$] as B,[数据8$]" _
& " as C where A.员工编号=B.员工编号 and B.员工编号=C.员工编号 group by " _
& "A.员工编号,B.姓名,B.年龄,C.民族,A.植树数量,A.成活数量"
上述SQL 语句就是实现三表联合查询的代码。
3 上述查询中需要注意的是后面的group by 语句的写法，大家在复制代码的时候要注意格式，不可以写错。
下面看代码的运行：
今日内容回向：
1 如何实现三表联合查询？
2 三表联合查询中是通过什么来实现的？