还是VBA+SQL语句求助

tuujjjj · 发表于 2021-10-25 23:06

有两个表，bc场人员和内件数1两张表，想用left join,联合两表，操作员为字段联合。bc场人员表的操作员名称只是内件数1表操作员名称的一部分，除了bc场出现的操作员标为“C"外，其它内件数1的操作员都标为”B"，请问这个SqL语句应该怎样写，谢谢！！

sql语句.zip (280.52 KB, 下载次数: 14)

xiangbaoan · 发表于 2021-10-26 08:37

Sub test1()
Dim Cnn As Object, Rst As Object, Sql As String, j As Integer
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\内件数1.xlsx"
Sql = "SELECT a.*,IIF(ISNULL(b.BC人员),'B',b.BC人员) AS BC场 FROM " & _
"[Sheet1$] a" & _
" LEFT JOIN " & _
"[Excel 12.0;Database=" & ThisWorkbook.Path & "\bc场人员.xlsx].[Sheet1$] b" & _
" ON MID(REPLACE(a.操作员,'A',''),1,IIF(INSTR(a.操作员,'('),INSTR(a.操作员,'(')-2,LEN(a.操作员)))=b.操作员"
Set Rst = Cnn.Execute(Sql)
With Range("G1")
.CurrentRegion.ClearContents
For j = 0 To Rst.Fields.Count - 1
.Offset(0, j) = Rst.Fields(j).Name
Next
.Offset(1).CopyFromRecordset Rst
End With
Set Rst = Nothing: Cnn.Close: Set Cnn = Nothing
End Sub

复制代码

xiangbaoan · 发表于 2021-10-26 08:42

审_仅参考.rar (352.16 KB, 下载次数: 11)

tuujjjj · 发表于 2021-10-26 09:22

xiangbaoan 发表于 2021-10-26 08:42

ON MID(REPLACE(a.操作员,'A',''),1,IIF(INSTR(a.操作员,'('),INSTR(a.操作员,'(')-2,LEN(a.操作员)))=b.操作员，这一句只考虑到内件数表的操作员字段值为A开头的工号，还有B开头的没匹配到，还是很感谢你。

xiangbaoan · 发表于 2021-10-26 09:26

tuujjjj 发表于 2021-10-26 09:22
ON MID(REPLACE(a.操作员,'A',''),1,IIF(INSTR(a.操作员,'('),INSTR(a.操作员,'(')-2,LEN(a.操作员)))=b. ...

“还是很感谢你。”
这样说不如不感谢！另，所写只针对提供的附件……

tuujjjj · 发表于 2021-10-26 09:34

本帖最后由 tuujjjj 于 2021-10-26 09:40 编辑

xiangbaoan 发表于 2021-10-26 09:26
“还是很感谢你。”
这样说不如不感谢！另，所写只针对提供的附件……

很抱歉，能力不够，没看明白，再次表示诚心感谢！！

xiangbaoan · 发表于 2021-10-26 09:39

tuujjjj 发表于 2021-10-26 09:34
很抱歉，能力不够，没看明白，你的VBA是符合我的要求的。再次表示诚心感谢！！

" ON MID(a.操作员,IIF(INSTR(a.操作员,'('),2,1),IIF(INSTR(a.操作员,'('),INSTR(a.操作员,'(')-2,LEN(a.操作员)))=b.操作员"

复制代码

tuujjjj · 发表于 2021-10-26 09:53

xiangbaoan 发表于 2021-10-26 09:39

谢谢~让我明白 on 之后可以这样写，自已摸来摸去都写不对

wo2000 · 发表于 2021-10-26 10:23

先用函数分离出姓名，在用sql其实更快

tuujjjj · 发表于 2021-10-26 10:25

xiangbaoan 发表于 2021-10-26 09:39

请问这里是iif起什么作用呢，想不明白

		自动登录	找回密码
密码			免费注册

[求助] 还是VBA+SQL语句求助