IConnectionTransaction.Commit

Синтаксис Fore

Commit;

Синтаксис Fore.NET

Commit();

Описание

Метод Commit сохраняет все изменения на сервере базы данных и завершает транзакцию.

Комментарии

При сохранении данных срезов, источником для которых является стандартный куб, операция сохранения осуществляется внутри внешней транзакции.

Пример Fore

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». Если будут присутствовать несохраненные данные, то они будут сохранены на сервере.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Db;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    DB: IDatabaseInstance;
    Connect: ISecurityConnection;
    Command: IDalCommand;
    Tran: IConnectionTransaction;    
Begin
    MB := Params.Metabase;
    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;

См. также:

IConnectionTransaction