Как получать уникальные ID из генератора Firebird в среде программирования Lazarus.Язык Delphi

[Allant]

Так,у меня тут сейчас картина следующая:На кнопку написана процедура вставки записи в таблицу
код:

procedure TForm1.Button1Click(Sender: TObject);
begin
    ZQuery1.SQL.Text:='select gen_id(gen_customers_id, 1) from RDB$DATABASE';
    begin
  with database do
    begin
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('insert into CUSTOMERS (PK_CLIENTID, CLIENTNAME, CLIENTPHONE, CLIENTFAMILY, CLIENTSECOND)');
    ZQuery1.SQL.Add( ' VALUES( :newPK_CLIENTID, :newCLIENTNAME,:newCLIENTPHONE, :newCLIENTFAMILY, :newCLIENTSECOND)');
    ZQuery1.ParamByName('newCLIENTFAMILY').AsString:=Form2.DBEdit1.Text;
    ZQuery1.ParamByName('newCLIENTNAME').AsString:=Form2.DBEdit2.Text;
    ZQuery1.ParamByName('newCLIENTSECOND').AsString:=Form2.DBEdit3.Text;
    ZQuery1.ParamByName('newCLIENTPHONE').AsString:=Form2.DBEdit4.Text;
    ZQuery1.ParamByName('newPK_CLIENTID').AsInteger:=StrToInt(Form2.DBEdit5.Text);
   try
    ZQuery1.ExecSQL;
    ZQuery1.CommitUpdates;
    ZQuery1.Open;
    Except

      showmessage('Ошибка операции добавления');

    end;
   end;
  end;
end;

Вот мне конкретно хотелось бы,чтобы при нажатии на эту кнопку сначала в поле ClientID подставлялся бы id,потому что это ключ и он пустым быть не должен,а потом уже дальше шла процедура вставки полей DBEdit.
Осмелюсь предположить что тут лучше

запросить новый ид у базы, потом отправить его в инсерте

Не подскажите как это здесь лучше сделать?
Процедура это,соответственно,не работает.Насколько я понимаю,потому что не вставляется ID.

[Аватар]

http://www.sql.ru/forum/710879/uznat...vlennoy-zapisi
Да и вообще гугл + FIREBIRD узнать ID после вставки

[Прик]

procedure TForm1.Button1Click(Sender: TObject);
var
  ID : Integer;
begin
  ZQuery1.SQL.Text:='select gen_id(gen_customers_id, 1) as id from RDB$DATABASE';
  ZQuery1.Open;
  ID :=  ZQuery1['id'];

  with database do begin
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('insert into CUSTOMERS (PK_CLIENTID, CLIENTNAME, CLIENTPHONE, CLIENTFAMILY, CLIENTSECOND)');
    ZQuery1.SQL.Add( ' VALUES( :newPK_CLIENTID, :newCLIENTNAME,:newCLIENTPHONE, :newCLIENTFAMILY, :newCLIENTSECOND)');
    ZQuery1.ParamByName('newCLIENTFAMILY').AsString:=Form2.DBEdit1.Text;
    ZQuery1.ParamByName('newCLIENTNAME').AsString:=Form2.DBEdit2.Text;
    ZQuery1.ParamByName('newCLIENTSECOND').AsString:=Form2.DBEdit3.Text;
    ZQuery1.ParamByName('newCLIENTPHONE').AsString:=Form2.DBEdit4.Text;
    ZQuery1.ParamByName('newPK_CLIENTID').Value := ID;
   try
    ZQuery1.ExecSQL;
    ZQuery1.CommitUpdates;
//    ZQuery1.Open;   лишнее
  ...

DBEdit'ы чего здесь делают? Здесь им не место. Надо заменить на обычные TEdit'ы.

[eval]

Allant

Все рассказы в пустую, вы ваще читаете что вам пишут? тогда всегда так будет, вроде все сказано и написано, а не понятно.

И да, DBEdit'ы тут от того что вы хотите не читая все сразу схватить.

[Allant]

Уважаемый eval, из 5 сообщений,написанных Вами в этой теме,полезную информацию несли только 2.Где Вы ссылку кинули,и где перечислили возможные варианты вставки id.Остальные просто пышат надменными насмешками и выливают на мою голову тонны желчи.Я понимаю,что моя безграмотность Вас раздражает,но я сюда всё-таки пришёл за помощью. Да,я много примеров видел.И те из них,которые у меня получилось осознать и понять,я использовал.Но опять же,в силу своих,пока что,очень ограниченных знаний и отсутствия опыта,я не все примеры могу переделать под конкретно свою ситуацию.Поэтому я и написал тут,надеясь на помощь людей,которые знаю больше меня.Если Вы действительно можете и хотите ответить на вопрос по существу,очень Вас прошу, сделайте это и помогите дельным советом.Если же для Вас "помощь" новичку-это швырять в него кирпичи и тыкать его лицом в его же безграмотность в данном вопросе,то я совсем не расстроюсь,если Вы больше не будете отписываться в этой теме.

Теперь следующий вопрос.Прик,спасибо большое,сделал всё как Вы показали.Код следующий:

