Delphi, firebird, firedac e incremento

[gutopj01]

Olá a todos , 

como faço para uma função onde é feita uma inclusão e me retorne o incremento que foi atualizado.

exemplo 

na tabela com campos ID ( incremento) , TIPO , CLASSIFICACAO 

function Tipagem( Tipo: string; Classificacao: string):Integer;
var
   qry : TFDQuery ;
begin
   qry := TFDQuery.create(nil);
   try
      qry.Connection := Conexao ;
      qry.sql.text   := 'INSERT INTO TIPOS001 ( TIPO01 , CLASSE01 )' ;
      qry.sql.add(  ' VALUES ('COURO','SOLA' );
      qry.ExecSQL ;
      result := ( aqui quero retornar o valor do incremento que atualizado ) ;
   finally
     qry.close;
     qry.Free;
   end;
end;

OBRIGADO

 

 

[Adhelmar Rondon]

Em 11/05/2024 at 12:03, gutopj01 disse:

Olá a todos , 

como faço para uma função onde é feita uma inclusão e me retorne o incremento que foi atualizado.

exemplo 

na tabela com campos ID ( incremento) , TIPO , CLASSIFICACAO 

function Tipagem( Tipo: string; Classificacao: string):Integer;
var
   qry : TFDQuery ;
begin
   qry := TFDQuery.create(nil);
   try
      qry.Connection := Conexao ;
      qry.sql.text   := 'INSERT INTO TIPOS001 ( TIPO01 , CLASSE01 )' ;
      qry.sql.add(  ' VALUES ('COURO','SOLA' );
      qry.ExecSQL ;
      result := ( aqui quero retornar o valor do incremento que atualizado ) ;
   finally
     qry.close;
     qry.Free;
   end;
end;

OBRIGADO

 

 

 

teste usando assim

INSERT INTO TIPOS001 ( TIPO01 , CLASSE01 ) RETURNING ID

a qry vai ter o campo ID, assim é só pegar o valor do campo

[gutopj01]

obrigadão

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.