Login e Senha

[Vagner Bucioli Scala 0]

Pessoal! Me deem um help por favor! Como faço no VBNet para verificar se o registro existe ou não na base? eu estou fazendo um admin com login e senha mas não consigo acertar de jeito nenhum!

 

Segue Código

 

Dim varEmail, VarSenha As String 

VarEmail = txtEmail.Text
        VarSenha = txtSenha.Text

        Dim selcom As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conect
        selcom.CommandText = "Select * From Clientes where tbEmail = '" & VarEmail & "' and tbSenha = '" & VarSenha & "'"

        Dim reader As System.Data.OleDb.OleDbDataReader

        reader = selcom.ExecuteReader()


        If reader.Read() Then

            Response.Write("existe")

        Else
            Response.Write("não existe")


        End If

* Ocorre que ele está me retornando somente "NÃO EXISTE" independente do email e senha existir ou não no banco de dados!

 

Muito obrigado! no Aguardo...

[Vagner Bucioli Scala 0]

Pessoal! consegui fazer mas ficou meio q uma gambearra! se tiver uma forma melhor pra fazer por favor me avisem!

 

Seguinte...eu criei uma segunda Query, que conta a qtd. de registros encontrados e caso esta quantidade seja diferente de zero ele satisfaz a condição como verdadeira. Mas acho q o interessante seria se o sistema validasse e me retornassem os valores que quizesse em uma Query Só!

 

 

VarEmail = txtEmail.Text
        VarSenha = txtSenha.Text


        Dim selcom As New System.Data.OleDb.OleDbCommand
        Dim selcom2 As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conect
        selcom2.Connection = conect
        selcom.CommandText = "Select * From Clientes where tbEmail = '" & VarEmail & "' and tbSenha = '" & VarSenha & "'"
[b]        selcom2.CommandText = "Select Count (IdCliente) As Soma From Clientes where tbEmail = '" & VarEmail & "' and tbSenha = '" & VarSenha & "'"[/b]
        Dim reader As System.Data.OleDb.OleDbDataReader
        Dim reader2 As System.Data.OleDb.OleDbDataReader

        reader = selcom.ExecuteReader()
        reader2 = selcom2.ExecuteReader()


        reader.Read()
        reader2.Read()

[b]        If reader2("Soma") = 0 Then[/b]
            Response.Write("não existe")

        Else
            Response.Write("existe")
            Response.Write(reader("tbEmail"))' BELEZA AGORA ME RETORNA O EMAIL
            Response.Write(reader("tbSenha"))' ...E A SENHA TAMBÉM!

        End If



        reader.Close()
        reader2.Close()

[quintelab 91]

Acho pouco provavel que seja feito em uma única query. Mas acho mais fácil postar essa dúvida no fórum de banco de dados. Talvez seja possível com uma procedure.

 

Abraços...