• 0
Sign in to follow this  
A Metallica

Consulta no Banco

Question

Como faço pra consultar uma tabela no Access.

Preciso que o arquivo faça uma verificação no banco se um endereço de e-mail já existe se sim, ele me retorna uma mensagem indicando que este e-mail já exite.

se este endereço não estiver na base abre um formulario para inclusão do formulario.

Estou tendo problemas com este caso segue o que eu fiz

'Buscando os dados no banco
if varTEXTO = "" then
    
    'Buscando o e-mail da pessoa no banco
    strEMAIL = "select * from EXCLUSAO where EMAIL = '"&varEMAIL&"' "
    set rsEMAIL = Conexao.Execute(strEMAIL)
    
    'Se não encontrar um E-mail válido no Banco
    if rsEMAIL.eof then
        varTEXTO = "ELE NÃO ENCOTROU MAIS NO BANCO ESTE E-MAIL"
        
        'Verificando se o e-mail já foi excluido
         if rsEMAIL("EMAIL") = varEMAIL then
        varTEXTO = "<p>O e-mail <b>"&varEMAIL&"</b> já está excluso de nossa base de dados.</p><p>Devido à nossa programação de envio de e-mails, pode ser que você ainda esteja recebendo nossos informativos, mas, a partir da data de <b>"&rsEMAIL("DATA")&"</b> seu nome não consta em nenhum novo agendamento.</p><p>A CR Basso continua com sua missão, visando fortalecer competências empresariais e profissionais.</p>"
        
        'Redireciona p/ informar que e-mail já esta excluido
        response.Redirect("http://www.crbasso.com.br")
    else
        varTEXTO = ""
        end if
    end if
end if

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Cara faz um seguinte antes de você cadastrar o email, você verifica no banco se já existe esse email, se o email não existir você cadastra, se já existir você retorna a mensagem para o usuário ...

você tem q usar a tela para inclusão de cadastro, ou seja antes do seu INSERT no banco você usa um SELECT ...

Share this post


Link to post
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.

Sign in to follow this