UC知道vb 日期查询
来源：百度知道 编辑：UC知道 时间：2024/09/22 05:28:34
a = "-" & Combo2.Text
b = "-" & Combo3.Text
c = CDate(Combo1.Text & a & b)
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db1.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from 表1 where datediff('d',日期,c) = 0"
Set DataGrid1.DataSource = Adodc3
Adodc3.Refresh
以上日期查询有什么问题？执行程序了总是弹出“至少一个参数未被指定”
combo1内容如 2009
combo2内容如 5
combo3内容如 17
“日期” 为字段名
b = "-" & Combo3.Text
c = CDate(Combo1.Text & a & b)
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\db1.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from 表1 where datediff('d',日期,c) = 0"
Set DataGrid1.DataSource = Adodc3
Adodc3.Refresh
以上日期查询有什么问题？执行程序了总是弹出“至少一个参数未被指定”
combo1内容如 2009
combo2内容如 5
combo3内容如 17
“日期” 为字段名
这里肯定错了，是不是解决问题了你试试
Adodc3.RecordSource = "select * from 表1 where datediff('d',日期,"& c &") = 0"
其实你用day(日期)=day(c)判断就是可以了
mdb数据库关于日期的程序处理和SQL数据库可能不同，你的“datediff('d',日期,c) = 0”部分如果修改为：
Left(日期,10) = Left(c,10)
其中c不要转换为日期格式，用字符串即可。