Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.02.2014, 12:08
govorun govorun вне форума
Новичок
 
Регистрация: 30.10.2013
Сообщения: 60
Версия Delphi: delphi 7
Репутация: 10
По умолчанию Изменение текущей записи

Сделал выборку данных Adoquery
Показал их в dbgrid
А теперь по нажатию кнопки нужно изменить значение поля в записи(строке) на которой установлен курсор в dbgrid (dbgrid только для чтения)

Это конечно бред
Код:
    adoquery1.Close;
    adotable1.Edit;
    adoquery1.DataSource.DataSet.Fields.FieldByName('sd_v_kl').AsInteger:=1;
    adotable1.Post;
    adoquery1.Open;

Помогите....
Ответить с цитированием
  #2  
Старый 09.02.2014, 13:11
govorun govorun вне форума
Новичок
 
Регистрация: 30.10.2013
Сообщения: 60
Версия Delphi: delphi 7
Репутация: 10
По умолчанию

Сделал так
Код:
var
    id:integer;
begin
    id:=adoquery1.Fields[0].AsInteger;
    adotable1.Edit;
    adoquery2.Close;
    adoquery2.SQL.Text:='update inkasso set sd_v_kl = 1 where s = id';
    adoquery2.Parameters[0].Value:=id;
    adoquery2.ExecSQL;
    adotable1.Post;
end;
мот кто получше что предложит
Ответить с цитированием
  #3  
Старый 09.02.2014, 19:36
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,036
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А зачем так сложно. Если у тебя источник данных ATDOTable, то прямо в нем и можно редактировать?
Код:
ADOTable1.Edit;
ADOTable1.Fields.FieldByName('sd_v_kl').AsInteger:=1;
ADOTable1.Post;
Ответить с цитированием
  #4  
Старый 10.02.2014, 09:41
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

может только запрос, а потом refresh?
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:20.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter