Использование русских имен столбцов в FireBird

[Lokos]

Доброго времени суток.
При попытке добавить запись в таблицу следующим способом появляется ошибка.

procedure TForm1.Button3Click(Sender: TObject);
begin
pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO NT (ID,KOL,ИМЯ) VALUES(:N,:KOL,:Name)';
Form1.pFIBQuery1.ParamByName('N').Value:=2;
Form1.pFIBQuery1.ParamByName('KOL').Value:=2;
Form1.pFIBQuery1.ParamByName('Name').Value:='Оп оп';
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit;
end;

Ругает на И, пробовал заключать в кавычки "" и в скобки [] безрезультатно

[artemavd]

Если у Вас поле ID - автоинкрементное, то эту строчку:

Form1.pFIBQuery1.ParamByName('N').Value:=2;

можете убрать.

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

procedure TForm1.Button3Click(Sender: TObject);
begin
pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO NT (ID,KOL,ИМЯ) VALUES(:null,:KOL,:Name)';
Form1.pFIBQuery1.ParamByName('KOL').Value:=2;
Form1.pFIBQuery1.ParamByName('Name').Value:='Оп оп';
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit;
end;

[Lokos]

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

Если у Вас поле ID - автоинкрементное, то эту строчку:

Form1.pFIBQuery1.ParamByName('N').Value:=2;

можете убрать.

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

procedure TForm1.Button3Click(Sender: TObject);
begin
pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO NT (ID,KOL,ИМЯ) VALUES(:null,:KOL,:Name)';
Form1.pFIBQuery1.ParamByName('KOL').Value:=2;
Form1.pFIBQuery1.ParamByName('Name').Value:='Оп оп';
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit;
end;

поле не автоинкрементное до этого еще не дошел. Ошибка выводится на букву И. вот текст ошибки.


Invalid token
Dynamic SQL Error
SQL Error code = -104
Token unknown -Line 1, colum 24
И.
'.

вообщем вот так.

[artemavd]

поле не автоинкрементное

А почему оно не автоинкрементное?? Должно быть таковым.

до этого еще не дошел

А когда собираетесь?

Ошибка выводится на букву И. вот

А английские заносятся слова?

[Lokos]

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

А почему оно не автоинкрементное?? Должно быть таковым.


А когда собираетесь?


А английские заносятся слова?

Да заносятся прекрасно. Эм по поводу автоинкремента, в настройках поля захожу в автоинкремент ставлю создать генератор начальное значение 1 тыкаю ок. В генераторах появляется GEN_NT_ID.
Перехожу в Delphy на кнопочку следующий код

procedure TForm1.Button3Click(Sender: TObject);
begin
pFIBQuery1.SQL.Clear;
Form1.pFIBQuery1.SQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,:KOL)';
Form1.pFIBQuery1.ParamByName('KOL').Value:=2;
Form1.pFIBQuery1.ExecQuery;
Form1.pFIBQuery1.Transaction.Commit;
end;

Добавление происходит хороше но в поле ID пишется значение null, тоесть автоувеличение не происходит

[artemavd]

А если через попробовать через pFIBDataSet1 выполнить запрос?

[Lokos]

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

А если через попробовать через pFIBDataSet1 выполнить запрос?

Код запроса через DataSet

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=true;
   Form1.pFIBDataSet1.Edit;
   pFIBDataSet1.SQLs.SelectSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,1)';
   Form1.pFIBDataSet1.Post;
end;

ошибка такая

query is empty


Забыл сказать что ключевые поля тоже не заданны. я так полагаю стоит его назначить ID

[artemavd]

query is empty

"Запрос пуст" - значит пусто). А в свойстве InsertSQL у компонента pFIBDataSet1 вы написали что-нибудь?

Забыл сказать что ключевые поля тоже не заданны. я так полагаю стоит его назначить ID

Конечно стоит назначить! Ключевое поле оно на то и ключевое, что обеспечивает целостность и уникальность записей.

!!!!. Почему Вы так невнимательно работаете???

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=true;
   Form1.pFIBDataSet1.Edit;
   pFIBDataSet1.SQLs.SelectSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,1)'; 
//зачем же пишите запрос вставки (Insert) в свойство SelectSQL у компонента pFIBDataSet1???
   Form1.pFIBDataSet1.Post;
end;

Потому и не работает.

Запрос должен быть таким:

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=true;
   Form1.pFIBDataSet1.Edit;
   Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,1)';
   Form1.pFIBDataSet1.Open;
//   Form1.pFIBDataSet1.Post; - эта строка здесь как собаке 5ая нога :)
end;

[Lokos]

Дело не во внимательности а в том что с начало хотелось научиться просто добавлять записи, после чего поработать с ключами и автоинкрементом.
Следующий код

procedure TForm1.Button2Click(Sender: TObject);
begin
    Form1.pFIBDataSet1.Active:=true;
   Form1.pFIBDataSet1.Edit;
   Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,1)';
   Form1.pFIBDataSet1.Open;
end;

Выводит туже ошибку что и SelectSQL.
Ключ создал.

[artemavd]

А очищать текст предыдущего запроса пробовали?

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Active:=true; //желательно не Active, а Close.
   Form1.pFIBDataSet1.Edit; //это не надо вообще, если Вы собираетесь вставлять записи
   Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO NT (ID,KOL) VALUES(null,1)';
   Form1.pFIBDataSet1.Open;
end;

Че, и так тоже не работает:

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.pFIBDataSet1.Close;
   Form1.pFIBDataSet1.SQLs.InsertSQL.Text:='INSERT INTO NT(ID,KOL) VALUES(null,:K)';
   Form1.pFIBDataSet1.ParamByName('K').Value:='1';
   Form1.pFIBDataSet1.Open;
end;

???