Delphi x Postgre (Problema com auto incremento)

Question

[b:b408d8992f]Pessoal, estou com problema na inser��o de registro em tabelas com campo autoincremento[/b:b408d8992f] Minha tabela � a mais simples possivel:create table teste (ID serial, descricao var...

Andersonscinfo · Answer

amigo, n�o uso a mesma forma de conex�o como vc esta usando, no momento eu to usando dbexpress+odbc, nas minhas aplica��es eu sempre uso sql cru que fica mais facil de controlar....segue um exemplo se quizer.....

procedure TForm_cadcategoria.btn_salvaClick(Sender: TObject);
Var
  TD : TTransactionDesc; // requer init dbxpress
begin
  with DataModule1 do
    begin
      if tp_salva = 0 then
        begin
          TD.TransactionID := 1;
          TD.IsolationLevel := xilREADCOMMITTED;
          try
            SQLC_con.StartTransaction(TD);
            Qry_geral.Close;
            Qry_geral.SQL.Clear;
            Qry_geral.SQL.Add(�INSERT INTO public.tb_categoria(nome, obs) �+
            �VALUES (:nm, :os);�);
            Qry_geral.ParamByName(�nm�).AsString:=Ed_nome.Text;
            Qry_geral.ParamByName(�os�).AsString:=M_obs.Text;
            Qry_geral.ExecSQL(False);
            SQLC_con.Commit(TD);
            ShowMessage(�Opera��o Realizada com Sucesso!�);
            botaos1;
          except
            SQLC_con.Rollback(TD);
            ShowMessage(�Erro! Opera��o Cancelada!�);
          end;  
        end;
      if tp_salva = 1 then
        begin
          TD.TransactionID := 1;
          TD.IsolationLevel := xilREADCOMMITTED;
          try
            SQLC_con.StartTransaction(TD);
            Qry_geral.Close;
            Qry_geral.SQL.Clear;
            Qry_geral.SQL.Add(�UPDATE public.tb_categoria SET nome=:nm, obs=:os �+
            �WHERE codigo=:cd;�);
            Qry_geral.ParamByName(�nm�).AsString:=Ed_nome.Text;
            Qry_geral.ParamByName(�os�).AsString:=M_obs.Text;
            Qry_geral.ParamByName(�cd�).Value:=StrToInt(Ed_cod.Text);
            Qry_geral.ExecSQL(False);
            SQLC_con.Commit(TD);
            ShowMessage(�Opera��o Realizada com Sucesso!�);
            botaos1;
          except
            SQLC_con.Rollback(TD);
            ShowMessage(�Erro! Opera��o Cancelada!�);
          end;
        end;
    end;
    //atualiza
    CDS_con_cat.Active:=False;
    CDS_con_cat.Active:=True;
    select_str;
end;

no seu caso acho que depois do post vc deveria colocar um applyupdates(-1); n�o tenho bem certeza, mas acho que seria...

abra�os e boa sorte

Reunix · Answer

� isso mesmo apos o post vc pega o ultimo ID(Serial) gerado pelo Postgres, segue como fazer isso:

ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add(�Select currval(��teste_id_seq��) as Cod from teste�);
ADOQuery1.Open;

cCodigo.Text := ADOQuery1.FieldByName(�Cod�).AsString;

lembrando.... q o proprio postgres gera no objeto (sequencias) as variaveis de sequencia como no exemplo acima (teste_id_seq), q vai depender do nome do seu campo.

espero ter ajudado,

Edunascimento · Answer

Caro amigo, toda ajuda � sempre v�lida e agrade�o por todas elas, por�m as respostas enviadas ainda n�o atendem as minha necessidades.

Eu preciso desse ID (obviamente) logo ap�s o post, por�m n�o posso fazer outra consulta para obt�-lo.

Desenvolvi uma classe na qual eu posso trabalhar a alguns bancos via OLEDB ou ODBC, basta mudar apenas 1 vari�vel, e por esse motivo nao posso sair modificando todos os meus sistemas para fazer isso. Trabalho com Oracle, SQL Server 2000-2005-2008 e MySQL, e todos esses bancos funcionam perfeitamente com a minha necessidade, por�m no POSTGRE estou com esse impedimento.

Testei o driver PgOleDb, mas tem muitos bugs. Ele foi descontinuado em 2006, at� hoje n�o sofreu modifica��es. Se alguem conhecer outros driver Free, gostaria que me indicassem.

Pedroviol · Answer

Se eu entendi... Vc quer criar um pr�ximo c�digo?
Cria uma sequence:

CREATE SEQUENCE �nome_sequence�
INCREMENT 1 MINVALUE 1

Quando for cham�-la:

Select NEXTVAL(�NOME_SEQUENCE�).
Espero ter ajudado.

F�rum Delphi x Postgre (Problema com auto incremento) #27003