Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Всё тот же кэш. 


UncleRu   (2002-03-06 18:06) [0]

Объясните в чём проблемс. Есть Таблица в IB5.0 с полями: PACIENT_ID: Integer (уникальный номер записи, вставляется с помощью генератора), NAME: Varchar, BIRTHDAY: Data. Выполняю с ней манипуляции с помощью кэшированных данных (CachedUpdates:=True). Всё прекрасно работает, данные чётко пересылаются в БД при ApplayUpdates, но вот очистка кэша не работает, т.е. при выполнении CancelUpdates машина просто виснет. Причём если выполняешь манипуляцию только с одной записью (только один insert либо delete либо update), то никаких глюков нет – CancelUpdates выполнятся без проблем. Сделал проверку кода в IBCustomDataSet.pas, чтоб глянуть где могёт быть глюк при выполнении этого метода и экспериментальными методами обнаружил что зависание происходит при выполнении цикла в procedure TIBCustomDataSet.CancelUpdates


while not EOF do
begin
RevertRecord;
Next;
end;

Причём именно на RevertRecord происходит подвисание. Объясните, пожалуйста, в чём может быть проблема? Почему с одной записью всё нормально проходит, а с больше чем одной нет, и как с этим бороться?



Saha   (2002-03-06 18:24) [1]

TBDEDataSet.CommitUpdates - Clears the cached updates buffer.
А CancelUpdates отменяет внесенные изменения.
Из вопроса непонятно что вам нужно.
И сам код процедуры записи не плохо бы посмотреть.



UncleRu   (2002-03-07 11:39) [2]

Я не использую BDE. Использую только компоненты InterBase: IBQuery с IBUpdateSQL. IBQuery.CachedUpdates:=True.
Вот код вставки записей:

IBQPatient.Insert;
IBQPatient.FieldByName("NAME").Value:=fmAddPacient.edFIO.Text;
IBQPacientBIRTHDAY.Value:=fmAddPacient.DateTimePicker1.Date;
IBDSPatient.Post;

После этого запись чётко отображается в DBGrid а параметр IBQPatient.UpdatesPending:=True;
Затем отрабатываем отмену всех изменений, т.е. очищаем кэш:

procedure TfmEnterBD.btnCancelClick(Sender: TObject);
begin
/IBDSPatient.CancelUpdates;
end;

Вот тут и начинается проблема о которой я писал выше. Из-за чего это может быть? И как с эти бороться? Почему при вставке одной записи проходит всё гладко, а при вставке большего числа записей машина подвисает?



Alexandr   (2002-03-07 11:45) [3]

дык
1) версию IBX возьми поновее, может поможет.
2) А поглубже покопаться в исходниках? Чего там при RevertRecord делается...



Saha   (2002-03-07 12:43) [4]

Вместо Post используй ApplyUpdates.
Далее CancelUpdates как раз и используется для группы записей
а для одной нужно использовать RevertRecord.

IBQPatient.Insert;
IBQPatient.FieldByName ("NAME").Value:=fmAddPacient.edFIO.Text; IBQPacientBIRTHDAY.Value:=fmAddPacient.DateTimePicker1.Date;
IBDSPatient.Post;
^ это что ?
Insert делаешь у квери а Post у кого?



UncleRu   (2002-03-07 14:38) [5]

To Sasha.

Там ошибка, извиняюсь, просто я всё по памяти писал. Вместо IBDSPatient.Post естественно IBQPatient.Post.

Что значит использывать ApplyUpdates вместо Post?! Это совершенно разные фунуции, ApplyUpdates сразу все изменения произведённые в кэше отошлёт в БД, а Post заносит данные именно в кэш. Какой смысл тогда использывать кэш?



UncleRu   (2002-03-16 13:38) [6]

Решил проблему! Всё очень просто :-) - поставил Delphi 6 и всё заработало... Видать ошибка была в самом коде IB.pas.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
6-22780           Ivanov Vova           2002-01-21 12:32  2002.04.08  
Как можно сделать?


1-22618           VictorT               2002-03-27 16:29  2002.04.08  
Список файлов в конкретной папке (без вложеных)


1-22684           lipskiy               2002-03-24 23:23  2002.04.08  
TThread: Что значит ошибка


1-22719           vlv                   2002-03-26 20:45  2002.04.08  
Как очистить TBitmap?


6-22777           Dup                   2002-01-23 15:50  2002.04.08  
Mapi