Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 IfMuito obrigado! no Aguardo...
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...
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
[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()