Code: Select all
procedure Tdm.TransaktionAnfangen(DataSet: TDataSet);
begin
If not (DataSet as TMyTable).Connection.InTransaction then
begin
(DataSet as TMyTable).Connection.StartTransaction;
(DataSet as TMyTable).Lock(lrImmediately); //<== COMMAND THAT FAILS
end
else MessageDlg('DB bereits in Transaktion', mtError, [mbOK],0);
FormNcmmain.TransaktionAnzeige;
end;Code: Select all
#42000You have and error in your SQL Syntax...near':GESUCHID FOR UPDATE' at line 3'....Can you help or do you have a hint?
Thanks in advance.