- Код: Выделить всё
DM.IBConnection1.Connected:=False;
DM.IBConnection1.Dialect:=3;
DM.IBConnection1.DatabaseName:='infodb.fdb';
DM.IBConnection1.UserName:='SYSDBA';
DM.IBConnection1.Password:='masterkey';
DM.IBConnection1.Connected:=True;
DM.SQLTransaction1.StartTransaction;
DM.SQLQuery1.Close;
DM.SQLQuery1.SQL.Clear;
DM.SQLQuery1.SQL.Text:='DELETE From INFO Where ''PATH'' = '+QuotedStr(d);
DM.SQLQuery1.ExecSQL;
DM.SQLTransaction1.Commit;
DM.SQLTransaction1.Active:=True;
DM.SQLTransaction1.Active:=False;
DM.SQLTransaction1.EndTransaction;
DM.IBConnection1.Connected:=False;
ShowMessage('Запись удалена!!!');
появляется сообщение, что запись удалена, но на самом деле запись как была в базе, так там и осталась.
как удалить запись из таблицы?