delphi n�o pega codigo autom�tico

Question

ol� pessoal estou usando o firebird tenho uma triger e generator mas o delphi continua me pedindo para colocar o id sendo que est� sendo gerado pelo generator, no banco funciona normal, alguem sabe a ...

William · Answer

Colega configure seu campo ID no FieldsEditor, ele deve estar com a propriedade Required = true, essa configura��o exige que seja informado o valor do campo ID....

Gustavo Bretas · Answer

Marcelo, esse � um dos motivos de eu n�o usar trigger para alimentar Chave!

Como vc esta usando Generator, tente criar uma fun��o que vc passe como par�metro o nome do Generator, e nela vc faz o select e retorna o c�digo para o Field!

Marcelo Augusto · Answer

valeu wllfi e bretas, antes eu usava o oracle mas n�o achei artigos sobre como implementar  o backup para o banco de dadospassei para o firebird por isso, quando ao codigo fiz no delphi mesmo, obrigado....

Marcelo Augusto · Answer

valeu wllfi e bretas, antes eu usava o oracle mas n�o achei artigos sobre como implementar  o backup para o banco de dadospassei para o firebird por isso, quando ao codigo fiz no delphi mesmo, obrigado.[/quote]Mais uma pergunta, antes quando usava o banco oracle o banco era atualizado instantaneamente j� com o firebird ele somente atualiza quando do encerramento do programa. existe algo que possa ser feito o codigo que estou usando segue abaixo:procedure TF_Funcionario.BitSalvarClick(Sender: TObject); begin   If length(trim(DbNome.Text)) = 0  then      MessageDlg(Preenchimento obrigat�rio do campo Nome !!,mtInformation,[mbOK],0);   if length(trim(DbLookUpCepNome.Text)) = 0  then       MessageDlg(Preenchimento obrigat�rio dos campos do Endere�o &ltclick no Bot�o cadastrar Endere�o) !!,mtInformation,[mbOK],0);   if Application.MessageBox(Deseja salvar?,Confirma��o,   MB_YesNo) = IDYes then   panelendereco.Visible:=true;   paneldadopessoal.Visible:=true;   begin     if dmdados.DsFuncionario.State in[DsInsert,DsEdit] then      begin         editar;         dmdados.TblFuncionario.Post;         dmdados.tblFuncionario.ApplyUpdates;         Dmdados.tblFuncionario.last;        leitura;        end;     en...

Deivison Melo · Answer

function GeneratorID (aName: string; Connection: TSQLConnection; Incrementa: Boolean): integer;

function GeneratorID (aName: string; Connection: TSQLConnection;
Incrementa: Boolean): integer;
var
Qry: TSQLQuery;
begin
Qry := TSQLQuery.Create(nil);
try
Qry.SQLConnection := Connection;
if Incrementa then
Qry.SQL.Add(
SELECT GEN_ID(+aName+, 1) FROM RDB$DATABASE)
else
Qry.SQL.Add(
SELECT GEN_ID(+aName+, 0) FROM RDB$DATABASE);
Qry.Open;
Result := Qry.Fields[0].AsInteger;
finally
FreeAndNil(Qry);
end;
end;

Marco Salles · Answer

Atualizar o que � dar um Refresh ???ps) N�o � o Firebird , � a tecnologia que vc esta utilizando Dbexpress/ClientdatasSetOs dados ficam na mem�ria e s�o aplicados quando vc der o ApplayUpdatesSo n�o entendi porque o last no apos o ApplayUpdatesdmdados.TblFuncionario.Post;dmdados.tblFuncionario.ApplyUpdates;Dmdados.tblFuncionario.last; // ???...

Marcelo Augusto · Answer

Atualizar o que � dar um Refresh ???ps) N�o � o Firebird , � a tecnologia que vc esta utilizando Dbexpress/ClientdatasSetOs dados ficam na mem�ria e s�o aplicados quando vc der o ApplayUpdatesSo n�o entendi porque o last no apos o ApplayUpdatesdmdados.TblFuncionario.Post;dmdados.tblFuncionario.ApplyUpdates;Dmdados.tblFuncionario.last; // ???[/quote]Ha, sim ap�s gravar eu jogo ele para o �ltimo registro para mostrar antes usava de outro jeito tbl.close, tbl.opentamb�m costumo usar uma procedimento mostrar, ontem cnsegui fazer gravar na hora usanto ap�s o apply Updates o commandodmdados.IBTransaction1.CommitRetaining;na verdade esta tbl.las ficou de um outro prg o qual fazia entradas sequenciais na tabela para juntamente com uma query pegar o ultimo numero select tblreg.las+1; Pessoal muito obrigado pelas dicas sou novo em prog. e voc�s tem me ajudado muito....

F�rum delphi n�o pega codigo autom�tico #418094