Help with Parameterized Query (using Delphi 7 and BDE)

Question

Can someone help me and explain to my why this code crashes on the ExecSQL statement?

function UpdateLastBankResponsesId(ADatabase: TDatabase; AValue: Integer): String;  
var  
AQuery2: TQuery;  
begin 
result:= ''; 
AQuery2:= TQuery.Create(nil); 
AQuery2.DatabaseName:= ADatabase.DatabaseName;  
with AQuery2 do  
begin  
SQL.Text:= 'UPDATE last_id Set TABLENAME =:ATableName, LASTID=:ALastId';  
ParamByName('ATableName').AsString:= 'responses';  
ParamByName('ALastId').AsInteger:= AValue;  
try  
ExecSql; //***** CRASHES HERE *****  
except  
begin  
ExitCode:= 16;  
raise ECustomException.create('Error Updating Last Id table!');  
end;//except  
end; //try  
end; //with  
AQuery2.Free;  
end;

Never mind, my bad, i found my mistake – IElite Feb 08 '11 at 14:42 — IElite, Feb 08 '11 at 14:42

score 0 · Accepted Answer · edited Dec 29 '11 at 13:26

0

I was trying to set a value that already existed

Set TABLENAME =:ATableName

I actually only needed to set the LASTID

UPDATE last_id SET LASTID=:ALastId WHERE TABLENAME =:ATableName

I can't believe I did that

edited Dec 29 '11 at 13:26

marc_s

732,580
175
1,330
1,459

answered Feb 08 '11 at 14:44

IElite

1,818
9
39
64

Help with Parameterized Query (using Delphi 7 and BDE)

1 Answers1