UC知道VB中ADO控件怎么用日期进行查询啊？
来源：百度知道 编辑：UC知道 时间：2024/05/15 19:22:15
这是我写的代码：
Private Sub CCX_Click()
Dim time1, time2 As Date
Dim sql As String
time1 = DTP1.Value
time2 = DTP2.Value
sql = "select * from 班费使用记录 where 日期>=""" & time1 & """and 日期<=""" & time2 & """"
Ado.Recordset.Close
Ado.Recordset.Open sql
End Sub
其中，DTP1和DTP2是DTPicker控件，ADO控件是直接访问“仪表维护班各项公款记录.mdb”文件的。
运行后，它老说我FORM子句语法错误。我错在哪了？
Private Sub CCX_Click()
Dim time1, time2 As Date
Dim sql As String
time1 = DTP1.Value
time2 = DTP2.Value
sql = "select * from 班费使用记录 where 日期>=""" & time1 & """and 日期<=""" & time2 & """"
Ado.Recordset.Close
Ado.Recordset.Open sql
End Sub
其中，DTP1和DTP2是DTPicker控件，ADO控件是直接访问“仪表维护班各项公款记录.mdb”文件的。
运行后，它老说我FORM子句语法错误。我错在哪了？
楼上的答复基本正确，数据表的日期字段定义为文本的，用双单引号标识。
如果日期字段定义为时间类型的，则应将单引号改用#号来标识：
sql = "select * from 班费使用记录 where 日期 between #" & timer1 & "# and # " & time2 & "#"
"select * from 班费使用记录 where 日期>='" & time1 & "'and 日期<='" & time2 & "'"
或者
"select * from 班费使用记录 where 日期 between '" & time1 & "'and '" & time2 & "'"
下楼：“如果日期字段定义为时间类型的，则应将单引号改用#号来标识”
是针对ACCESS数据库的啊！