Question

vb6中数据库查询用select where问题

z=1
Set Data_rd = Data_db.OpenRecordset("select*from 表 where 数值=z")
把z换成数值可以运行，但是换成z会提示“参数不足 期待是1”，有什么办法解决吗，因为每次查询内容不确定，不可能把z换成数值

Answer 1

因为 z 是变量，不能直接用 数值=z 作为条件（这样会认为把字母 z 赋值给字段 数值），所以必须用变量的表示方法来写代码：
Set Data_rd = Data_db.OpenRecordset("SELECT * FROM 表 where 数值='" & z & "'")
上面语句在数据库中测试通过，如果VB6中仍然提示错误，请把提示写出来看看。。

Answer 2

"select * from 表 where 数值 ='" & z & "'"

追问

不可以……还是提示错误

追答

把你整句都发出来看下。要不你参考下我写过的一条：

rs.Open "select * from Channels where Cname ='" & z & "'", db, adOpenStatic, adLockOptimistic '查询Access数据表