Jump to content
Fórum Script Brasil
  • 0

Campo Nome Duplicado


Edson_csi

Question

Olá!

Tenho um formulario de cadastro, onde eu qro q só possa ser inserido apenas um registro com o mesmo nome.

Já fui no banco de dados access e alterei o campo para chave primária e coloquei o a propriedade do campo como Duplicação não autorizada.

Feito isso quando tento gravar dois registros com o mesmo nome gera o erro, mas grava assim mesmo o nome 2 vezes.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

abre o recordset, faz um filter no campo nome e põe a condição: se encontrar avisa que o nome já existe na tabela e não grava, se não encontrar grava, exemplo:

Dim cmd As New ADODB.Command    'objeto command
Dim rs As New ADODB.Recordset         'Recordset

With cmd                                           'faz o select 
    .ActiveConnection = cnn_CONEXÃO
    .CommandType = adCmdText
    .CommandText = " select * from TABELA"
    Set rs = .Execute                             'executando o recordset
End With

With rs
    rs.Filter = "NOME = '" & Text_NOME.Text & "'"     'procura o nome na tabela com o filtro

    If Not (.BOF And .EOF) Then                             ' se encontrou, informa que já existe


            
        Dim vJA_EXISTE_NO_ARQUIVO As Integer
        vJA_EXISTE_NO_ARQUIVO = MsgBox("o nome" &  Text_NOME & " já existe na tabela", vbOKOnly + vbCritical, "ATENÇÃO")
       

         
        Else                                                            ' se não encontrou grava

With cmd
    .ActiveConnection = cnn_CONEXÃO
    .CommandType = adCmdText
    .CommandText = " insert into TABELA " & _
    .Execute

Beleza ?

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...