VPF::Устранить ошибку "Запись была изменена...

Гульмира

Дата 3.11.2010, 09:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте.
Есть следующая проблема, помогите пожалуйста.

В автономной программе по таймеру запускается процедура,
которая выбирает из базы SQL 2000 записи,

Код


 with DM.QueryPln do begin
  if Active then Close;
  SQL.Clear;
  SQL.Add('exec sp_NewSoob;11 :par1');
  Status := SearchPlnStr(Status, '1', 16);
  Parameters[0].Value := Status;
  Open;
  while not Eof do begin
...

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

Код


   Edit;
 try
   FieldValues['MINIM'] := FReis.Wid;
   FieldValues['STATUS'] := FReis.Status;
   FieldValues['MT_NR'] := Mt_Nr;
   FieldValues['MT_15'] := Mt_Reg;
   FieldValues['EET'] := EET;
   FieldValues['POI_1'] := Poi_1;
   FieldValues['TIM_1'] := Tim_1;
   FieldValues['POI_2'] := Poi_2;
   FieldValues['TIM_2'] := Tim_2;
   FieldValues['RASSYLKA'] := 0;
   FieldValues['MT'] := MtERR;
 except
 end;
   Next;

так вот, она часто выдает ошибку "Запись была изменена с момента ее последнего чтения" и останавливается пока ее опять не запустишь! (в этот момент запись может редактировать пользователь)
Включили в "try" тот блок где она пытается обновить данные в таблице - не помогает.
Что можно еще придумать для того, чтобы программа пропускала записи, и пыталась их изменить при следующем цикле?

Это сообщение отредактировал(а) bems - 3.11.2010, 11:32

Frees

Дата 3.11.2010, 10:05 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Код


....
 except
 end;
   Post;
   Next;
....

Добавлено через 4 минуты и 24 секунды
надо выполнять отдельный запрос UPDATE для каждой записи..

Это сообщение отредактировал(а) Frees - 3.11.2010, 10:06

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

Кольцов Виктор Владимирович

bems

Дата 3.11.2010, 11:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Гульмира, кнопка КОД справа над формой быстрого ответа.

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

Обижено школьников: 8

Гульмира

Дата 3.11.2010, 12:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(bems @ 3.11.2010, 11:32)

Гульмира, кнопка КОД справа над формой быстрого ответа.

Спасибо, следующий раз про код учту.

Добавлено через 12 минут и 34 секунды

Цитата(Frees @ 3.11.2010, 10:05)

Код


....
 except
 end;
   Post;
   Next;
....

Добавлено @ 10:10
надо выполнять отдельный запрос UPDATE для каждой записи..

Фриз, так быстро... спасибо.
Поставила Try выше Edit и добавила Post
посмотрю как будет..
ты советуешь по отдельной процедуре сохранять? Т.е. написать отдельную хранимку и передавать параметры по каждой записи на изменение так?

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