时间字段的问题?请大家看看! Sql.Add('Where regtime>'''+DateToStr(FromDate)+''''); Sql.Add('And regtime<'''+DateToStr(ToDate)+''''); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sorry,在之前我已经这样作过了,提示了错误信息:"...数据类型不匹配...",我都怀疑是Access的数据库引擎有问题,因为在Access中使用查询,也有同样的问题. 再次请大家看看!!!!!!!!!!!!!!!!!!!! 也可以改成sql.add('where regtime>=:formdate')如果你的regtime字段是日期类型的话! 在Accsess中好像这样写: Sql.Add('Where regtime>#'+DateToStr(FromDate)+'#'); Sql.Add('And regtime<#'+DateToStr(ToDate)+'#'); Sql.Add('Where regtime>'''+DateToStr(FromDate)+''''); Sql.Add('And regtime<'''+DateToStr(ToDate)+''''); 非常感谢,尤其是:StarRains(星雨) procedure TForm1.BitBtn1Click(Sender: TObject);var FromDate,ToDate: TDate;begin FromDate := DateTimePicker1.DateTime; ToDate := DateTimePicker2.DateTime; with query1 do begin close; Sql.clear; Sql.add('Select * from product'); Sql.Add('Where regtime>:regtime1); Sql.Add('And regtime<:regtime2); Parameters.ParamValues['regtime1']:=FromDate ; Parameters.ParamValues['regtime2']:=ToDate ; Open; end;end; 关于记录的奇怪问题 兄弟们难啦难啦!!!!!!此问题对我来说有点深.....望高手指点!!!!!!! 如何得到表yy的字段名称? TFrom全部加载完且画完之后,引发的事件是哪个? 在修改dbgrid当前行的时候,如何控制光标不离开当前行? 怎样才能使PageControl的边框不显示?? 怎样利用delphi程序修改网卡的MAC地址? 怎么实现在程序运行过程中的任何时候按F1键,就出现帮助? 如何在一活动的下拉框中添加一固定项? 两歌送分的基本问题 如何在程序中将一个已知的文件夹中的文件删除? 请问如何读取一个bmp文件
再次请大家看看!!!!!!!!!!!!!!!!!!!!
如果你的regtime字段是日期类型的话!
Sql.Add('Where regtime>#'+DateToStr(FromDate)+'#');
Sql.Add('And regtime<#'+DateToStr(ToDate)+'#');
Sql.Add('And regtime<'''+DateToStr(ToDate)+'''');
var
FromDate,ToDate: TDate;
begin
FromDate := DateTimePicker1.DateTime;
ToDate := DateTimePicker2.DateTime;
with query1 do
begin
close;
Sql.clear;
Sql.add('Select * from product');
Sql.Add('Where regtime>:regtime1);
Sql.Add('And regtime<:regtime2);
Parameters.ParamValues['regtime1']:=FromDate ;
Parameters.ParamValues['regtime2']:=ToDate ;
Open;
end;
end;