Commit;
Метод Commit осуществляет сохранение внесенных изменений в рамках данной транзакции.
Для инициализации транзакции предварительно необходимо выполнить метод IDalConnection.StartTransaction.
Добавьте ссылки на системные сборки: Dal.
Sub UserProc;
Var
Driver: IDalDriver;
Connect: IDalConnection;
Command: IDalCommand;
ConnectDesc: IDalConnectionDescriptor;
ConnectDescParams: IDalConnectionDescriptorParams;
Begin
Driver := New DalOrcl8Driver.Create;
//Параметры подключения
ConnectDesc := Driver.CreateDescriptor;
ConnectDescParams := ConnectDesc.Params;
ConnectDescParams.Find("User Name").Value := "User";
ConnectDescParams.Find("Password").Value := "Password";
ConnectDescParams.Find("Host BSTR").Value := "OrclServer";
ConnectDescParams.Find("Schema").Value := "Repository";
//Создание соединения
Connect := ConnectDesc.CreateConnection;
Command := Connect.CreateCommand;
//Команда
Command.SQL := "Insert Into DataTable Values ('AA','BB',11,22,'12.12.2008')";
Connect.StartTransaction;
//Выполнение команды
Command.Execute;
//Завершение транзакции с сохранением данных
Connect.Commit;
Command.Close;
Connect.Close;
End Sub UserProc;
При выполнении примера будет осуществлено подключение к репозиторию с указанными параметрами расположения. После этого произойдет инициализация транзакции и выполнение SQL-запроса, который добавляет новую запись в таблицу «DataTable».
См. также: