求助：使用SQL找出所有表一序号在表二中数据，合并在一起

ztccsj

各位大神：求助
      需求：
1、将与sheet1中所有设备序列号相同的，在sheet2中全部提取出来，与sheet1中的所有数据，合并在一起
2、需要使用sql方法

举例：29440316在sheet2中有7条，在sheet1中有1条
合并后按照设备序列号进行排序，所有序列号找出后全部数据显示在这里
我参考join /union等都没有成功，我的数据量很大，几十万条，所以需要使用sql,谢谢

表数据类型：请详见附件

设备序列号	维修时间	诊断原因	维修内容
29440316	2018/5/2	误操作	正常
29440316	2018/1/3	软件故障	该设备多次出现身份证读取失败，之前调整更换均未解决，本次采集数据。白天忘记开call，具体采集时间为白天11点
29440316	2018/1/5	无故障	清理二代证
29440316	2018/2/7	无故障	巡检，清洁
29440316	2018/4/2	介质问题	硬件正常，提交给后台处理
29440316	2018/4/12	介质问题	拷贝数据
29440316	2018/5/2	软件故障	调试软件
29440316	2018/5/9	软件故障	重装系统

as42065300

1. select * from (select * from [Sheet1$a:d]  union all select * from [Sheet2$a:d])

复制代码

ivccav

上传附件时提示：Upload Error: 502。

你把代码复制到你的文件即可。

1. Sub test()
   
2. Dim strConn, strSql
   
3. Application.ScreenUpdating = False
   
4. Set cnn = CreateObject("adodb.connection")
   
5. strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;IMEX=1;HDR=YES';Data Source=" & ThisWorkbook.FullName
   
6. strSql = "SELECT * FROM (SELECT 设备序列号,维修时间,诊断原因,维修内容 FROM [Sheet1$] UNION ALL SELECT B.设备序列号,B.维修时间,B.诊断原因,B.维修内容 FROM [Sheet1$] A INNER JOIN [Sheet2$] B ON A.设备序列号=B.设备序列号) ORDER BY 设备序列号"
   
7. cnn.Open strConn
   
8. Range("a1").CurrentRegion.Offset(1).ClearContents
   
9. Range("a2").CopyFromRecordset cnn.Execute(strSql, , 1)
   
10. Application.ScreenUpdating = True
    
11. End Sub
    

复制代码

zpy2

数据量这么大，一次提取这么多，二个表相当于union,不能看那一条提取那一条吗？

opiona

可选择性查询的：

1.    
   
2.     Set SH0 = Sheets("Sheet1")
   
3.     Set SH2 = Sheets("Sheet2")
   
4.     Set SH1 = Sheets("合并后效果")
   
5.    
   
6.     STRPUT = InputBox("输入查询序列号" & vbCrLf & "例如部分序列号：099" & vbCrLf & "空白 或者全部，则查询全部", "输入查询条件", "全部")
   
7.     Rem 组合SQL语句
   
8.     StrSQL = ""
   
9.     StrSQL = StrSQL & "SELECT 设备序列号,维修时间,诊断原因,维修内容"
   
10.     StrSQL = StrSQL & " FROM ("
    
11.     StrSQL = StrSQL & "SELECT 设备序列号,维修时间,诊断原因,维修内容"
    
12.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$]"
    
13.     If Len(STRPUT) > 0 And STRPUT <> "全部" Then
    
14.         StrSQL = StrSQL & " WHERE INSTR(设备序列号,'" & STRPUT & "')>0"
    
15.     Else
    
16.         StrSQL = StrSQL & " WHERE  NOT 设备序列号 IS NULL"
    
17.     End If
    
18.     StrSQL = StrSQL & " UNION ALL "
    
19.     StrSQL = StrSQL & " SELECT 设备序列号,维修时间,诊断原因,维修内容"
    
20.     StrSQL = StrSQL & " FROM [" & SH2.Name & "$]"
    
21.     If Len(STRPUT) > 0 And STRPUT <> "全部" Then
    
22.         StrSQL = StrSQL & " WHERE INSTR(设备序列号,'" & STRPUT & "')>0"
    
23.     Else
    
24.         StrSQL = StrSQL & " WHERE  NOT 设备序列号 IS NULL"
    
25.     End If
    
26.     StrSQL = StrSQL & ") ORDER BY 设备序列号,维修时间,诊断原因,维修内容"
    

复制代码

opiona

SQL找出所有表一序号在表二中数据，合并在一起.rar (1.43 MB, 下载次数: 33)

2018-6-2 10:05 上传

点击文件名下载附件

ivccav

zpy2 发表于 2018-6-2 05:15
数据量这么大，一次提取这么多，二个表相当于union,不能看那一条提取那一条吗？

你们都理解错了。楼主的要求是查询Sheet1中所有设备号，如果Sheet2中也有该设备号的话，就查询出来，
然后跟Sheet1合并到一起，输出到Sheet3.

其实Sheet1的数据很少，就100多行，一个内连接+一个Union All，再Select排序，查询起来很快的。

不过还是放在数据库中更快，可以利用索引！

SylviaW

as42065300 发表于 2018-6-2 00:09

http://club.excelhome.net/thread-1417326-1-1.html
您好能不能帮我看一下，谢谢您

SylviaW

ivccav 发表于 2018-6-2 00:32
上传附件时提示：Upload Error: 502。

你把代码复制到你的文件即可。

http://club.excelhome.net/thread-1417326-1-1.html
您好能不能帮我看一下问题，谢谢您

ztccsj

opiona 发表于 2018-6-2 10:06

谢谢，不过这不是我想要的结果。7楼理解了我的意思。不过还是非常谢谢你，我慢慢学习或许以后会用到
如果能按照题意帮我弄一个就更好了。
速度是关键，10秒以内，我都能接受。