Ошибка при запросе вставки. Firebird

[artemavd]

Выполняю такой запрос:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 Form1.pFIBDataSet1.Close;
 Form1.pFIBDataSet1.SQLs.SelectSQL.Clear;
 Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO KONTAKTY(ID,FAM,IMY,OTCHE,POL,DATAROGD,ADRESS,DNOMER,MNOMER,FOTO) VALUES(null,:F,:I,:O,:P,:D,:A,:DN,:M,:FO)';
 Form1.pFIBDataSet1.ParamByName('F').Value:=Form1.RzLabel19.Caption;
 Form1.pFIBDataSet1.ParamByName('I').Value:=Form1.RzLabel20.Caption;
 Form1.pFIBDataSet1.ParamByName('O').Value:=Form1.RzLabel21.Caption;
 Form1.pFIBDataSet1.ParamByName('P').Value:=Form1.RzLabel33.Caption;
 Form1.pFIBDataSet1.ParamByName('D').Value:=Form1.RzLabel22.Caption;
 Form1.pFIBDataSet1.ParamByName('A').Value:=Trim(Form1.RzRichEdit1.Text);
 Form1.pFIBDataSet1.ParamByName('DN').Value:=Form1.RzLabel23.Caption;
 Form1.pFIBDataSet1.ParamByName('M').Value:=Form1.RzLabel26.Caption;
 Form1.pFIBDataSet1.ParamByName('FO').Value:='Фото';
 Form1.pFIBDataSet1.Open;
end;

Вроде как записано все правильно, но при нажатии на кнопку ругается и выдается ошибка: "Parameter "F" does not exist in Form1.pFIBDataSet1". Где я ошибся?

[Sparky]

Form1.pFIBDataSet1.Open; уж сколько раз твердили миру!!!!!!!!

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO KONTAKTY(ID,FAM,IMY,OTCHE,POL,DATAROGD,ADRESS,DNOMER,MNOMER,FOTO) VALUES(null,:F,:I,:O,:P,:D,:A,:DN,:M,:FO)';
Form1.pFIBDataSet1.Insert;
 Form1.pFIBDataSet1.FieldByName('F').Value:=Form1.RzLabel19.Caption;
 Form1.pFIBDataSet1.FieldByName('I').Value:=Form1.RzLabel20.Caption;
 Form1.pFIBDataSet1.FieldByName('O').Value:=Form1.RzLabel21.Caption;
 Form1.pFIBDataSet1.FieldByName('P').Value:=Form1.RzLabel33.Caption;
 Form1.pFIBDataSet1.FieldByName('D').Value:=Form1.RzLabel22.Caption;
 Form1.pFIBDataSet1.FieldByName('A').Value:=Trim(Form1.RzRichEdit1.Text);
 Form1.pFIBDataSet1.FieldByName('DN').Value:=Form1.RzLabel23.Caption;
 Form1.pFIBDataSet1.FieldByName('M').Value:=Form1.RzLabel26.Caption;
 Form1.pFIBDataSet1.FieldByName('FO').Value:='Фото';
 Form1.pFIBDataSet1.post;
Form1.pFIBDataSet1.close;
Form1.pFIBDataSet1.open;
end;

А почему поле id заполняется null? и поменяй имена параметров на имена полей и поставь перед ними : и исправь соответсвенно в FieldByName('имя поля').Value

[artemavd]

уж сколько раз твердили миру!!!!!!!!

Тшшш...

А почему поле id заполняется null?

Потому что оно автоикрементное. Не в нем проблема, оно правильно "работает".

и поменяй имена параметров на имена полей и поставь перед ними : и исправь соответсвенно в FieldByName('имя поля').Value

А вот мне наоборот говорили не делать этого: давать одинаковые имена полей и параметров.

[Sparky]

я точно не знаю как работают вот эти компоненты. Я написала то как бы отработали стандартные IBDataSet. У вас заработало? или проблема осталась?

[artemavd]

У вас заработало? или проблема осталась?

