Как правильно сделать перенос записи из одно таблицы в другую

@niksv1 · Регистрация: 11.04.2018

Author24 — интернет-сервис помощи студентам

Такой вопрос.

Имеется БД на Firebird.

В ней 2 одинаковые таблицы: Document1 и Document2
в каждой из них допустим поля nomrec и tovar
Как организовать перемещение записи из таблицы Document1 в Document2

На текущий момент делаю это так, но это не совсем то!

C++

IBQuery1->Close();
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add("insert into document2 select * from document1 where nomrec=234";
IBQuery1->Open();
IBQuery1->Close();
DM->IBTConnect->Commit();
 
IBQuery1->Close();
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add("delete from document1 where nomrec=234";
IBQuery1->Open();
IBQuery1->Close();
DM->IBTConnect->Commit();

При какой-либо ошибке в первой части, вторая выполниться и наоборот.
Нужно так, чтобы при успешном выполнении действия подтверждались, а при ошибке в любой из частей был откат к предыдущему состоянию

@Bit_Man · 31.05.2018, 03:27

Сообщение от niksv1

при успешном выполнении действия подтверждались, а при ошибке в любой из частей был откат к предыдущему состоянию

Для запросов на изменение данных или не возвращающих данные использовать IBSQL.
Использовать 1 транзакцию на изменение данных.

C++

IBSQL->Transaction->StartTransaction();
try
{
IBSQL->SQL->Clear();
IBSQL->SQL->Add("insert into document2 select * from document1 where nomrec=234");
IBSQL->ExecQuery();
 
IBSQL->SQL->Clear();
IBSQL->SQL->Add("delete from document1 where nomrec=234");
IBSQL->ExecQuery();
 
IBSQL->Transaction->Commit();
}
catch(Exception &E)
{
IBSQL->Transaction->Rollback();
ShowMessage(E.Message);
}

@niksv1 · 31.05.2018, 08:15 **[ТС]**

Так выбивает ошибку Transaction is Active

C++

try
{   
IBQuery1->Close();
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add("insert into document2 select * from document1 where nomrec=234";
IBQuery1->Open();
IBQuery1->Close();
 
IBQuery2->Close();
IBQuery2->SQL->Clear();
IBQuery2->SQL->Add("delete from document1 where nomrec=234";
IBQuery2->Open();
IBQuery2->Close();
Form3->TIBDConnect->Commit();
}
catch(Exception &E)
{
Form3->TIBDConnect->Rollback();
ShowMessage(E.Message);
}

А вот так отрабатывает нормально

@Bit_Man · 31.05.2018, 09:24

Сообщение от niksv1

Так выбивает ошибку Transaction is Active

Проверять нужно транзакцию перед тем как стартовать.

Не по теме:

Всё готовое Вам что-ли подавай

Она у тебя открыта через IBQuery.
На изменение данных отдельный компонент со своей транзакцией (см. выше рекомендации).

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	31.05.2018, 09:24	4
	Сообщение от niksv1 Так выбивает ошибку Transaction is Active Проверять нужно транзакцию перед тем как стартовать. Не по теме: Всё готовое Вам что-ли подавай Она у тебя открыта через IBQuery. На изменение данных отдельный компонент со своей транзакцией (см. выше рекомендации). 0