Question

excel vba编程sql select语句报错“至少一个参数没有被指定值”

想通过一个按钮，实现两张表的比对搜索。“流向表”中F列是“客户编号” J列是“邮件编号”，根据客户编号在第二张表“客户单号区间表”中查询到对应的邮件编号区间，判断“流向表”中的邮件编号是否在第二张表中对应的客户区间中。若不在区间，则将流向表中该行背景色变红。
以下为实现代码，在执行 cnn.Execute (SQL)报错，“至少一个参数没有被指定值”
请大师指教!!!
Sub sub_sql_cx()
Dim x As Long
Dim i As Long
Dim xbbh As Double
Dim khbh As Double
Dim xbbh1 As Double
Dim xbbh2 As Double
Dim cnn, SQL$
'定义数据库连接和SQL语句
Set cnn = CreateObject("adodb.connection")
'创建数据库连接
Set rs = CreateObject("adodb.recordset")
'创建一个数据集保存数据
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source=" & ThisWorkbook.Path & "\客户单号区间表.xlsx"

x = Range("A65536").End(xlUp).Row
For i = 7 To x
xbbh = Sheet1.Cells(i, "J").Value
khbh = Sheet1.Cells(i, "F").Value
SQL = "select 单号起始 as xbbh1,单号终止 as xbbh2 from [Sheet1$] where 客户编号=khbh"
cnn.Execute (SQL)
If xbbh <= xbbh1 And xbbh >= xbbh2 Then
Rows(i).Interior.Color = 255
End If
Next
cnn.Close
'关闭数据库连接
Set cnn = Nothing
'将CNN从内存中删除。
End Sub
第一张表：流向表

第二张表：客户单号区间表





Answer 1

SQL = "select 单号起始 as xbbh1,单号终止 as xbbh2 from [Sheet1$] where 客户编号=" & khbh
参数不能放在双引号里面
能运行了, 但是看你的代码下面逻辑还是不对的

追问

改成这样后，报“标准表达式中数据类型不匹配”是不是跟我excel里单元格格式有关？

追答

对的, 要分清数字字段和字符串字段
你的第二个表的E字段时代科学技术法的, 最好在excel就把它改掉

追问

我把两表中单元格格式都改成数值后，就不报这个错了。哈哈。
调试可以顺利执行下去，我把流向表中第一条数据的大客户编号设为了第二张表中对应的值，但是监控到select的xbbh1,xbbh2还是为0，哎。搞不定了，所以执行按钮时没有反应了，求帮助。

追答

你的这句话cnn.Execute (SQL)
改成
rs.Open SQL, Con, 1, 1
然后改成下面
If xbbh = rs(1) Then
Rows(i).Interior.Color = 255
End If
rs.MoveNext

追问

改了报错。这玩意今天第一次接触，有点糊里糊涂。

Answer 2

第二张表里有单号起始、单号终止，第二张表是sheet1？

追问

嗯，都是Sheet1

追答

1、
xbbh = Sheet1.Cells(i, "J").Value
khbh = Sheet1.Cells(i, "F").Value
改为：
xbbh ="'" & Sheet1.Cells(i, "J").Value
khbh ="'" & Sheet1.Cells(i, "F").Value
2、
SQL = "select 单号起始 as xbbh1,单号终止 as xbbh2 from [Sheet1$] where 客户编号=khbh"
改为
SQL = "select 单号起始 as xbbh1,单号终止 as xbbh2 from [Sheet1$] where 客户编号='" & khbh & " '"

试试。

追问

应该也可以，用了
tj_angela同学这个方法就不报这错了。
SQL = "select 单号起始 as xbbh1,单号终止 as xbbh2 from [Sheet1$] where 客户编号=" & khbh

非常感谢。
现在执行不报错，但取不到sql中的值，不知道为什么。。。xbbh1,xbbh2都是0.

追答

看下这个贴子，应该还是数据类型的缘故：
http://zhidao.baidu.com/link?url=cPw3izrrvopSqglM6_fVJakuQ8MrbObuQU3IoNwByhZjqokjex48zb-VStVlVsFtrJUVXM6e5DPskfVCM9op5a

PS:
VALUE函数：文本型字符串转换为数值型
吃饭去了，楼主可以看看那个链接。

Answer 3

参数缺少值