Нет, не заработало. Выполняя этот код:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 Form1.pFIBDataSet1.SQLs.SelectSQL.Clear;
 Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO KONTAKTY(ID,FAM,IMY,OTCHE,POL,DATAROGD,ADRESS,DNOMER,MNOMER,FOTO) VALUES(null,:F,:I,:O,:P,:D,:A,:DN,:M,:FO)';
 Form1.pFIBDataSet1.ParamByName('F').Value:=Form1.RzLabel19.Caption;
 Form1.pFIBDataSet1.ParamByName('I').Value:=Form1.RzLabel20.Caption;
 Form1.pFIBDataSet1.ParamByName('O').Value:=Form1.RzLabel21.Caption;
 Form1.pFIBDataSet1.ParamByName('P').Value:=Form1.RzLabel33.Caption;
 Form1.pFIBDataSet1.ParamByName('D').Value:=Form1.RzLabel22.Caption;
 Form1.pFIBDataSet1.ParamByName('A').Value:=Trim(Form1.RzRichEdit1.Text);
 Form1.pFIBDataSet1.ParamByName('DN').Value:=Form1.RzLabel23.Caption;
 Form1.pFIBDataSet1.ParamByName('M').Value:=Form1.RzLabel26.Caption;
 Form1.pFIBDataSet1.ParamByName('FO').Value:='Фото';
 Form1.pFIBDataSet1.post;
 Form1.pFIBDataSet1.close;
 Form1.pFIBDataSet1.Open;
end;

Выдается ошибка: "Can't change sql text because Form1.pFIBDataSet1.SelectQuery dataset open". Если примерно перевести ошибку, то получается так: "Текст SQL запроса не удается изменить потому что Form1.pFIBDataSet1.SelectQuery открыт". Как-то так.

[Sparky]

и проверте открываете ли вы до этого данный датасет если нет, то открывайте его при создании формы, а вообще их лучше выносить в datamodule
уберите

Form1.pFIBDataSet1.SQLs.SelectSQL.Clear;

[artemavd]

Убрал эту строчку, появилась старая ошибка: "Parameter "F" does not exist in Form1.pFIBDataSet1"

[Sparky]

ну то что я говрила проавильно убрали не надо это писать так как вы чистите часть отвечающую за представление данных, а потом пытаетесь ее открыть вызывая как раз тот запрос который хранился в selectSQL. Попробуйте сделать так как я предложила в начале с fieldbyname

[artemavd]

Сделал так:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 Form1.pFIBDataSet1.Edit;
 Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO KONTAKTY(ID,FAM,IMY,OTCHE,POL,DATAROGD,ADRESS,DNOMER,MNOMER,FOTO) VALUES(null,:FAM,:IMY,:OTCHE,:POL,:DATAROGD,:ADRESS,:DNOMER,:MNOMER,:FOTO)';
 Form1.pFIBDataSet1.FieldByName('FAM').Value:=Form1.RzLabel19.Caption;
 Form1.pFIBDataSet1.FieldByName('IMY').Value:=Form1.RzLabel20.Caption;
 Form1.pFIBDataSet1.FieldByName('OTCHE').Value:=Form1.RzLabel21.Caption;
 Form1.pFIBDataSet1.FieldByName('POL').Value:=Form1.RzLabel33.Caption;
 Form1.pFIBDataSet1.FieldByName('DATAROGD').Value:=Form1.RzLabel22.Caption;
 Form1.pFIBDataSet1.FieldByName('ADRESS').Value:=Trim(Form1.RzRichEdit1.Text);
 Form1.pFIBDataSet1.FieldByName('DNOMER').Value:=Form1.RzLabel23.Caption;
 Form1.pFIBDataSet1.FieldByName('MNOMER').Value:=Form1.RzLabel26.Caption;
 Form1.pFIBDataSet1.FieldByName('FOTO').Value:='Фото';
 Form1.pFIBDataSet1.Post;
 Form1.pFIBDataSet1.Close;
 Form1.pFIBDataSet1.Open;
end;

Теперь выдает ошибку: "pFIBDataSet1: Cannot modify a read-only dataset". Вроде бы вначале я ж поставил Form1.pFIBDataSet1.Edit.

[Sparky]

 Form1.pFIBDataSet1.Edit;

нужно

 Form1.pFIBDataSet1.insert

Вы же собираетесь вставлять
и пишите эту строку после

 Form1.pFIBDataSet1.SQLs.InsertSQL.Text