Problemas com campo autoincrement(Firebird)

Question

Prezados Colegas,Tenho um banco com 2 tabelas e em cada uma delas criei um campo autoincrement, mas estou tendo problemas, pois quando tento salvar um registro recebo a seguinte mensagem de erro: Fiel...

Aersoftware · Answer

Fabiano, pro campo auto-incremento funcionar, tem que criar na base de dados um gerador e uma trigger para cada tabela.

Eu uso isso, e como eu gosto de ter o c�digo gerado logo que insiro um nome registro, ainda coloco um c�digo no evento OnNewRecord do ClientDataSet. Posso te passar ele quando chegar em casa.

Fabiano_aprendiz · Answer

Ol� AerSoftware,Os generators e as triggers foram criados, e o problema ocorre mesmo assim. Ficarei grato se puder me passar o c�digo.ab�s...

Jlimajr · Answer

Uso um generator assim:Usando um generator assim: [code:1:1208c47e50]procedureTForm1.Button1Click(Sender: TObject);beginwith dm.qrygeracodigo do  begin    close;    sql.clear;    sql.add(�SELECT CAST(GEN_ID(gen_empresas_id,1) AS INTEGER) AS COD FROMRDB$DATABASE�);    open;dm.ibtb1.append;dm.ibtb1.FieldByName(�CODEMPR�).AsInteger:=DM.qrygeracodigo.fieldbyname(�COD�).asinteger;end;[/code:1:1208c47e50]Mais tambem naum sei se est� correto.Gostaria de tambem sanar esta duvida.Gradecido....

Fabiano_aprendiz · Answer

Fiz um macete seguindo uma dica q achei na rede e segundo depoimentos essa dica funciona, agora na hora q estou tentando gravar, est� ocorrendo outro erro, e o erro � o seguinte: violation of Foreign Key constraint �Integ_20� on table �Visita�.
Algu�m j� passou por isso?

Aersoftware · Answer

Ol�,

O c�digo que uso no evento OnNewRecord do ClientDataSet � o seguinte:

var
  ResultSet : TCustomSQLDataSet;
  SQLstmt : string;

begin
  SQLstmt := �select gen_id(GEN_TABELA_ID, 1) �+
             �as VALOR from RDB$DATABASE;�;
  ResultSet := nil;
  try
    ConexaoFb.Execute(SQLstmt, nil, @ResultSet);
    if Assigned(ResultSet) then
      ClientDataSetCAMPO_CODIGO.AsInteger :=
        ResultSet.FieldByName(�VALOR�).AsInteger;
    finally
      ResultSet.Free;
    end;

Onde em GEN_TABELA_ID vai o nome do gerador criado e em
ClientDataSetCAMPO_CODIGO vai o nome dado ao TClientDataSet seguido do nome dado ao campo de chave prim�ria.

F�rum Problemas com campo autoincrement(Firebird) #325462