Доброго времени суток всем!
В общем начну по порядку:
СУБД InterBase, БД из 8 таблиц, в каждой по одному полю blob типа.
Для работы с базой использую компоненты dbExpress:
SQLConnection для связи с базой и компоненты SimpleDataSet для работы с таблицами.
Добавление записей и удаление происходит нормально. А вот с редактированием проблема, а именно:
При редактировании любой записи кроме последней, редактирование происходит как положено, а вот при отправке изменений последней записи таблицы на сервер вылетает ошибка "SimpleDataSet: Must apply updates before refreshing data" - не проходит метод ApplyUpdates().
Кто сталкивался подскажите в чем проблема.
Кусок кода где возникает ошибка:
DataModule1.sidsAdmin.Edit;
... ...
DataModule1.sidsAdmin.FieldByName('data_sozd').AsDateTime:=StrToDate(Edit_date_a dmin.Text);
DataModule1.sidsAdmin.FieldByName('nomer_doc').AsInteger:=StrToInt(Edit_No_admin .Text);
... ...
try
stream_db:=DataModule1.sidsAdmin.CreateBlobStream (DataModule1.sidsAdmin.FieldByName('PICTURE'),bmWrite);
file_stream:=TFileStream.Create(Edit_pdf_add.Text,fmOpenRead);
stream_db.CopyFrom(file_stream,file_stream.Size);
finally
file_stream.Free;
stream_db.Free;
end;
end;
DataModule1.sidsAdmin.Post;
DataModule1.sidsAdmin.ApplyUpdates(0);
DataModule1.sidsAdmin.Refresh;