Delphi7+DBGridEh+FireBird+IBDataSet

[Alekcey]

Delphi7+DBGridEh+FireBird+IBDataSet

таблица:

CREATE TABLE RANGEIP (
    ID_RANGEIP  INTEGER NOT NULL,
    IP1         VARCHAR(20),
    IP2         VARCHAR(20),
    FLAGIS      SMALLINT
);

с IBDataSet делаю так:
в GeneratorField:

GEN_RANGEIP_ID -> ID_RANGEIP By 1

в InsertSQL:

insert into RANGEIP (ID_RANGEIP, IP1, IP2, FLAGIS ) values (:ID_RANGEIP, :IP1, :IP2, :FLAGIS)

в ModifySQL:

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

в RefreshSQL:

select * from  RANGEIP where ID_RANGEIP=:ID_RANGEIP order by IP1

в SelectSQL:

select * from  RANGEIP order by IP1

При выполнении кода:

   DataModuleMain.IBDataSetRANGEIP.open;
   DataModuleMain.IBDataSetRANGEIP.Insert;   DataModuleMain.IBDataSetRANGEIP.ParamByName('IP1').AsString:=FormMain.EditRangeIP1.Text+'.'+FormMain.EditRangeIP2.Text+'.'+FormMain.EditRangeIP3.Text+'.'+FormMain.EditRangeIP4.Text;
   DataModuleMain.IBDataSetRANGEIP.ParamByName('IP2').AsString:=FormMain.EditRangeIP5.Text+'.'+FormMain.EditRangeIP6.Text+'.'+FormMain.EditRangeIP7.Text+'.'+FormMain.EditRangeIP8.Text;
   DataModuleMain.IBDataSetRANGEIP.Post;

возникает ошибка:
Field "IP1" not found

[Alexei91]

Alekcey
Проверьте,что у вас IBDataSetRANGEIP в момент выполнения запроса.
P.S.
ИМХО, лучше используйте IBQuery и в св-ве SQL пишите ваши запросы.
На нужные вам события выполняйте нужный вам запрос.

[Alekcey]

Сообщение от Alexei91

Alekcey

ИМХО, лучше используйте IBQuery и в св-ве SQL пишите ваши запросы.
На нужные вам события выполняйте нужный вам запрос.

я на поле FLAGIS CheckBox использую. TQuery не пойдёт

[Alekcey]

ну наконец дошло

DataModuleMain.IBDataSetRANGEIP.open;
   DataModuleMain.IBDataSetRANGEIP.Insert;
   DataModuleMain.IBDataSetRANGEIP.FieldByName('IP1').AsString:=FormMain.EditRangeIP1.Text+'.'+FormMain.EditRangeIP2.Text+'.'+FormMain.EditRangeIP3.Text+'.'+FormMain.EditRangeIP4.Text;
   DataModuleMain.IBDataSetRANGEIP.FieldByName('IP2').AsString:=FormMain.EditRangeIP5.Text+'.'+FormMain.EditRangeIP6.Text+'.'+FormMain.EditRangeIP7.Text+'.'+FormMain.EditRangeIP8.Text;
   DataModuleMain.IBDataSetRANGEIP.FieldByName('FLAGIS').AsInteger:=1;
   DataModuleMain.IBDataSetRANGEIP.Post;

[Alekcey]

Мужики, удобный компонент оказывается, надо взять на вооружение.

для MS SQL Server подобного компонента с SelectSQL, DeleteSQL ... не подскажите?

[Alekcey]

на гриде CheckBox сделал. устанавливаю флаг. закрываю программу, запускаю снова, флаг не установлен.
Если ставлю флаги на нескольких полях закрываю программу, запускаю снова, флаги установлены только на некоторых полях.

Я так понял транзакцию комитить надо. в каком методе это делать или? или.. или как?

Transaction Properties= Read_Committed

[Alexei91]

Посмотрите http://www.programmersforum.ru/showthread.php?t=109691 - может поможет.