Jump to content
Fórum Script Brasil
  • 0

Não Permitir Cadastrar O Mesmo Codigo Na Tabela


Michel Carneiro

Question

1 answer to this question

Recommended Posts

  • 0

Existem algumas maneiras: voce pode bloquear registros duplicados no proprio banco de dados ou pode durante a entrada de dados fazer uma verificação no arquivo se o registro já existe, ex:

AtestaX_IB.First;

         if AtestaX_IB.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then
            begin
                showmessage('Este registro já existe!');
                exit;
            end
         else
            begin  
             showmessage('Registro valido!');

             //  restante do codigo para inclusão do registro 
            end;
OBS: Neste caso vai verificar se o nome da empresa já existe, se existir da mensagem e sai fora da procedure, se não, inclui o novo registro. Ou ainda usar uma instrução SQL com passagem de parametro que ficaria mais eficaz
SELECT * FROM CADASTRO
WHERE EMPRESA = :NEMP   //  parametro que vai receber o nome da empresa
ORDER BY EMPRESA

Fica muito mais rapido, e se o recordcount for > 0 significa que o registro já existe, se for = 0 , o registro não existe e pode ser incluido.

Edited by Jhonas
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...