Rollback;
Метод Rollback отменяет все изменения и завершает транзакцию.
Sub Main;
Var
MB: IMetabase;
DB: IDatabaseInstance;
Connect: ISecurityConnection;
Command: IDalCommand;
Tran: IConnectionTransaction;
Begin
MB := MetabaseClass.Active;
DB := MB.ItemById("BD").Open(Null) As IDatabaseInstance;
Connect := DB.Connection;
Command := Connect.CreateCommand("Insert Into Table_1 values ('A',1)");
Tran := Connect.StartTransaction(False);
Try
Command.Execute;
Tran.Commit;
Except
Tran.Rollback;
End Try;
Command.Close;
End Sub Main;
После выполнения примера будет осуществлено подключение к серверу БД, на который настроена база данных репозитория "BD". Для данного соединения будет создан и выполнен SQL-запрос, осуществляющий вставку новой записи в таблицу с физическим наименованием "Table_1". Если будут присутствовать несохраненные данные, то они будут сохранены на сервере.
См. также: