问题先生!

Question

人菜问题多.我的进入时间字段是data/time格式,如2008-4-1 下午 06:00:00.引用下面代码,text2中输入2008-4-1 下午 06:00:00出错提示:标准表达式中数据类型不匹配,出错行:ret.Open local_db, cnn.于是我把字段类型改为文本,代码也改了,去掉isdate.在text2输入2008-4-1,显示无记录,输入2008-4-1 下午 06:00:00,出错提示:行集合不能作为标签.出错行:Set 查询结果.DataGrid1.DataSource = ret.
具体应该怎么设置字段及文本属性会好些?
代码:预想实现查询text2(起始时间)中时间及以后的信息记录.如2008-4-1这天及以后的记录,下面对吗?不对如何改? If Check1.Value = 0 And Check2.Value = 1 Then
If IsDate(Text2) And IsDate(Text3) = False Then
Set cnn = New ADODB.Connection
Set ret = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\车辆管理(含图片).mdb" + ";Persist Security Info=False;"
local_db = "select * from 出入表 where 出入表.进入时间<='" & IsDate(Text2) & "'"
ret.Open local_db, cnn
If ret.BOF And ret.EOF Then
MsgBox "此时间内无车辆出入", , "警告"
Text2.Text = ""
Text2.SetFocus
Else
Set 查询结果.DataGrid1.DataSource = ret
End If
End If

Answer 1

IsDate(Text2) 是判断Text2是否是时间的.
'如果是将Text2改为时间.用以下语句CDate(Text2)

Answer 2

你的意思是"select * from 出入表 where 出入表.进入时间 <='" & CDate(Text2) & "'" 这样吗?

Answer 3

这样说吧:
数据库:编号 进入时间 .VB功能:text2输入起始时间(或date或date/time),查询结果是起始时间及以后的编号
进入时间字段类型怎么设置?代码如何编写?

Answer 4

按你说的改了.
字段date/time.出错:标准表达式中数据类型不匹配

Answer 5

local_db = "select * from 出入表 where 出入表.进入时间 <='" & IsDate(Text2) & "'" 改为:(显示某个日期以后的数据)local_db = "select * from 出入表 where 出入表.进入时间 >='" & Cdate(Text2) & "'" 

Answer 6

字段类型:日期/时间
代码cal_db = "select * from 出入表 where 出入表.进入时间 >='" & Cdate(Text2) & "'" 
输入2008-4-1 上午 08:00:00
出错:标准表达式中数据类型不匹配

Answer 7

代码cal_db = "select * from 出入表 where 出入表.进入时间 >='" & Cdate(Text2) & "'" 改为:
cal_db = "select * from 出入表 where 出入表.进入时间 >=" & Cdate(Text2)不要那两个单引用.
我刚试了,可以.

Answer 8

输入2008-4-1不出现"标准表达式中数据类型不匹配"这个错误了.但是弹出结果界面(datagrid)的同时出错提示:行集合不能作为标签.出错行:Set 查询结果.DataGrid1.DataSource = ret. 
另外输入如2008-4-1 上午 08:00:00,出错:语法错误(操作符丢失)在查询表达式'出入表.进入时间>=2008-4-1 上午 08:00:00'中

Answer 9

local_db = "select * from 出入表 where 出入表.进入时间 <=#" & IsDate(Text2) & "#" 
acess是用#分割时间