не работает запрос для interbase

[Domanoff]

создал базу ,подключаюсь к базе из delfhi первый же запрос на вставку тупо не заполняет то что нужно и ошибки не выдает,не знаю в чем дело

       procedure TForm3.FormCreate(Sender: TObject);
begin
  IBQuery1.Open;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
  IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1),
 '+quotedstr(edit1.text)+' , '+quotedstr(datetostr(datetimepicker1.date))+')';
IBQuery1.ExecSQL;
end;

с этим IBQuery1 перепробывал разными способами все равно не заполняет......
с этим вряд ли поможете,но подскажите хотя бы как ЭТО ЖЕ сделать другим
компонентом или способом.....ibdataset там или че нить другое.....

[Dark_Spirit]

      procedure TForm3.FormCreate(Sender: TObject);
begin
  IBQuery1.Open;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
  IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1),
 '+quotedstr(edit1.text)+' , '+quotedstr(datetostr(datetimepicker1.date))+')';
IBQuery1.ExecSQL;
end;

убери выделенный фрагмент.

[Domanoff]

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

убери выделенный фрагмент.

да не ...все равно так же....подскажите другой способ

[dron-s]

переоткрывай после вставки НД чтобы он обновился...

procedure TForm3.Button1Click(Sender: TObject);
begin
  IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1),
 '+quotedstr(edit1.text)+' , '+quotedstr(datetostr(datetimepicker1.date))+')';
IBQuery1.ExecSQL;
IBQuery1.Close;
IBQuery1.Open;
end;

[Domanoff]

Сообщение от dron-s

переоткрывай после вставки НД чтобы он обновился...

procedure TForm3.Button1Click(Sender: TObject);
begin
  IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1),
 '+quotedstr(edit1.text)+' , '+quotedstr(datetostr(datetimepicker1.date))+')';
IBQuery1.ExecSQL;
IBQuery1.Close;
IBQuery1.Open;
end;

неее тож самое. я даж не знаю в чем дело а у IBQuery1, datasource обязательно что то назначать, у мя только с базой соединен..... самое странное что вроде тожд самое раньше работало((((

подскажите другим способом

[Dark_Spirit]

а какой будет результат если написать вот так:

showmessage(inttostr(IBQuery1.ExecSQL));

вместо

IBQuery1.ExecSQL;

[Domanoff]

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

а какой будет результат если написать вот так:

showmessage(inttostr(IBQuery1.ExecSQL));

вместо

IBQuery1.ExecSQL;

не хочет компилировать, пишет что то что inttostr не подходит или что то типа того

[soleil@mmc]

может так?

procedure TForm3.Button1Click(Sender: TObject);
begin
   IBQuery1.Close;
  IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1), '+
quotedstr(edit1.text)+' , '+quotedstr(datetostr(datetimepicker1.date))+')';
IBQuery1.ExecSQL;
end;

[Stilet]

Ребята, я бы вас попросил не делать длинных постов вширь. Не у всех широкие экраны.

[Domanoff]

не получается подскажите ДРУГОЙ СПОСОБ пожалуйста