Duvida com Chave primaria + DBEDIT

Question

Galera seguinte, tenho no meu form 2 dbedits ligados cada um ao seu campo pelo datasource um deles � o c�digo e outro � o nome, o campo c�digo � auto incremento e chave primaria.quando eu estou dent...

Claudia Nogueira · Answer

No IbExpert o c�digo � criado ao gravar e n�o quando insere por causa do trigger.
No delphi se voc� usa Query voc� tem que tirar o campo da senten�a SQL do Insert e exluir o DBedit. Se usa Table tem que excluir dos fields e excluir o DBedit.
Desculpe os erros de digita��o, pois estou no celular.

Claudia, deu certinho, mais uma vez me salvando rsrsrsr obrigado, por�m eu gostaria de mostrar apenas o registro que estaria sendo cadastrado, tem algum jeito?

Carlos Bernardo · Answer

Amigo, olha a propriedade REQUIRED do field no SqlDataset e no ClientDataSet, e muda para false......

Sublixo · Answer

Claudia, deu certinho, mais uma vez me salvando rsrsrsr obrigado, por�m eu gostaria de mostrar apenas o registro que estaria sendo cadastrado, tem algum jeito?...

Sublixo · Answer

Acabei descobrindo isso sem querer, deu certo tmb, por�m ainda n�o consegui um m�todo pra fazer aparecer o registro que sera inseridoja tentei puxar o prox num do generator, mais ele faz certo da primeira vez, da segunda ele repete a da primeira, ja tentei puxar o .Last do ClientDataSet porem se eu excluir o ultimo vai dar Key Violation tmb...

Alisson Santos · Answer

Poderia me explicar melhor o que est� tentando fazer para eu ver o que posso fazer para auxiliar?...

Carlos Bernardo · Answer

function Generator_ID(str_generator: string): integer;
var
QRY :TSqlQuery;
begin
Qry := TSQLQuery.Create(self);
Qry.SQLConnection := SuaConexao;
Qry.sql.Add('Select Gen_ID('+str_generator+',1) from RDB$DATABASE');
QRY.Open;
Result := Qry.Fields[0].AsInteger;
end;

No evento NewRecord do ClientDataSet vc usa:

CDS_Codigo.Value := Generator_ID(GEN_TABELA_ID);

me apresentou erro no Self da linha " Qry := TSQLQuery.Create(self); "

outra duvida a function eu coloco no datamodule?

Sublixo · Answer

Explico, ao dar o insert eu gostaria que o campo DBEdtCodigo que esta ligado ao campo COD_TIPO dentro da tabela mostrasse o prox numero de registro....

Sublixo · Answer

me apresentou erro no Self da linha  Qry := TSQLQuery.Create(self); outra duvida a function eu coloco no datamodule?...

Claudia Nogueira · Answer

Provavelmente voc� tem uma Trigger + generator, pois quando voc� grava ele gera automaticamente o valor para chave prim�ria. Ent�o pra voc� conseguir fazer isso voc� deve desativar a trigger, pois se deixar ela ativa, quando voc� ter um post no IbTable ou usar um comando INSERT com uma Query, ser� ignorado o par�metro e sempre vai gerar um por causa do trigger.
Primeiro passo � desativar o trigger.
Depois voc� pode fazer igual o colega sugeriu, implementar uma fun��o e depois do comando Insert se usar IbTable, ou antes do Execute se usar IbQuery pegar o pr�ximo generator:

function Generator_ID(str_generator: string): integer;
var
QRY :TSqlQuery;
begin
Qry := TSQLQuery.Create(self);
Qry.SQLConnection := SuaConexao;
Qry.sql.Add('Select Gen_ID('+str_generator+',1) from RDB$DATABASE');
QRY.Open;
Result := Qry.Fields[0].AsInteger; 
end;

CDS_Codigo.Value := Generator_ID(GEN_TABELA_ID);

Carlos Bernardo · Answer

Adiciona essa unit na clausula uses : SqlExpr...

Sublixo · Answer

Estou usando Delphi XE2 e la ainda persiste o erro do (self) e la esta declarado assim uses  System.SysUtils, System.Classes, Data.DBXFirebird, Data.FMTBcd,  Datasnap.DBClient, Datasnap.Provider, Data.DB, Data.SqlExpr;...

Carlos Bernardo · Answer

troca essa linha Qry := TSQLQuery.Create(self);por essa Qry := TSQLQuery.Create(nil);...

Sublixo · Answer

Agora n�o apresentou mais o erro, por�m, se eu apertar bot�o novo .Insert e depois cancelar .Cancel, quando eu apertar o bot�o novo novamente ele j� pula para o pr�ximo valor, seria por causa da trigger?...

Deivison Melo · Answer

Seria por causa disso:--&gt No evento NewRecord do ClientDataSet vc usa:--&gt CDS_Codigo.Value := Generator_ID(GEN_TABELA_ID);...

Sublixo · Answer

Galera, agrade�o a todos que me responderam, todos vceis s�o nota 10.Moderadores podem encerrar o t�pico como RESOLVIDO...

F�rum Duvida com Chave primaria + DBEDIT #428956