sql中有参数，是这么用吗？请指点.

[huliao]

var qryTemp: TQuery;
myDate: TDateTime;
...
qryTemp:=TQuery.Create(nil);
with qryTemp do begin
DatabaseName:='MyDatabase';
SQL.Clear;
SQL.Add('delete from mytable where wfdate<:Date');
Params[0].Name:='Date';
Params[0].AsDate:=myDate;
try ExecSQL;
finally ShowMessage('执行SQL语句出错!');
end;
end;
qryTemp.Free;
...

我用debug watch看,qryTemp.SQL.Text和qryTemp.Params[0].AsDate都没问题,
执行却有错误.请指点.用的Paradox,以后用SQLServer.

[taxi]

with qryTemp do
begin
DatabaseName := 'MyDatabase';
SQL.Clear;
SQL.Add('delete mytable where wfdate<:Date');
Params[0].AsDate := myDate;
try
ExecSQL;
except
ShowMessage('执行SQL语句出错!');
end;
end;

[huliao]

老兄，不对.

[guasha]

直接把条件拼道串里把

[抱朴守拙]

with qryTemp do
begin
DatabaseName := 'MyDatabase';
Close;
SQL.Clear;
SQL.Add('delete mytable where wfdate<:Date');
Params[0].AsDate := myDate;
try
ExecSQL;
except
ShowMessage('执行SQL语句出错!');
end;
end;
应该没有错啊.

[txinfo]

'delete mytable where wfdate<:Date'这句话少了个from

[huliao]

少了from是错误的，不信你在delphi中的SQL Explorer中试试。只是我的上一段程序的确有问题，总是运行到finally里，请指点。

[txinfo]

to huliao():
老大，
try
..
finally
..
end
的意思是不论你是否异常，都要执行finally里面的内容
如果是异常才要执行，把finally改为except
try
..
except
showmessage('出错');
end;