Cita:
Iniciado por Sairox 
Buenas tardes amigos, muchisimas gracias por las ayudas anteriores en el foro, bueno mis amigos hoy les escribo por que me ha surtido una gran duda, estoy haciendo un programa (bueno estoy experimentando ya que soy nuevo en este mundo), y bueno cree una base de datos en access con un nombre de usuario y una contraseña, tambien cree un diseño desde visual basic con las siguientes opciones:
Solicitud de nombre de usuario
Solicitud de contraseña
Boton enviar
entonces lo que deseo es que mi programa busque en la base de datos localizada en C:\1.mdb dentro de la tabla usuarios el nombre de usuario y la contraseña y si estos existen que de acceso al segundo formulario, de lo contrario que muestre un mensajito de error...
alguien me podria ayudar ?? como podria hacer esto? muchas gracias anticipadamente y bueno pues hasta luego...
HOLA TE ENVIO ALGO PARA QUE PRUEBES O LO ADAPTES A TU GUSTO
Public cnn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public rsS As New ADODB.Recordset
Public RS1 As New ADODB.Recordset
Public Sub IniciarConexion()
With cnn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\1.mdb" & ";Persist Security Info=False"
End With
End Sub
public sub ENVIAR ()
DIM CORRECTO
CORRECTO = FALSE
If RS.State = adStateOpen Then
RS.Close
End If
sql = "SELECT * FROM usuario""
RS.Open sql, cnn, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS.MoveFirst
' recorre el recordset
While Not RS.EOF
'BUSCA SI SE ENCUENTRAN LOS DATOS INGRESADOS
IF txtNOMBRE = RS!NOMBRE AND txtCONTRASEÑA = RS!CONTRASEÑA THEN
CORRECTO = TRUE
END IF
RS.MoveNext
Wend
End If
IF CORRECTO THEN
LLAMAR AL 2do FORMULARIO
ELSE
MSGBOX " EL USUARIO O CONTRASEÑA SON INCORRECTOS "
LIMPIAR LAS txtNOMBRE Y txt CONTRASEÑA
LLAMAR AL 1º FORMULARIO FORMULARIO
END IF
END SUB
SUERTE
