Question

VB中我用了两个DTpicker控件，一个日期，一个时间。想同时查询，但显示类型不匹配，

程序如下
Adodc1.RecordSource = "select * from th_s where 测量日期=" & Chr(35) & DTPicker1.Value & Chr(35) And 测量时间 = "& Chr(35) & DTPicker2.Value & Chr(35) "
但当我只查询日期时正确
Adodc1.RecordSource = "select * from th_s where 测量日期= " & Chr(35) & DTPicker1.Value & Chr(35)
只查询时间时也正确
Adodc1.RecordSource = "select * from th_s where 测量时间= " & Chr(35) & DTPicker2.Value & Chr(35)

Answer 1

Adodc1.RecordSource = "select * from th_s where 测量日期=" & Chr(35) & DTPicker1.Value & Chr(35) And 测量时间 = "& Chr(35) & DTPicker2.Value & Chr(35) "
修改为：
Adodc1.RecordSource = "select * from th_s where 测量日期=" & DTPicker1.Value & “And 测量时间= " & DTPicker2.Value & ”“
没有见过在SQL语句中使用Chr(35) ，另外原语句缺少一个双引号，在"And"的前面。

追问

我是刚学的VB，这是从书上抄的，查询ACCess数据库，是要有Chr(35)（即“#”），有个问题我刚才忽视了：原来查询时间时有错，虽然可以运行，但是查询不出来数据，我的数据表里有15：07:23，但我将DTPicker2的值设为15：07:23，却查不到数据，是空的，这是咋回事，是不是我对它的属性设置的不对，我只是设置了format为2-dtptime

追答

15：07:23 不是正确的时间格式，15:07:23 之间的冒号必须是英文，不能用中文的冒号。

Answer 2

Adodc1.RecordSource = "select * from th_s where 测量日期=" & Chr(35) & DTPicker1.Value & Chr(35) And 测量时间 = "& Chr(35) & DTPicker2.Value & Chr(35) "
改为
Adodc1.RecordSource = "select * from th_s where 测量日期=#" & DTPicker1.Value & "# And 测量时间=#" & DTPicker2.Value & "#"

Answer 3

Dim MyDate As Date '定义日期型变量
MyDate = Format(DTPicker2.Value, "hh:mm:ss") '给变量赋值
Adodc1.RecordSource = "select * from th_s where 测量日期=" & Chr(35) & DTPicker1.Value & Chr(35) & " And 测量时间 = " & Chr(35) & Str(MyDate) & Chr(35)
绝对正确，我试过了

Answer 4

这个是因为日期在SQL中是需要 以两个 ' ' 单引号引起来才能进行查询。