Как избавиться от ошибки (Транзакция активна)?

Aleator · Регистрация: 04.05.2011

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

Никак не получается удалить запись из таблицы.

C++
1
2
3
4
5
6
7
8
9
10
11
    Form2->IBQuery1->Close();
    Form2->IBQuery1->SQL->Clear();
    String FIO_DEL=Form2->DBEdit1->Text;
    String Address_DEL=Form2->DBEdit2->Text;
    String Data_BD_DEL=Form2->DBEdit3->Text;
    String TEL_DEL=Form2->DBEdit4->Text;
    Form2->IBTransaction1->StartTransaction();
    Form2->IBQuery1->SQL->Add("Delete from PERSONAL where FIO="+FIO_DEL+",ADDRESS="+Address_DEL +", DATA_BD="+ Data_BD_DEL + ",Tel=Tel_DEL" +"");
    Form2->IBQuery1->ExecSQL();
    Form2->IBTransaction1->Commit();
    Form2->IBQuery1->Open();

В итоге получаю:

Aleator · 12.05.2012, 19:38 **[ТС]**

Если без танзакций, выскакивает динамическая SQL ошибка

C++
1
2
3
4
5
6
7
8
9
10
11
    Form2->IBQuery1->Close();
    Form2->IBQuery1->SQL->Clear();
    String FIO_DEL=Form2->DBEdit1->Text;
    String Address_DEL=Form2->DBEdit2->Text;
    String Data_BD_DEL=Form2->DBEdit3->Text;
    String TEL_DEL=Form2->DBEdit4->Text;
//    Form2->IBTransaction1->StartTransaction();
    Form2->IBQuery1->SQL->Add("Delete from PERSONAL where FIO="+FIO_DEL+",ADDRESS="+Address_DEL +", DATA_BD="+ Data_BD_DEL + ",Tel=Tel_DEL" +"");
    Form2->IBQuery1->ExecSQL();
//    Form2->IBTransaction1->Commit();
    Form2->IBQuery1->Open();

Добавлено через 1 час 26 минут
Изменил код. Первым делом "убиваю транзацию", которая мешает. (Не знаю правда, почему она активна, может быть что-то с настройками).

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Form2->IBQuery1->Close();
    Form2->IBQuery1->SQL->Clear();
    String FIO_DEL=Form2->DBEdit1->Text;
    String Address_DEL=Form2->DBEdit2->Text;
    String Data_BD_DEL=Form2->DBEdit3->Text;
    String TEL_DEL=Form2->DBEdit4->Text;
    if (Form2->IBTransaction1->Active==true)
        Form2->IBTransaction1->Rollback();
 
    Form2->IBTransaction1->StartTransaction();
    Form2->IBQuery1->SQL->Add("Delete from PERSONAL where FIO="+FIO_DEL+",ADDRESS="+Address_DEL +", DATA_BD="+ Data_BD_DEL + ",Tel=Tel_DEL" +";");
    Form2->IBQuery1->ExecSQL();
    Form2->IBTransaction1->Commit();
    Form2->IBQuery1->Open();

Теперь ругается на строку SQL. Не подскажете, где ошибки?

Aleator · 12.05.2012, 20:00 **[ТС]**

C++
1
    Form2->IBQuery1->SQL->Add("Delete from PERSONAL where FIO="+FIO_DEL+"and ADDRESS="+Address_DEL +"and DATA_BD=" + Data_BD_DEL + "and Tel=" + TEL_DEL + ";");

The_Immortal · 14.05.2012, 02:36

Aleator, это что за удаления такие?

Где же у Вас ключик заветный прячется, по которому обычно и удаляют?
Корректное проектирование БД может значительно облегчить жизнь...

Aleator · 14.05.2012, 23:40 **[ТС]**

