ayuda para recorrer un recordset

[papurri]

hola amigos que tal..
tengo una aplicacion con un loguin, los campos del loguin son user y pass de una base de datos access.estos campos los capturo en un recordset,pero el problema es que solo puedo entrar con el usuario de la primera fila de la base de datos.imagino que para poder ingresar a la aplicacion con los demas usuarios debo recorrer el recordset que es justo lo que no puedo hacer. agradecere cualquier tipo de opinion, de todas formas dejo el codigo


Private Sub cmdOK_Click()
Dim user As String
Dim pass As String
Set rst = New ADODB.Recordset
Set comando = New ADODB.Command
Set conexion = New ADODB.Connection

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\info.mdb"
sql = "SELECT * FROM usuarios"
comando.CommandText = sql
rst.Open comando.CommandText, conexion


user = rst.Fields(0)
pass = rst.Fields(1)

If (user = Me.txtUserName.Text And pass = Me.txtPassword) Then
frmMenuPrincipal.Show
Unload Me

Else
MsgBox "contraseña invalida, intente otra vez!", , "Login"
End If
End Sub


muchas gracias y saludos

[David]

Puedes hacerlo con un bucle Do... While y el método MoveNext para avanzar al siguiente registro a cada iteración. Aunque quizás no sea necesario, ya que puedes obtener directamente el usuario que fue ingresado:

Código vb:

sql = "SELECT * FROM usuarios WHERE user='" & txtUserName & "'"
 

Puedes hacer un control para salir del procedimiento si no se encuentran registros.

[aldo1982]

porque no usas el buscador la proxima vez ? lleno de cosas duplicadas sino va a terminar el foro

[Avellaneda]

Iniciado por papurri

hola amigos que tal..
tengo una aplicacion con un loguin, los campos del loguin son user y pass de una base de datos access.estos campos los capturo en un recordset,pero el problema es que solo puedo entrar con el usuario de la primera fila de la base de datos.imagino que para poder ingresar a la aplicacion con los demas usuarios debo recorrer el recordset que es justo lo que no puedo hacer. agradecere cualquier tipo de opinion, de todas formas dejo el codigo


Private Sub cmdOK_Click()
Dim user As String
Dim pass As String
Set rst = New ADODB.Recordset
Set comando = New ADODB.Command
Set conexion = New ADODB.Connection

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\info.mdb"
sql = "SELECT * FROM usuarios"
comando.CommandText = sql
rst.Open comando.CommandText, conexion


user = rst.Fields(0)
pass = rst.Fields(1)

If (user = Me.txtUserName.Text And pass = Me.txtPassword) Then
frmMenuPrincipal.Show
Unload Me

Else
MsgBox "contraseña invalida, intente otra vez!", , "Login"
End If
End Sub


muchas gracias y saludos

Probaste este ejemplo??

http://www.forosdelweb.com/f69/tengo...codigo-645008/