VBA&SQL 问题请教

lcxq120713

当前 接收到1个变量的时候 是可以正常查询的  


能实现接收多个变量 一次查询出多个结果吗?
有实现思路么?求教各路大神.

lcxq120713

单元格有1个值的时候肯定是没问题 可以查询返回结果

如果有多行 如何实现查询并返回结果呢?

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

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

abc123qqq

1、建立一个临时表，将你要查的 数据录入到 临时表
     SQLL = " IF OBJECT_ID('tempdb..##aa') is not null   drop table DBO.##aa create table ##aa (ID int,name varchar(50),Date TIME,tth varchar(50),cj varchar(50),id2  INT )"  
   以上是 判断 临时表 是否存在，  建立一个临时表
   当然， 你也可以建立一个 常用表，每次将新数据覆盖 旧数据。
2、然后就简单了，  2张表  的联合查询  ， 出结果