Auto incremento delphi - firebird

Question

Ola a todos!Com dbExpress tenho um clientDataSet, usando banco firebird, neste tenho um generator (gen_clientes_id) e uma trigger[code]asbegin  if (new.id_clientes is null) then    new.id_client...

Claudio Andrade · Answer

No evento OnNewRecord do seu clientdataset coloque a fun��o a baixo.

procedure seuClientDatasetNewRecord(DataSet: TDataSet);
function GetID(NameGenerators: String): Integer;
var
sqlAutoInc: TSQLQuery;
begin
sqlAutoInc := TSQLQuery.Create(Self);
sqlAutoInc.SQLConnection := SQLConnection1;
sqlAutoInc.SQL.Add('SELECT GEN_ID ('+NameGenerators+', 1) FROM RDB$DATABASE');
sqlAutoInc.Open;
Result := sqlAutoInc.Fields[0].AsInteger;
end;
begin
seuClientDatasetCHAVE_PRIMARIA.AsInteger := GetID('SEU_GENERATOR');
end;

Essa fun��o ir� retornar o valor do generator.

Abra�o.

Mauro Brondi · Answer

Obrigado Cl�udio Andrade!Estou vendo uma v�deo-aula do Rodrigo Carreiro Mour�o e no Delphi 2007 (com Firebird 2.0) funciona somente com um DataSet.ApplyUpdates(0).Mas no Delphi XE5 (com FB 2.5) n�o deu. (ou talvez eu tenha deixado passar alguma coisa...)Nota: o curso a que me refiro � este: [url:descricao=Curso Rad Studio 2007, DBExpress 4 e Firebird 2.0]//www.devmedia.com.br/curso/rad-studio-2007-dbx4-e-firebird-2-0-aplicacao-comercial-de-vendas-basico-do-inicio-ao-fim/117[/url]Um �timo curso.Mas de qualquer forma a sua fun��o me salvou. Muito obrigado....

Jonny Moraes · Answer

AO FAZER O PROCEDIMENTO FUNCIONOU O AUTO INCREMENTO MAS AO FECHAR A FORM OS DADOS DIGITADOS N�O S�O SALVOS COMO PROCEDER MEU BOT�O GRAVAR ESTA ASSIM :DTS.DataSet.Post; E NO EVENTO ON CLOSE DO FORMULARIO ESTA ASSIM :dmdados.CdsProdutos.applyupdates(0);...

Marco Salles · Answer

com certeza tem erro .. O ApplyUpdates a exce��o � silenciosaPesquise por econcileError para verificar o erro do seu Commit[]sds...

F�rum Auto incremento delphi - firebird #456155