20/11/2008, 05:35
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses Puntos: 37 | |
 Respuesta: ayuda para recorrer un recordset
Cita:
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/  |