下面代码怎么也过不去啊!!
数据库中的日期是 datetime 类型的,怎么比较啊 高手指教啊var
p1,p2:tdate;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用餐记录表 where 日期<=:p1 and 日期>=:p2 orderby 日期 asc');
Parameters.ParamByName('p1').Value :=datetimepicker1.Date;
Parameters.ParamByName('p2').value:=datetimepicker2.Date;
prepared;
open;
数据库中的日期是 datetime 类型的,怎么比较啊 高手指教啊var
p1,p2:tdate;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用餐记录表 where 日期<=:p1 and 日期>=:p2 orderby 日期 asc');
Parameters.ParamByName('p1').Value :=datetimepicker1.Date;
Parameters.ParamByName('p2').value:=datetimepicker2.Date;
prepared;
open;
解决方案 »
- delphi 如何读excel到listview中
- 多线程分离UDP收发引发内存泄露。在线求救。
- 关于delphi模态窗口的一个问题(环境:widnows xp + delphi 2007)
- 被人勒索,散分!!
- FastReport的Memo的脚本中,如何使用AdoDataset.RecNo?
- 简单问题??
- 如何在程序中备份压缩恢复附加sql server 数据库?解决问题立马给分
- 过了四级,散点分!
- 怎么释放在delphi中定义的很多变量呀?(急呀)
- 刷卡器模拟键盘输入,即刷卡的过程可通过击键盘输入。如何使用户刷卡时,程序自动区分用户是刷卡,还是敲击键盘的。
- 哪里有fastreport注册版
- 祝大家仲秋愉快.送分来了.
学习 ing
var
p1,p2:string;
begin
with adoquery1 do
begin
close;
sql.Clear;
p1:=datetimetostr(datetimepicker1.date);
p2:=datetimetostr(datetimepicker2.date);
sql.Add('select * from 用餐记录表 where 日期>='''+p1+''' and 日期<='''+p2+''' ');
prepared;
open;
已经通过,但是我用上面的办法,中说找补到变量p1 是为什么呢!!
formatdatetime这个函数很好的,可以生成指定格式的字符串阿!!
应该这样调用!!前面漏了time了阿!!
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 用餐记录表 where 日期<=:p1 and 日期>=:p2 orderby 日期 asc');
Parameters.ParamByName('p1').Value :=datetimepicker1.Date;
Parameters.ParamByName('p2').value:=datetimepicker2.Date;
prepared;
open;
这样写就可以了
P1和P2不用定义的,难道大家都晕了,没有人看出来吗?