Согласен, что удаление "никакое". Главное было в активной транзакции.
Что касается удаления (переписанного), то почему не работает такое вот:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
      Form2->IBTransaction1->StartTransaction();
 int x=Form2->DataSource1->DataSet->FieldByName("ID_PERSONAL")->AsInteger;
    Form2->IBQuery1->SQL->Clear(); 
    Form2->IBQuery1->SQL->Add("Delete FROM PERSONAL WHERE ID_PERSONAL=:ID_PERSONAL_DEL"); // çàäàòü òåêñò çàïðîñà
 
    Form2->IBQuery1->ParamByName("ID_PERSONAL_DEL")->Value=x;
    Form2->IBQuery1->Prepare();   
    Form2->IBQuery1->ExecSQL();
    Form2->IBTransaction1->Commit();
 
    Form2->IBQuery1->SQL->Clear();
    Form2->IBQuery1->SQL->Add("SELECT * FROM PERSONAL");
    Form2->IBQuery1->Active=true;

(ошибок не показывает). Для проверки сразу после удаления делаю запрос-просмотр, получаю всё те же данные.

The_Immortal · 14.05.2012, 23:49

Aleator, эх, очень хочется Вам помочь, да вот InterBase увы нету

Но есть лаба, которую я давно делал - она тупая, но вроде как основные элементы типа добавления, удаления, обновления там выполнены... Наверное

Правда проект был сделан на XE - сможете открыть?

Aleator · 14.05.2012, 23:52 **[ТС]**

Попытка-не пытка.

The_Immortal · 14.05.2012, 23:57

Aleator, вот, посмотрите, мало ли что обнаружите. А я пока поищу интербейз.

Aleator · 15.05.2012, 00:19 **[ТС]**

Спасибо. Начал копать.

The_Immortal · 15.05.2012, 00:21

Aleator, а подскажите, плиз, что надо скачать для работы с IB-компонентами?)
Чет смутно помню про IB Expert... Только не помню нафига он.

Что-то я запутался слегка)

Aleator · 15.05.2012, 00:42 **[ТС]**

Что значит скачать? Вы имеете ввиду чем создавать базу в Interbase?

Aleator · 15.05.2012, 01:02 **[ТС]**

Мои художества:

The_Immortal · 15.05.2012, 04:09

Aleator, если найду нормальный InterBase под XE2 - гляну.
Проблема остается?
Без параметров, кстати, как удаление проходит?

Добавлено через 1 час 22 минуты
Пф... Еле установил всю эту ересь.

Итак, разбираемся с удалением:

1)

C++
1
2
    if (Form2->IBTransaction1->Active==true)
        Form2->IBTransaction1->Rollback();

- поясните, пожалуйста, необходимость тут этого.
А особенно Rollback().

2) Комментим указанные выше 2 строчки, запускаем, выделяем запись, жмякаем "Удалить" и....

violation of FOREIGN KEY constraint "INTEG_8" on table "GRAPHWORK"

3) Открываем AESFXCF.gdb (я это делаю через IB Expert). Находим табличку GRAPHWORK. Вкладка "Constraints", подвкладка "Foreign keys". Смотрим... Constraint Name: INTEG_8 - тот самый. Ага: Update Rule = NO ACTION, Delete Rule = NO ACTION. Что же получается? Мы пытаемся удалить запись из главной таблицы PERSONAL, а что же в таком случае должно быть с подчиненной записью, которая находится в таблице GRAPHWORK? Разумеется, она должна также удаляться (уволили человека - график его работ уничтожается - это по общей логике; связь "1 ко многим" - это по логике проектирования БД). А у нас, как видите, при удалении ничего не происходит (NO ACTION). Вы уж извольте регулировать удаление записей и там (GRAPHWORK сначала) и там (PERSONAL). Это можно делать вручную, а можно вместо NO ACTION, выставить CASCADE (на обновление и на удаление), что означает автоматическое регулирование таких ситуаций. Щелкаем наверху желтую молнию/ctrl + F9.

