VBA&SQL

lcxq120713

Sub CX2()
Range("A2:E65536").Clear
Dim chdlmc
chdlmc = TextBox1.Value


Dim conn As New ADODB.Connection
Dim strConn As String


conn.Open strConn

Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer

strSQL = "SELECT cInvSN FROM SNState where cInvSN = '" & chdlmc & "'  "
rs.Open strSQL, conn

接收一个变量 查询返回结果 没问题
现在有个需求:单元格有多行数据,想依次接收后再返回全部的查询结果,能实现吗?求助各路大佬!

MR_PP

UNION ALL     

tanglf188

Where cInvSN In('CP10010081177','CP10010081178','CP10010081179')

lcxq120713

tanglf188 发表于 2024-6-19 11:25
Where cInvSN In('CP10010081177','CP10010081178','CP10010081179')

单元格里的值是随机的

opiona

1. IN   或者：NOT IN   建议使用inner join
   
2. SELECT SUM(Sales) FROM Store_Information WHERE Store_name IN (‘AAA’,‘BBB’,‘CCC’）
   
3. SELECT SUM(Sales) FROM Store_Information WHERE InStr(‘AAA,BBB,CCC’,Store_name)>0       '这个速度快一些
   
4. SELECT SUM(Sales) FROM Store_Information WHERE Store_name IN (SELECT store_name FROM Geography WHERE region_name = 'West')
   
5. SELECT * FROM [MQL$] where [PN] IN ('" & JOIN(Application.Transpose(Range("B2:B" & Range("A65536").End(3).Row)), "','") & "')"
   
6. SELECT * FROM [MQL$] where [PN] IN ('" & JOIN(ARX, ",") & "')"

复制代码

魂断蓝桥

lcxq120713

魂断蓝桥 发表于 2024-6-19 14:36

你好 sql里这个可以当查询条件吗  为啥我用这个where条件 报错了

lcxq120713

lcxq120713 发表于 2024-6-20 09:50
你好 sql里这个可以当查询条件吗  为啥我用这个where条件 报错了

可以了 感谢感谢!