Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с методом Locate [D6, Paradox]

Роман Лицевич © (2003-01-13 19:47:00)
Доброе время суток!

У меня возникла следующая проблема. Необходимо обработать данные, полученные от "клиента", следующим образом:
1) если запись с указанным кодом существует в локальной таблице, то следует заменить существующие значения ее атрибутов переданными;
2) если запись с таким кодом не найдена, необходимо ее добавить, используя полученные значения атрибутов.
Серверное приложение написано в виде сервиса под W2K. Логика его работы такова: при получении данных создается поток (Thread) для их обработки. При этом потоку передается имя таблицы, в которую необходимо вставить данные. В обработчике потока полученные данные интерпретируются, а затем обрабатываются по описанному выше алгоритму. При этом используется следующий код:
with Table do
begin
Open;
Edit;
if Not Locate(<КодЗаписи>, <полученное значение>, []) then
Append;
SetFields(<значения атрибутов>);
Post;
Close;
end;
При добавлении новой записи этот код работает. Но как только приложение пытается обновить существующую запись, возникает ошибка добавления данных "Dataset not in edit or insert mode".
С чем это может быть связано и как можно решить эту проблему?

Роман Лицевич (2003-01-13 20:22:00) [1]
/Anatoly Podgoretsky © (13.01.03 20:16)/

Насчет инверсного If согласен, подобная мысль у меня была; но я не догадался использовать Edit по ветке Else, поэтому и использовал конструкцию с Not.

Роман Лицевич (2003-01-13 20:17:00) [2]
Возникла мысль, что, может быть, стоит указать вместо значения ключевого поля nil, но тогда, наверное, придется писать отдельный код для Append; возможно, использовать метод AppendRecord и в нем задавать все параметры, а хотелось бы как-то более оптимизированно.

Anatoly Podgoretsky (2003-01-13 20:16:00) [3]
Попытка дублированя одного из уникальных полей, обрати также внимание что у меня инверсный к твоему метода if Locate

Роман Лицевич (2003-01-13 20:03:00) [4]
Anatoly Podgoretsky © (13.01.03 19:55)//
Спасибо, сработало, но вылетело "Key violation" при попытке вызвать Post.
Я прошу прощения за такие, возможно, "детские" вопросы, но тем не менее...

Anatoly Podgoretsky (2003-01-13 19:55:00) [5]
if Locate(<КодЗаписи>, <полученное значение>, [])
then Edit
else Append;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »