query1.close;
query1.sql.clear;
query1.sql.add('select * from orders where saledate>=:dt');
query1.ParamByName('dt').AsDate:=strtodate('88-5-4');
query1.open;
query1.sql.clear;
query1.sql.add('select * from orders where saledate>=:dt');
query1.ParamByName('dt').AsDate:=strtodate('88-5-4');
query1.open;
解决方案 »
- 求教一个窗体设计的问题
- 如何判断线程对象已经释放?FreeOnTerminate := true 好像不行?有没有更好的办法
- Delphi写的COM,用wise作安装,安装时wise会自动注册COM,卸载时候不会注销COM!
- (在线等待)架构:客户端->业务组件->webservice->数据库,经常出现web掉线的情况,请问各位高手怎样解决?
- 内存影射的问题,喜欢刨根问底的请进!
- 如何让TEdit中只可输入Float型的数值
- 询问DELPHI中的一个函数,紧急
- 串口通讯的问题
- 关于Locate问题
- 自己定义打印预览的窗口的时候,怎样调用这个自己定义的窗口?
- 'hICMPDll:=loadlibrary(PChar('C:\WINNT\system32\icmp.dll')); '为何出错?
- 我作了一个chm的帮助文件,如何在delphi中做成联机帮助呢?
with ADOQryLane_Vehicles do
begin
Close;
SQL.Clear;
SQL.Add('select distinct RoadwayNum,max(DetectNumber) as LastVehicles from LaneFee where StatisticDate=:StatisticDate and TurnNum=:TurnNum group by RoadwayNum');
Parametersbyname[StatisticDate].value:= ADate;
Parametersbyname[TurnNum ].value:= AturnNum;
Open;
end;
我这样实现的日期参数:
就是分开年月日处理sql:
比如: datetimetostring(new2,'yyyymmdd',d2); SQL_SEL2 := ' select '+ FIELD_LIST2+' from '+ tabl_name;
SQL_WHERE2 := ' where (year(' + DJSJ+')=:tt_y '+
'and month('+ DJSJ +')=:tt_m and day('+ DJSJ +')=:tt_d'
+' AND ('+ DJLB + '=:rklb)) ';
作 者:Zane
所属论坛:Delphi
问题点数:30
回复次数:8
发表时间:2001-12-3 10:13:50
我用的是TADOQUERY,后台数据库是SQLSERVER70,请问在执行查询时能否试用如下的语句,使用参数:
with ADOQryLane_Vehicles do
begin
Close;
SQL.Clear;
SQL.Add('select distinct RoadwayNum,max(DetectNumber) as LastVehicles from LaneFee where StatisticDate=:StatisticDate and TurnNum=:TurnNum group by RoadwayNum');
Parameters[0].value:= StrtoDate(ADate);
Parameters[1].value:= AturnNum;
Open;
end;