Ir para conteúdo
Fórum Script Brasil
  • 0

Erro no teste de condição


Vinicius2445

Pergunta

Gente preciso de ajuda, urgente, pois no meu projeto, irá ter uma página que o usuário irá se registrar, para um usuário não se registrar mais de uma vez, caso ele esqueça a senha, o campo email será o verificador, se o email estiver cadastrado, ele n poderá fzr o cadastro, aparecendo uma messagebox, só que não está aparecendo a mensagem quando coloco o email repetido, dá um erro e fala que tem um operador faltando

textbox13 é o campo email

N_Cad é a chave primária

Dim cod As String
cod = TextBox13.Text
Dim sqll As String = "SELECT * FROM Cad_Cliente where N_Cad =" & cod
Dim cm1 As New OleDb.OleDbCommand(sqll, dbcon)
Dim dr1 As OleDb.OleDbDataReader
Dim flag As Boolean
Try
dbcon.Open()
dr1 = cm1.ExecuteReader
If dr1.HasRows Then
While dr1.Read
If dr1.Item("Email") = cod Then
flag = True
MessageBox.Show("Você já é cadastrado, caso ão consiga entrar, por favor, acessar a opção recuperar senha na página de login")
End If
End While
End If
If flag = False Then
MessageBox.Show("Ocorreu algum erro")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
dbcon.Close()

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...