ADO对象使用SQL连接数据库，在SQL语句中如果使用where字句 就出错 ，（提示：至少有一个参数没指定值。 ）如果去掉WHERE字句就正常 具体代码如下：（myconn myrecord showdata我在声明里定义了）请高手指点下
Dim cztj As Long
On Error GoTo errgo '防止输入不为数字
cztj = InputBox("请输入你要查找的ID", "ID查找")
Set myconn = New ADODB.Connection
myconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
myconn.Open
Set myrecord = New ADODB.Recordset
myrecord.Open "select * from 学生表 where ID = cztj", myconn, adOpenDynamic, adLockBatchOptimistic
Call showdata '显示数据
errgo: MsgBox "ID必须为数字！", 0 + 48 + 0 + 4096, "警告" '查询ID输入不为数字时候处理

[此贴子已经被作者于2007-9-26 21:53:41编辑过]

select * from 学生表 where ID = cztj ID是字符串？那就应该加单引号

ID是数据库里的字段名称 我试了加单引号 还是一样的  出错

myrecord.Open "select * from 学生表 where ID =" & cztj, myconn, adOpenDynamic, adLockBatchOptimistic
如果id是字符型.则.
myrecord.Open "select * from 学生表 where ID ='" & cztj & "'", myconn, adOpenDynamic, adLockBatchOptimistic

试下楼上的吧,要是还出错的话,我倒想知道个究竟.

问题解决了 谢谢各位的回答 4楼的你真厉害哈 我自学的 对于这些单引号 双引号 书上很少说 头疼啊   

LZ你有问题尽管问他,他人好技术棒.你要是不懂翻译他的名字,尽管问我.

[此贴子已经被作者于2007-9-26 22:24:29编辑过]

那就请教他的名字了 嘿嘿 （根据我奇笨的智商，我估计不是什么好含义）

我晕菜..
我绝对BS你..

我还没告诉他...我才晕呢.