ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Откат изменений в ADO
3 сообщений из 3, страница 1 из 1
Откат изменений в ADO
    #32079409
Zeppelin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zeppelin
Гость
Как правильно обеспечить возможность отказа от внесения новой (изменения ) записи
Используя MSDataShape?

У меня есть два рекордсета : Main и Child.
Например, накладная и содержание накладной. Я ввожу новую накладную , а потом отказываюсь от ввода. Или при редактировании были введены новые строки в накладную, и какие – то удалены , а потом отказываюсь от изменений.



Новые записи я добавляю так:
…
Main->AddNew();
…
//накладная
Main->GetFields()->GetItem("Nomer")->Value =vNomer;
…
Main->UpdateBatch(adAffectCurrent);


Child = Main->GetFields()->GetItem("IDRelation")->Value; //подчиненный рекордсет
Child->AddNew();

…
//строчка в накладной
Child->Fields->GetItem("TovarID")->Value =vTovarID;
…
//записываю внешний ключ иначе выдается ошибка целостности
Child->Fields->GetItem("ParentID")->Value = Main->GetFields()->GetItem("ID")->Value;
…
Child ->UpdateBatch(adAffectAll);

…
то есть пока в я не запишу в базу строку родительского рекордсета UpdateBatch(adAffectCurrent);
в строки дочернего рекордсета не записываются в БД


Помогите , плиз.
...
Рейтинг: 0 / 0
15.12.2002, 15:04
| Ответить | Цитировать | Написать  
Откат изменений в ADO
    #32079413
dkstranger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dkstranger
Участник
Тут есть несколько путей

1. До окончании полного ввода в нормализованные таблицы
не заносятся parent и child (накладная и ее детали).
Сответствующая информация лежит либо в переменных окружения,
либо в стеках (например, временные таблицы)
После подтверждения сразу заносится и родитель и детали

2. Сначала в таблицу-родитель заносится "пустышка", к которой
приписываются детали. Потом "пустышка" модифицируется

У обоих подходов есть свои плюсы и минусы, но откат и в том и в другом
случае очевиден
...
Рейтинг: 0 / 0
15.12.2002, 15:08
| Ответить | Цитировать | Написать  
Откат изменений в ADO
    #32079498
Zeppelin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zeppelin
Гость
Спасибо за отклик.

Нашел! Проверял только под MSSQLServer.

таблица Main - поле ключа ID
таблица Child - поле ключа ID, поле внешнего ключа - MainID

1) В таблице Main : PrimaryKey - ID
2) В таблице Child : PrimaryKey - ID+MainID ; RelationShip: Main.ID - Child.MainID

3) теперь все получается:…
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
	Main->AddNew();
	…
	//накладная
	Main->GetFields()->GetItem( "Nomer" )->Value =vNomer;
…
//Main->UpdateBatch(adAffectCurrent);//убрали!


Child       = Main->GetFields()->GetItem( "IDRelation" )->Value; //подчиненный рекордсет
Child->AddNew();

…
//строчка в накладной
Child->Fields->GetItem( "TovarID" )->Value =vTovarID;

...
//здесь можно сделать откат если нужно
...

Main->UpdateBatch(adAffectCurrent);//перенесли сюда. Ура товарищи!
…
//записываю внешний ключ, иначе выдается ошибка целостности 
Child->Fields->GetItem( "ParentID" )->Value = Main->GetFields()->GetItem( "ID" )->Value;
…
Child ->UpdateBatch(adAffectAll);
…
...
Рейтинг: 0 / 0
15.12.2002, 17:32
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Откат изменений в ADO
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]