Почему после Sql запроса не получается изменить данные в БД?

Question

[Piligr1m]

Клиентское приложение написано на Delphi с использованием библиотек DevExpress vcl, подключаюсь к MS SQl серверу.
Подключаюсь к Бд в связке DataSourse ADoQuery.
Столкнулся с таково рода проблемой:
Изменяю значение поля :

procedure TForm24.cxButton2Click(Sender: TObject);
    begin
    DM.tviezdi.edit;
    Dm.Tviezdi.FieldByName('Выезд').AsString  := 'Да';
    DM.Tviezdi.post;
    showmessage ('Аварком '+cxDBLookupComboBox3.Text+' назначен')
    end;

Оно вроде изменяется и отображается в cxGrid (Изменен аварком на Яковлева)



Запускаю фильтр :

procedure TForm13.cxButton5Click(Sender: TObject);
    begin
    dm.Tviezdi.Active := false;
    dm.Tviezdi.SQL.clear;
    Dm.Tviezdi.SQL.Add('set language Russian  set dateformat dmy ');
    // Dm.Tviezdi.SQL.Add('select *');
      Dm.Tviezdi.SQL.Add('select ');
      Dm.Tviezdi.SQL.Add('[dbo].[Дата последнего изменения состояния дела]([dbo].[БД].[№ Заявки]) [Дата последнего изменения состояния дела],');
      Dm.Tviezdi.SQL.Add('[dbo].[Просрочка состояния дела]([dbo].[БД].[№ Заявки])[Просрочено],');
      Dm.Tviezdi.SQL.Add('[dbo].[БД].[№ Заявки] idLoss,');
      Dm.Tviezdi.SQL.Add('*');
      Dm.Tviezdi.SQL.Add('FROM  [dbo].[БД]');
      Dm.Tviezdi.SQL.Add('LEFT JOIN [dbo].[Фото инфо]');
      Dm.Tviezdi.SQL.Add('ON [dbo].[Фото инфо].[№ заявки] = [dbo].[БД].[№ Заявки]');
      DM.Tviezdi.SQL.Add('WHERE 1=1');
      DM.Tviezdi.SQL.Add('-- find');
      Dm.Tviezdi.SQL.Add('AND([Дата осмотра]  >= '+#39+cxDateEdit1.Text+#39')');
    Dm.Tviezdi.SQL.Add('and ([Дата осмотра]  <= '+#39+cxDateEdit2.Text+#39')');
    Dm.Tviezdi.SQL.Add('Order By [№ Заявки] Desc');
    Dm.Tviezdi.ExecSQL;
    dm.Tviezdi.Active := true;
    end;

И вижу старые данные (аварком стал Уваров как и был), то есть поле записалось в грид, а в бд нет.Не могу понять в чем проблема.Однако если фильтр не запускать, то данные почему-то сохраняются, а после применения фильтра поменять уже ничего не получается.

Answer 1

[Piligr1m]

Проблема решилась довольно просто .... DM.tviezdi.LockType:= ltBatchOptimistic или ltOptimistic ,
далее добавил кнопку в окне, где Grid ,и на нее дописал: DM.Tviezdi.UpdateBatch(arAll); и все заработало. Здесь есть по подробней
www.da-soft.com/forums/freedac-osnovnoj-russkij/ra...

Answer 2

[Алексей Скахин]

А каким образом по вашем изменения должны уйти в бд?
К query с изменяемым запросом нужно подвязать еще update query в которой написать insert, update и delete запросы.
А после post, вызвать applyupdates, который уже вызовет в зависимости от режима обновление или вставку.

Comments

[Piligr1m]

applyupdates" попробую, а вот "К query с изменяемым запросом нужно подвязать еще update query в которой написать insert, update и delete запросы." Не понял зачем это нужно, если не трудно ,не могли бы пример привести или ссылку кинуть.

[Алексей Скахин]

Вот, посмотрите тут написано про update object http://bcbjournal.org/articles/vol2/9801/Cheating_with_TUpdateSQL.htm?PHPSESSID=37ba81f844745dcd28ce3885df967432

[Piligr1m]

Посмотрел... там он использует компоненты BDE , а у меня ADO... и у TAdoQuery нет свойства applyupdates.

[Piligr1m]

Вы правы , при работе с Sql запросами есть два варианта , в одном случае он создает копию таблицы и она доступна только для просмотра, во втором случае никакой таблицы не создается и данные доступны для редактирования , видимо необходимо писать запрос с update, с компонентами BDE был компонент SqlUpdate , его настроил и проблема решена , а как с компонентами ADO реализовать?

[Алексей Скахин]

C ado компонентами не работал, не знаю. Но как то данные в бд тоже должны откидываться, иначе при следующем запросе изменений никаких не увидим.

Answer 3

[Анатолий]

Dm.Tviezdi.FieldByName('Выезд').AsString := 'Да';
Подозреваю что это геттер а не сеттер.

Comments

[Piligr1m]

Нет это сеттер , иначе он бы ругался, с этим проблем нет...

[Алексей]

Это и Getter И Setter одновременно, в зависимости от режима DataSet

[Piligr1m]

Это один из способов доступа к данным. По-моему их 3. Речь совсем не об этом.

Answer 4

[varus]

А если профайлером запросы посмотреть, которые в базу генерятся? Это, как правило, может на мысли навести.