How to run an update query from Lazarus using parameters?
lazarus / 16-Databases

----------------------------------------------------------------------
eurythmic · 2015-01-27 15:31

Hi,

One of my students is trying to do this but he is getting an error
message saying that the parameter isn't found. He is using the same
method for SELECT queries but it isn't working for UPDATE. Could
someone let me know what is wrong with the following code?

  Manager.sqlquery1.close;
  Manager.sqlquery1.sql.text:='UPDATE Employee SET Points=
:''ENTEREDPOINTS'' WHERE Employee.ManagerID=Manager.ManagerID AND
Manager.Username= :Manager AND Employee.ID= :''ENTEREDID''';
  Manager.sqlquery1.params.parambyname('ENTEREDPOINTS').AsInteger:=Str
toInt(Manager.PointEditBox.text);
  Manager.sqlquery1.params.parambyname('MANAGER').AsInteger:=StrtoInt(
Main.UsernameEditBox.text);
  Manager.sqlquery1.params.parambyname('ENTEREDID').AsInteger:=StrtoIn
t(Manager.EmployeeIDEditBox.text);
  Manager.sqlquery1.execsql;
  Manager.sqltransaction1.commit;
  Manager.sqltransaction1.action:=caCommit;  

Thanks in advance!

Sophie

----------------------------------------------------------------------
valdir.marcos · 2015-01-27 16:11

Quote from: eurythmic on January 27, 2015, 04:31:27 pm 
Manager.sqlquery1.sql.text:='UPDATE Employee SET Points=
:''ENTEREDPOINTS'' WHERE Employee.ManagerID=Manager.ManagerID AND
Manager.Username= :Manager AND Employee.ID= :''ENTEREDID''';

Try
---------------
  Manager.sqlquery1.sql.text:='UPDATE Employee SET Points=
:ENTEREDPOINTS WHERE Employee.ManagerID=Manager.ManagerID AND
Manager.Username= :Manager AND Employee.ID= :ENTEREDID';
---------------

Or try
---------------
  Manager.sqlquery1.sql.text:= 'UPDATE Employee SET Points = ' +
Manager.PointEditBox.text + ' WHERE
Employee.ManagerID=Manager.ManagerID AND Manager.Username=  ' +
Main.UsernameEditBox.text + '  AND Employee.ID=  ' +
Manager.EmployeeIDEditBox.text;
---------------

----------------------------------------------------------------------
engkin · 2015-01-27 16:21

My guess it's the quotation marks around :''ENTEREDPOINTS'' and
:''ENTEREDID'''