Question

VB 用SQL sever查询语句的问题。

Adodc1.RecordSource = "select * from " & biaoming & " where 类别 = '产品'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
请问大神 第一句最后的 ‘产品’ 能不能用变量替换掉？

Answer 1

可以，不过语句需要修改

dim class as string

Adodc1.RecordSource = "select * from " & biaoming & " where 类别 =“ & class & "

调试一下吧，应该可以
不能直接替换，原因你应该知道

Answer 2

可以
如果类别 是一个字符型字段

你的变量是 LEIXING

Adodc1.RecordSource = "select * from " & biaoming & " where 类别 = '” & LEIXING & "'"

追问

感谢大神的指点，小弟受教了。小弟还有一个问题问大神

当这个选项等于“产品”的时候我可以给 LEIXING 赋值“产品”，

但当他等于 忽略的时候，也就是看全部的内容。这个时候LEIXING 应该赋值什么呢？

我知道去掉where就可以，但是我有4个选项。不能去掉

追答

假设你的四个 combo分别叫
LB,GY,MC,XH

'----------------------------------------------------------------

dim strWhere as string
if lb="忽略" and GY="忽略" and MC=“忽略" and XH=“忽略" then
strwhere=""
else

if lb"忽略" then strwhere= strwhere & iif(len(strwhere)=0,""," and ") & "类别='" & lb & "'"
if GY"忽略" then strwhere= strwhere & iif(len(strwhere)=0,""," and ") & "供应商='" & GY & "'"
if lMC"忽略" then strwhere= strwhere & iif(len(strwhere)=0,""," and ") & "名称='" & MC & "'"
if XH"忽略" then strwhere= strwhere & iif(len(strwhere)=0,""," and ") & "规格型号='" & XH & "'"
strwhere= " WHERE " & strwhere
end if

Adodc1.RecordSource = "select * from " & biaoming & strwhere