4) Запускаем прогу, выделяем запись (давайте попробуем "Смолину"), жмякаем "Удалить" и....

violation of FOREIGN KEY constraint "INTEG_12" on table "SUBSCRIPTION"

Ну тут я уже подсказывать не буду, что надо делать - логика аналогичная. Надеюсь догадаетесь

А вот "Деревянко" удалится, т.к. этот человек не зафиксирован в таблице SUBSCRIPTION.

P.S. Прошу простить за занудный стиль изложения - просто хочется привить понимание

P.P.S.

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

Корректное проектирование БД может значительно облегчить жизнь...

Aleator · 15.05.2012, 09:54 **[ТС]**

Огромное спасибо!

C++
1
2
  if (Form2->IBTransaction1->Active==true)
        Form2->IBTransaction1->Rollback();

- без этого все время выскакивает ошибка транзакция активна (не знаю какая), поэтому я её сначала "прибиваю", а потом работаю дальше.
Можно и

C++
1
Form2->IBTransaction1->Commit();

The_Immortal · 15.05.2012, 10:16

Aleator,

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

без этого все время выскакивает ошибка транзакция активна

Хм, а у меня чего-то ничего не выскочило.
А вот с этим Роллбэком Датасет потом получается пустой - по крайней мере ID по полю возвращается всегда 0.

Aleator · 15.05.2012, 23:48 **[ТС]**

1. Базу я создавал и открываю для внесения изменений в IBConsol-е.
2. В вкладке "Constraints", подвкладке "Foreign keys" значение OnUpdate = Restrict. Меняю на CASCADE (и удаление и обновление). Закрываю IBConsol. Открываю через минуту - всё по прежнему.
3. Скачаю IB Expert, буду менять свойства там.

The_Immortal · 16.05.2012, 02:30

Aleator,

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

В вкладке "Constraints", подвкладке "Foreign keys" значение OnUpdate = Restrict. Меняю на CASCADE (и удаление и обновление). Закрываю IBConsol. Открываю через минуту - всё по прежнему.

Хм, а у меня нормально. CASCADE сохраняется.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	14.05.2012, 02:36
	Aleator, это что за удаления такие? Где же у Вас ключик заветный прячется, по которому обычно и удаляют? Корректное проектирование БД может значительно облегчить жизнь... 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	14.05.2012, 23:49
	Aleator, эх, очень хочется Вам помочь, да вот InterBase увы нету Но есть лаба, которую я давно делал - она тупая, но вроде как основные элементы типа добавления, удаления, обновления там выполнены... Наверное Правда проект был сделан на XE - сможете открыть? 0

Aleator 102 / 87 / 17 Регистрация: 04.05.2011 Сообщений: 1,330
	14.05.2012, 23:52 [ТС]
	Попытка-не пытка. 0

Aleator 102 / 87 / 17 Регистрация: 04.05.2011 Сообщений: 1,330
	15.05.2012, 00:19 [ТС]
	Спасибо. Начал копать. 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	15.05.2012, 00:21
	Aleator, а подскажите, плиз, что надо скачать для работы с IB-компонентами?) Чет смутно помню про IB Expert... Только не помню нафига он. Что-то я запутался слегка) 0

Aleator 102 / 87 / 17 Регистрация: 04.05.2011 Сообщений: 1,330
	15.05.2012, 00:42 [ТС]
	Что значит скачать? Вы имеете ввиду чем создавать базу в Interbase? 0

Aleator 102 / 87 / 17 Регистрация: 04.05.2011 Сообщений: 1,330
	15.05.2012, 23:48 [ТС]
	1. Базу я создавал и открываю для внесения изменений в IBConsol-е. 2. В вкладке "Constraints", подвкладке "Foreign keys" значение OnUpdate = Restrict. Меняю на CASCADE (и удаление и обновление). Закрываю IBConsol. Открываю через минуту - всё по прежнему. 3. Скачаю IB Expert, буду менять свойства там. 0