ibdataset

[Alekcey]

procedure TFormMain.DBGridEhRangeIPCellClick(Column: TColumnEh);
    var id_val:integer;
begin

 if DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
   id_val:=DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value;

 with DataModuleMain.IBDataSetRANGEIP do
 begin
 Close;
 ModifySQL.Clear;
 ModifySQL.Add('update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4' );
 ParamByName('Param1').AsString:=FormMain.EditRangeIP1.Text+'.'+
                                 FormMain.EditRangeIP2.Text+'.'+
                                 FormMain.EditRangeIP3.Text+'.'+
                                 FormMain.EditRangeIP4.Text;
 ParamByName('Param2').AsString:=FormMain.EditRangeIP5.Text+'.'+
                                 FormMain.EditRangeIP6.Text+'.'+
                                 FormMain.EditRangeIP7.Text+'.'+
                                 FormMain.EditRangeIP8.Text;
 ParamByName('Param3').AsInteger:=integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes);
 ParamByName('Param4').AsInteger:=id_val;

 ExecSQL;
 end;

 DataModuleMain.IBDataSetRANGEIP.Open;
end;

пишет field "param1" not found

[Alekcey]

Так вроде работает
Только в каком событии писать?

 if DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value<>null then
   id_val:=DataModuleMain.IBDataSetRANGEIP.FieldByName('ID_RANGEIP').Value;

 with DataModuleMain.IBDataSetRANGEIP do
 begin

 Close;
 ModifySQL.Clear;

 ModifySQL.Add('update RANGEIP set IP1='''+ FormMain.EditRangeIP1.Text+'.'+
                                 FormMain.EditRangeIP2.Text+'.'+
                                 FormMain.EditRangeIP3.Text+'.'+
                                 FormMain.EditRangeIP4.Text +''', IP2='''+FormMain.EditRangeIP5.Text+'.'+
                                 FormMain.EditRangeIP6.Text+'.'+
                                 FormMain.EditRangeIP7.Text+'.'+
                                 FormMain.EditRangeIP8.Text +''', FLAGIS='''+inttostr(integer(not FormMain.DBGridEhRangeIP.Columns[3].Checkboxes)) +''' where ID_RANGEIP='''+inttostr(id_val)+'''               ' );

 open;
 end;
 DataModuleMain.IBDataSetRANGEIP.Open;

[soleil@mmc]

первая версия более верная
достаточно подправить то что выделено цветом

 ModifySQL.Add('update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4' );
 Prepare;

это ваще не нужно

 DataModuleMain.IBDataSetRANGEIP.Open;

[Alekcey]

Посоветовали:
В modifySQL:

update RANGEIP set IP1=:Param1, IP2=:Param2, FLAGIS=:Param3 where ID_RANGEIP=:param4

Имена параметров должны совпадать с именами полей, получаемых при выполнении SelectSQL

update RANGEIP set IP1=:IP1, IP2=:IP2, FLAGIS=:FLAGIS where ID_RANGEIP=:OLD_ID_RANGEIP

Все. Больше нигде ничего писать НЕ НУЖНО

сделал так, как посоветовали.
Снимаю флажок, закрываю программу, захожу ч/з IBExpert, а в поле FLAGIS записано "1", а должен быть "0".

убрал всё из RefreshSQL. Заработало
Было тоже что и в SelectSQL:

select * from  RANGEIP order by IP1

Раньше думать надо было:

http://www.ibase.ru/devinfo/ibx.htm#ibdataset