VPF::Update - Форум программистов

pss

Дата 17.1.2009, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.12.2008

Репутация: нет
Всего: нет

есть база. Есть запросы. Запросы отображаются на DBGrid.
Как сделать так чтоб можно было при выборе на гриде записи ее можно было изменить.
вот что я написал

Код


UPDATE CLIENT
SET 
"Fam"=:Fam, 
"Name"=:Name, 
"FastName"=:FastName, 
"Translit"=:Translit, 
"Birth"=:Birth, 
"Post_Index"=:Post_Index, 
"Town"=:Town,
"Street"=:Street, 
"Building"=:Building, 
"Flat"=:Flat, 
"TelDom"=:TelDom, 
"TelRab"=:TelRab, 
"Pasport"=:Pasport, 
"DeistvitelenDo"=:DeistvitelenDo, 
"Info"=:info
where Client."ID_Client"=:Par1;

Код


IBQUpdate.Params.ParamByName('Par1').Value:=FormSearch.IBQByFamID_Client.Value;

IBQUpdate.Params.ParamByName('Fam').Value:=Fam;
     IBQUpdate.Params.ParamByName('Name').Value:=Name;
     IBQUpdate.Params.ParamByName('FastName').Value:=LastName;
     IBQUpdate.Params.ParamByName('Translit').Value:=Translit;
     if DateTimePicker1.Enabled=true then
     IBQUpdate.Params.ParamByName('Birth').AsDate:=birth
     else
     IBQUpdate.Params.ParamByName('Birth').Value:=Null;
     IBQUpdate.Params.ParamByName('Post_Index').Value:=index;
     IBQUpdate.Params.ParamByName('Town').Value:=Town;
     IBQUpdate.Params.ParamByName('Street').Value:=Street;
     IBQUpdate.Params.ParamByName('Building').Value:=building;
     IBQUpdate.Params.ParamByName('Flat').Value:=flat;
     IBQUpdate.Params.ParamByName('TelDom').Value:=TelDom;
     IBQUpdate.Params.ParamByName('TelRab').Value:=TelRab;
     IBQUpdate.Params.ParamByName('Pasport').Value:=NomerID;
     if DateTimePicker2.Enabled=true then
     IBQUpdate.Params.ParamByName('DeistvitelenDo').AsDate:=data
     else
     IBQUpdate.Params.ParamByName('DeistvitelenDo').Value:=Null;
     IBQUpdate.Params.ParamByName('info').Value:=info;
      try IBQUpdate.ExecSQL
      except
        ShowMessage('Ошибка записи!'+#13+'Попробуйте еще раз');
        DataModule2.IBTransaction1.RollbackRetaining;
        exit;
      end;
      DataModule2.IBTransaction1.CommitRetaining;
      Form1.IBClient.Close;
      Form1.IBClient.Open;

только проблема в том что он изменяет запись первого по списку в DBgrid а не указанную запись номер которой равен ID_Cient.

Akella

Дата 17.1.2009, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 20
Всего: 329

Код


update ....

....
where Client."ID_Client"=:ID_Client;

И вообще, вот "Работа с IBX"

Добавлено через 2 минуты и 47 секунд
В кавычки каждое поле не нужно брать.
Ручками значения параметрам не нужно присваивать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Firebird, Interbase \| Следующая тема »