USUARIO E SENHA
Tenho um banco de dados (ADO rs - Tabela , conexao - Conexao) com usuarios e senhas. Para mim validar o usuario e a senha a hora que o cara digitar, inseri:
Mais ele só funciona com o primeiro registro, ou seja, o segundo usuario nao entra, só vai entrar quando o cursor estivar nele (se eu der um rs.MoveNext).
Mas o que eu preciso é que ele ja passe por todos os registros e veja, se o usuario for DENNYSFL e a senha VBMANIA , ele executa uma rotina, senão ele executa outra ......
If Text1 = rs(0) And Text2 = rs(1) Then
MsgBox "logado"
Else
MsgBox "erro"
End If
Mais ele só funciona com o primeiro registro, ou seja, o segundo usuario nao entra, só vai entrar quando o cursor estivar nele (se eu der um rs.MoveNext).
Mas o que eu preciso é que ele ja passe por todos os registros e veja, se o usuario for DENNYSFL e a senha VBMANIA , ele executa uma rotina, senão ele executa outra ......
...por que você está apenas comparando o digitado ao que já foi buscado pelo Recordset.
Tente buscar o usuário dentro do Recordset, com a instrução SQL adequada, depois que ele entra a senha e o nome. Por exemplo, quando o usuário digitar as informações e clicar para acessar, aà sim você abre o recordset usando o select mais ou menos assim:
oRS.Source = "SELECT FROM USUÃ ÂRIOS WHERE NOME = '" & TEXT1 & "' AND SENHA = '" & TEXT2 & "'';"
oRS.Open
Aà é só testar se tem algum registro no recordset.
If oRS.RecordCount = 0 Then
Se tiver, e os campos forem iguais ás entradas, o cara pode acessar.
Tente buscar o usuário dentro do Recordset, com a instrução SQL adequada, depois que ele entra a senha e o nome. Por exemplo, quando o usuário digitar as informações e clicar para acessar, aà sim você abre o recordset usando o select mais ou menos assim:
oRS.Source = "SELECT FROM USUÃ ÂRIOS WHERE NOME = '" & TEXT1 & "' AND SENHA = '" & TEXT2 & "'';"
oRS.Open
Aà é só testar se tem algum registro no recordset.
If oRS.RecordCount = 0 Then
Se tiver, e os campos forem iguais ás entradas, o cara pode acessar.
Tópico encerrado , respostas não são mais permitidas