在线等待(SQL语句问题)

[ntz]

我用的是ACCESS数据库,有两个表:TRAP和TYPE
用以下的语句查询就出错
dim source as date
dim numberss as integer
source=03-5-7
numberss=50
Set rs= db.OpenRecordset("select trap.msg,type.index from trap,type where
trap.datetime=source and type.index=numberss")

在数据库中,日期型的字段怎样用变量操作呀,还有整型,字符串等等,请赐教

[qbilbo]

Set rs= db.OpenRecordset("select trap.msg,type.index from trap,type where
trap.datetime=#"+source+"# and type.index=numberss")

[sxs69]

dim source as date
dim numberss as integer
source=#03-5-7#
numberss=50
Set rs= db.OpenRecordset("select trap.msg,type.index from trap,type where
trap.datetime= " & source & "and type.index= " & numberss &"")

[ntz]

类型不匹配呀

[chenyu5188]

同意sxs69() 的，用变量传入。

[ntz]

还是出错“参数不足，期待是1”

[cotaxyp]

也可以把日期变量当作字符串来处理！

[cotaxyp]

“参数不足，期待是1”
看一下你的数据库表中是否有这个字段，或者是拼错了！仔细检查一下！

[cotaxyp]

哦！你后面那个字段名称，在select 和 from 之间没有写出来，所以会有这样的提示！把它加进去！

[qvbiiss]

Data1.RecordSource = "select * from clinetdataf where companyname ='" & Publicstringc + "'"
可以看看这段代码没错的.

[cotaxyp]

to: qvbiiss(qvbiiss)
你的答案没有参考价值！

[fengxie]

Set rs= db.OpenRecordset("select trap.msg,type.index from trap,type where
trap.datetime=#" & source & "# and type.index=" & numberss & ")

[vzxq]

你先在ACCESS中 用向导生成查询。把生的的SQL 语句复制到VB中，这样一定不会出错。