求一条Sql语句

扑腾

一、运行环境 win7 64位 + office 2007 +access2007
二、问题简述：
在数据库“信息卡”中有多张表，每张表的工号和姓名都是通用的，想实现的查询结果：以组为单位贴出查询结果。即[a1]中输入X，就查询X组人员的家庭成员信息，从[A2]处开始粘贴结果。

感谢2楼和3楼的大咖帮助，问题丝滑解决！

HANERBABA

Sub test()
Dim cnn, rst, Str$, Sql$
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
Str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\信息卡.accdb"
cnn.Open Str
'Sql = "select * from 家庭成员"
t = [a1]
Sql = "select * from 家庭成员 where  姓名 in (select 姓名 from 基础表 where 组别 = '" & t & "')"
Set rst = cnn.Execute(Sql)
[a2].CopyFromRecordset rst
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub  


你试试看

WANT-T

1. 
   
2. Sql = "SELECT A.工号,B.姓名,B.成员排序,B.关系,B.成员名称,B.成员电话 " & _
   
3.     "FROM 基础表 A LEFT JOIN 家庭成员 B ON B.编号 = A.编号 " & _
   
4.     "WHERE A.组别='" & 组别 & "'"
   

复制代码

扑腾

WANT-T 发表于 2024-10-9 15:11

谢谢，谢谢帮助！

扑腾

HANERBABA 发表于 2024-10-9 15:07
Sub test()
Dim cnn, rst, Str$, Sql$
Set cnn = CreateObject("ADODB.Connection")

感谢帮助，起先没看到回复信息