Verifica��o de n�meros repetidos...

Question

Ol� pessoal,Gostaria de fazer verifica��o para n�o haver n�meros repetidos, mas gostaria de fazer pelo delphi e n�o pelo banco de dados (PK). E se tiver o n�mero repedito dar a mensagem, �N�mero repet...

Carlosmedeiroslima · Answer

se o seu campo for autonumericselect max(campo) from tabelaem um novo �handle� coloqueselect max(campo) +1 from tabela...

Rodrigorpb · Answer

Obrigado,Mas n�o tem nada que possa vazer a verifica��o pelo c�digos do Delphi mesmo?Uso F.B 1.5, IBX.Rodrigo....

Giancorrea · Answer

se for em um campo de uma tabela do banco de dados � s� voc� fazer um SELECT simples, assim �:

IBQuery1.Close;
IBQuery1.SQL.Add(�select CODIGO, NOME from PESSOA where CODIGO = 10);
IBQuery1.Prepare;
IBQuery1.Open;

if (IBQuery1.RecordCount > 0) then
ShowMessage(�Um registro j� possui o c�digo � + IBQuery1CODIGO.AsString);

Bom, acho que era isso a�, qualquer coisa entre em contato

Rodrigorpb · Answer

Gostaria de quando eu digitar um n�mero em um campo no meu form e clicar em salvar ele verificar se o c�digo existe e se existir dar a mensagem, este c�digo funciona? Mas tb o o campo pode ser nulo.

Obrigado.
Rodrigo.

Giancorrea · Answer

Esse c�digo funciona para campos tanto nulos e n�o nulos. S� que tem que ser passado um �valor�, o campo n�o pode estar em branco, se n�o a �consulta� retorna todos os valores da tabela.

Rodrigorpb · Answer

Obrigado.Isso � muito interessante. Mas o que eu queria realmente era o seguinte, tenho um Formul�rio para Cadastro de Registro de Casamento, nele tem o campo Nome do Noivo, Nome da Noiva, N� do Livro, N� da Folha, e N� da Incri��o, o n�mero da incri��o pode ser cadastrado em branco, mas ele n�o pode se repetir, n�o quero coloc�-lo como Chave-Prim�ria, quero fazer no Delphi um jeito que ele verifique no Banco e de a mensagem caso este c�digo exista.Obrigado.Rodrigo....

G1b4 · Answer

No OnValidate do Campo:[code:1:781b7e2fb3]procedure DataSetValidate(Sender: TField);begin  If (length(trim(Sender.AsString)) > 0) And (DataSet.State=dsInsert)  Then    Begin        IBQuery1.Close;        IBQuery1.SQL.Text := �SELECT INSCRICAO FROM TABELA WHERE INSCRICAO = � + Sender.AsString;        IBQuery1.Open;        If Not IBQuery1.IsEmpty Then          Begin             IBQuery1.Close;             IBQuery1.SQL.Text := �SELECT MAX(INSCRICAO) FROM TABELA�;              IBQuery1.Open;              raise Exception.Create(�N�mero repetido, �ltimo n�mero n� � + IBQuery1.FIelds&#91;0&93;.AsString);          End;        IBQuery1.Close;     End;end;[/code:1:781b7e2fb3]Veja se isso resolve......

F�rum Verifica��o de n�meros repetidos... #294894