Question

vb如何指定日期查询

Adodc1.RecordSource = "Select * From biao Where 日期=’DTPicker1.Value’ And日期=’DTPicker2.Value’"
Set DataGrid1.DataSource = Adodc1
怎么查询不了，无效果
请求知晓人士如何选定开始日期到结束日期显示在DataGrid1中。
比如开始日期：2013-01-01到结束日期：2013-01-20.
如何弄啊，最好写一下代码
Adodc1.RecordSource = "select * from biao where 日期>=#" & DTPicker1.Value & "# and 日期<=#" & DTPicker2.Value & "#"
Set DataGrid1.DataSource = Adodc1

Answer 1

Adodc1.RecordSource = "select * from biao where 日期>='" & DTPicker1.Value & "' and 日期<='" & DTPicker2.Value & "'"
Set DataGrid1.DataSource = Adodc1
Adodc1.refresh

追问

你的代码例如：2013-1-1到结束日期：2013-1-20.可以查询
如这样的格式：2013-01-01到结束日期：2013-01-20.
就查询不了，为什么呀！

追答

你的数据库里存放的格式是什么啊?
如果数据库里日期格式为 YYYY-MM-DD ,那就将字符格式化一下嘛:

Adodc1.RecordSource = "select * from biao where 日期>='" & format(DTPicker1.Value,"YYYY-MM-DD") & "' and 日期='" & format(DTPicker1.Value,"YYYY-M-D") & "' and 日期<='" & format(DTPicker2.Value,"YYYY-M-D") & "'"
Set DataGrid1.DataSource = Adodc1
Adodc1.refresh