acess里日期查询问题,用delphi处理;可查询总是不准确,我在数据库里选择日期是文本类型,则查询不准确,如果选择日期类型则查询时候报错。如下我的代码:
var
date1,date2:string;
begin
date1:= FormatDateTime('yyyy-mm-dd',rzdatetimeedit1.Date);
date2:= FormatDateTime('yyyy-mm-dd',rzdatetimeedit2.Date);
with ADO_xz do
begin
close;
sql.Clear ;
if rsk.Checked= false then
sql.Add('select * from yongshui where 缴费日期 between '''+date1+'''and '''+date2+'''and 是否缴费 =''Yes''order by 缴费日期') ;
if rsk.Checked= true then
sql.Add('select * from yongshui where 缴费日期 between '''+date1+'''and '''+date2+'''and 是否缴费 =''Yes''and 收款人='''+trim(rzcombobox3.Text)+'''order by 缴费日期') ;
open;
end;
帮我看看这样写查询可行啊??那里错了没有,如果缴费日期我在access里设置日期型,就报错,如果我设置文本型,则查询出来的不准确,有的日期是2007-04-12 有的是 2007-4-12这样的格式。
拜托啊。
var
date1,date2:string;
begin
date1:= FormatDateTime('yyyy-mm-dd',rzdatetimeedit1.Date);
date2:= FormatDateTime('yyyy-mm-dd',rzdatetimeedit2.Date);
with ADO_xz do
begin
close;
sql.Clear ;
if rsk.Checked= false then
sql.Add('select * from yongshui where 缴费日期 between '''+date1+'''and '''+date2+'''and 是否缴费 =''Yes''order by 缴费日期') ;
if rsk.Checked= true then
sql.Add('select * from yongshui where 缴费日期 between '''+date1+'''and '''+date2+'''and 是否缴费 =''Yes''and 收款人='''+trim(rzcombobox3.Text)+'''order by 缴费日期') ;
open;
end;
帮我看看这样写查询可行啊??那里错了没有,如果缴费日期我在access里设置日期型,就报错,如果我设置文本型,则查询出来的不准确,有的日期是2007-04-12 有的是 2007-4-12这样的格式。
拜托啊。
解决方案 »
- 懂得用server页下控件的请进来帮个忙
- 新人报到,连开三贴之二,来者有分
- 窗体最大化后,其中的所有控件按比列放大如何操作呢?? 在线等,先行谢过!!
- 一段关于new与treeview的代码
- 高分求网络扑克牌源码或思路
- 甩女友的10条毒计---男人们请进
- 关于连接数据库失败的问题
- 在Delhpi中的SQL Monitor工具怎么用?
- =====向大侠索取一个有关调用Word2000的代码=-===
- 请进来指导兄弟,关于form1与form2的关系 ,送分
- delphi写ActiveX控件的visible设置问题
- 看李维的书“多层应用分布系统篇”疑问地方,COM对象的方法之中的区域变量也必须要保护。
1、日期:
strSqlDate := '#'+FormatDateTime('yyyy-mm-dd',rzdatetimeedit1.Date)+'#';
2、日期带时间:
strSqlDate := ''''+FormatDateTime('yyyy-mm-dd hh:nn:ss',rzdatetimeedit1.Date)+'''''';
strSqlDate := ''''+FormatDateTime('yyyy-mm-dd hh:nn:ss',rzdatetimeedit1.Date)+'''';
acess 里日期查询要加#!
acess 里日期查询要加#!
var
date1,date2:string;
begin
date1:= FormatDateTime( 'yyyy-mm-dd ',rzdatetimeedit1.DataTime);
date2:= FormatDateTime( 'yyyy-mm-dd ',rzdatetimeedit2.DataTime);
with ADO_xz do
begin
close;
sql.Clear ;
if rsk.Checked= false then
sql.Add( 'select * from yongshui where 缴费日期 between :BeginDate and :EndDate and 是否缴费 = ''Yes '' order by 缴费日期 ') ;
Parameters.ParamByname('BeinDate').value:=rzdatetimeedit1.datetiem;
Parameters.ParamByName('EndDate').value:=rzDatetimeedit2.datetime;
.........
如果带时间用yyyy-mm-dd hh::mm::ss格式也可以