procedure TForm1.Button1Click(Sender: TObject);
 var
    ID : Integer;
    begin
    ZQuery1.SQL.Text:='select gen_id(gen_customers_id, 1) from RDB$DATABASE';
    ZQuery1.Open;
    ID :=  ZQuery1['id'];

    with database do
    begin
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('insert into CUSTOMERS (PK_CLIENTID, CLIENTNAME, CLIENTPHONE, CLIENTFAMILY, CLIENTSECOND)');
    ZQuery1.SQL.Add( ' VALUES( :newPK_CLIENTID, :newCLIENTNAME,:newCLIENTPHONE, :newCLIENTFAMILY, :newCLIENTSECOND)');
    ZQuery1.ParamByName('newCLIENTFAMILY').AsString:=Form2.Edit1.Text;
    ZQuery1.ParamByName('newCLIENTNAME').AsString:=Form2.Edit2.Text;
    ZQuery1.ParamByName('newCLIENTSECOND').AsString:=Form2.Edit3.Text;
    ZQuery1.ParamByName('newCLIENTPHONE').AsString:=Form2.Edit4.Text;
    ZQuery1.ParamByName('newPK_CLIENTID').Value := ID;
   try
    ZQuery1.ExecSQL;
    ZQuery1.CommitUpdates;
    Except

      showmessage('Ошибка операции добавления');

    end;
   end;
  end;

Теперь при нажатии на саму кнопку выскакивает ошибка "ZQuery1:Field not found CLIENTID".Подскажите пожалуйста,в чём моя ошибка?В самой базе поле есть,название точно такое же,кириллические знаки нигде не проскакивают.Что тут не так в коде?

[Stilet]

Ты уверен что ошибка именно тут возникает? Пошаговку делал?

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

create trigger new_table_bi for new_table
active before insert position 0
as
begin
  if (new.zxc is null) then
    new.zxc = gen_id(gen_new_table_id,1);
end

Который используя генератор будет автоинкрементировать перед вставкой
Т.е. сочетание триггера и генератора и дает нужный эффект.
В результате твой код упрощается:

procedure TForm1.Button1Click(Sender: TObject);

  begin

    with database do
    begin
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('insert into CUSTOMERS (CLIENTNAME, CLIENTPHONE, CLIENTFAMILY, CLIENTSECOND)');
    ZQuery1.SQL.Add( ' VALUES( :newCLIENTNAME,:newCLIENTPHONE, :newCLIENTFAMILY, :newCLIENTSECOND)');
    ZQuery1.ParamByName('newCLIENTFAMILY').AsString:=Form2.Edit1.Text;
    ZQuery1.ParamByName('newCLIENTNAME').AsString:=Form2.Edit2.Text;
    ZQuery1.ParamByName('newCLIENTSECOND').AsString:=Form2.Edit3.Text;
    ZQuery1.ParamByName('newCLIENTPHONE').AsString:=Form2.Edit4.Text;
   try
    ZQuery1.ExecSQL;
    ZQuery1.CommitUpdates;
    Except

      showmessage('Ошибка операции добавления');

    end;
   end;
  end;

База сама заботится о ключевом поле.

[Allant]

Stilet, спасибо огромное!Сначала думал тоже триггером сделать,но потом вот оказалось что вроде как советуют Select-ом получать значения из генератора,старался именно этим способом сделать всё.Сейчас написал триггер в базе,теперь почти всё получается.Только ещё одна ошибка выскакивает,в строчке ZQuery1.CommitUpdates:

procedure TForm1.Button1Click(Sender: TObject);
     begin
       with database do
    begin
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add('insert into CUSTOMERS (CLIENTNAME, CLIENTPHONE, CLIENTFAMILY, CLIENTSECOND)');
    ZQuery1.SQL.Add( ' VALUES(:newCLIENTNAME,:newCLIENTPHONE, :newCLIENTFAMILY, :newCLIENTSECOND)');
    ZQuery1.ParamByName('newCLIENTFAMILY').AsString:=Form2.Edit1.Text;
    ZQuery1.ParamByName('newCLIENTNAME').AsString:=Form2.Edit2.Text;
    ZQuery1.ParamByName('newCLIENTSECOND').AsString:=Form2.Edit3.Text;
    ZQuery1.ParamByName('newCLIENTPHONE').AsString:=Form2.Edit4.Text;
   try
    ZQuery1.ExecSQL;
    ZQuery1.CommitUpdates;
   Except

      showmessage('Ошибка операции добавления');

    end;
   end;
  end;

Ошибка следующая: operation cannot be performed on inactive dataset.
Здесь ещё не поможете?У меня в элементе ZQuery Active стоит в значении true,датасоурс подключен к коннекту.Вобщем саму таблицу дельфи видит,процедуру нажатия на кнопку он выполняет,но вот при попытке сохранить изменения говорит что датасет не активен.В чём может быть дело?

[Stilet]

Попробуй просто ZQuery1.Commit.
Я не знаю что это за компонент, но думаю у него несколько разных методов коммита.

[Allant]

Всем кто помогал и подсказывал-большое спасибо за помощь!Не прошло и трёх дней,как у меня получилось сделать эту кнопку!))Тему можно считать закрытой.Stilet,отдельное Вам гигантское спасибо!Вы очень мне помогли.