VPF::Delphi 2010 & Firebird 2.1 - Форум программистов

former

Дата 12.4.2010, 10:27 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Цитата(VahaC @ 12.4.2010, 08:45

)

Как это сделать с помощью ДБНавигатора к сожалению не знаю, так как в своих проектах его не использую

DBNavigator тут не причем. Подтверждать транзакцию нужно в ClientDataSet, в триггере AfterPost. Ну и, соответственно, выполнять откат при ошибке (OnPostError и т.п.).

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

VahaC

Дата 12.4.2010, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 4.9.2007

Репутация: нет
Всего: нет

Цитата(former @ 12.4.2010, 10:27

)

Подтверждать транзакцию нужно в ClientDataSet, в триггере AfterPost. Ну и, соответственно, выполнять откат при ошибке (OnPostError и т.п.).

полностью согласен

Keeper89

Дата 12.4.2010, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Цитата(former @ 12.4.2010, 10:27

)

ок, а как это должно выглядеть в коде?

Это сообщение отредактировал(а) Keeper89 - 12.4.2010, 12:45

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

former

Дата 12.4.2010, 12:42 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Код


procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet);
begin
  IBTransaction1.CommitRetaining();
end;

procedure TForm1.ClientDataSet1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  IBTransaction1.Rollback();
end;

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Keeper89

Дата 12.4.2010, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

А что есть IBTransaction1? smile

+ другой маленький вопрос (не буду делать отдельную тему). Имеется триггер (и соотв. генератор) на BeforeInsert для ID-поля. При вставке новой записи в IBExpert'е автоматически добавляется новый ID как и положено, однако при попытке добавления записи в Delphi такого не происходит. В чем может быть дело?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

former

Дата 12.4.2010, 13:15 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Цитата(Keeper89 @ 12.4.2010, 12:46

)

А что есть IBTransaction1?

Так ты используешь dbExpress. А я так понял, что после сообщения Данкинг-а IBX. smile

Вот статья.

Цитата(Keeper89 @ 12.4.2010, 12:46

)

В чем может быть дело?

Тело триггера в студию.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Данкинг

Дата 12.4.2010, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(former @ 12.4.2010, 14:15

)

Так ты используешь dbExpress. А я так понял, что после сообщения Данкинг-а IBX.

А, ну да, я про IBX, разумеется. Там без IBTransaction работать и не будет.

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 12.4.2010, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Цитата(former @ 12.4.2010, 13:15

)

Вот статья.

Очень она пессимистичная smile

В моем случае никак? smile

Цитата(former @ 12.4.2010, 13:15

)

Тело триггера в студию.

Код


AS
BEGIN
  IF (NEW.PRODUCTID IS NULL) THEN
    NEW.PRODUCTID = GEN_ID(GEN_PRODUCT_ID,1);
END

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 12.4.2010, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Keeper89 @ 12.4.2010, 12:46

)

А что есть IBTransaction1?

Это транзакция. Транзакции в базах данных ухх как важны!
Транзакция - это совокупность действий...

Keeper89

Дата 12.4.2010, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Цитата(Akella @ 12.4.2010, 15:32

)

Это транзакция. Транзакции в базах данных ухх как важны!
Транзакция - это совокупность действий...

Спасибо за напоминание smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 12.4.2010, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Keeper89 @ 12.4.2010, 12:46

)

однако при попытке добавления записи в Delphi такого не происходит. В чем может быть дело?

А что ты передаёшь серверу, NULL?

Цитата(Keeper89 @ 12.4.2010, 15:29

)

IF (NEW.PRODUCTID IS NULL)

Согласно условий ты должен передать NULL в запросе для этого поля. А лучше вообще не передавать это поле:

Код

insert into table1 (name, BirthDay) values ('Вася Пупкин', '2001-01-12')

Добавлено @ 15:56
Или если НЕ передаёшь NULL, то должен передать конкретное значение:

Код

insert into table1 (id, name, BirthDay) values (10, 'Вася Пупкин', '2001-01-12')

Это сообщение отредактировал(а) Akella - 12.4.2010, 15:57

Keeper89

Дата 12.4.2010, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Цитата(Akella @ 12.4.2010, 15:55

)

А что ты передаёшь серверу, NULL?

Ничего не передаю.

У меня есть ClientDataSet, для добавления я делаю ClientDataSet.Insert, заполняю только нужные поля (через DBEdit'ы), и дальше ClientDataSet.Post.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 13.4.2010, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Keeper89 @ 12.4.2010, 12:46

)

При вставке новой записи в IBExpert'е автоматически добавляется новый ID как и положено, однако при попытке добавления записи в Delphi такого не происходит. В чем может быть дело?

Хорошо. А что значит "ничего не происходит"? Что ты под этим подразумеваешь? Что ты ожидаешь? Что должно произойти?

Keeper89

Дата 13.4.2010, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Цитата(Akella @ 13.4.2010, 10:41

)

Я подразумеваю, что при Post'е незаполненные поля (которые по идее передаются как NULL) заполнятся автоматически на основании триггеров. А выдается ошибка, что поле должно быть заполнено.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 14.4.2010, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Наверное, это связано с внутренней реализацией компонент. Поэтому два выхода.
1. В клиентской части приложения берём значение генератора и передаём в запросе, как и все остальные поля.
2. Поле ID вообще не должно участвовать в запросе. Зачем ты его туда пхаешь?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »