Question

我用delphi7，执行到SQL.Add();就卡住，也不报错。比较诡异，一直没问题，突然出现这个。求解释！代码如下

with qryBase do
begin
Close;
SQL.Clear;
SQL.Add('select * from PDSHGZB_V where FDID in('+FDstr+') and PDRQ >= :begin and PDRQ <=:end ');
Parameters.ParamByName('begin').Value:= Trunc(dtStart.Date);
Parameters.ParamByName('end').Value:= Trunc(dtEnd.Date);
Open;
end;
如何要避免这种情况，代码继续运行，很简单，直接在sql里把所有参数设置好就行。我只是奇怪，为什么今天delphi7 ADOQuery 的SQL.Add()中用:begin 和:end这个的参数，程序就在这里卡住，不继续下走，也不报错。

Answer 1

问题出在add()参数了
SQL.Add('select * from PDSHGZB_V where FDID in('+FDstr+') and PDRQ >= :begin and PDRQ <=:end ');

改为
SQL.Add('select * from PDSHGZB_V where FDID in(‘’’+FDstr+‘’‘) and PDRQ >= :begin and PDRQ <=:end ');

如果没问题了请选满意答案，谢谢。

Answer 2

SQl语句中参数不要和特殊的系统语言冲突，begin、end、char等，
就像delphi中不能用begin,end,procedure等词语来定义变量一样，你可以改成:begindate/enddate

Answer 3

唉,偏偏要把简单的问题搞复杂啊!

Answer 4

试试
Parameters.ParamByName('begin').asdatetime:= dtStart.Date;
Parameters.ParamByName('end').asdatetime:= dtEnd.Date;

Answer 5

with qryBase do
begin
Close;
SQL.Clear;
SQL.Text='select * from PDSHGZB_V where FDID in('+FDstr+') and PDRQ >= :begin and PDRQ <=:end ';
Parameters.ParamByName('begin').Value:= Trunc(dtStart.Date);
Parameters.ParamByName('end').Value:= Trunc(dtEnd.Date);
Open;
end;

追问

这样也一样的不行。sql.add()中不带参数就能继续运行。带了冒号参数的就卡住了，不继续走，程序像死机一样动不了。