¿Cómo puedo hacer que un formulario de Visual Basic pida usuario y contraseña de una base de datos?
Hola gracias de antemano, mi problema es que no se como hacer en un formulario que me pida el Usuario y contraseña de una db en la cual ya se capturaron dichos datos solo quiero que haga lo siguiente:
Usuario: xxxxxxx
Contraseña: xxxxxxxx
Que los verifique en una bd. Y si están allí que me de hacceso si no que me lo pida 3 veces si esta mal las tres veces que se salga.
Nuevamente gracias
Es para Access97
Y por favor donde se pone la instrucción SELECT no se como utilizarla necesito help =) Salu 2
Usuario: xxxxxxx
Contraseña: xxxxxxxx
Que los verifique en una bd. Y si están allí que me de hacceso si no que me lo pida 3 veces si esta mal las tres veces que se salga.
Nuevamente gracias
Es para Access97
Y por favor donde se pone la instrucción SELECT no se como utilizarla necesito help =) Salu 2
1 respuesta
Respuesta de kieleze
1
Así que te voy a pasar el código completo para que lo modifiques para tu aplicación
Option Explicit
dim RSUsuario As Recordset
dim BD as Database
dim Intentos as integer
Private Sub cmdCancelar_Click()
Unload Me
End Sub
Private Sub HabilitarAceptar()
If (txtLoginUsuario.Text <> "") And (txtPasswordUsuario.Text <> "") Then
HabilitarBotones
Else
cmdAceptar.Enabled = False
End If
End Sub
Private Sub txtLoginUsuario_Change()
HabilitarAceptar
End Sub
Private Sub txtPasswordUsuario_Change()
HabilitarAceptar
End Sub
Private Sub HabilitarBotones()
cmdAceptar.Enabled = True
End Sub
Private Sub DesHabilitarBotones()
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
cmdAceptar.Enabled = False
End Sub
Private Sub Form_Load()
DesHabilitarBotones
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
intentos = 0
End Sub
Private Sub cmdAceptar_Click()
Dim sBuscar As String
' Formar la cadena de la consulta:
sBuscar = "SELECT * FROM usuarios WHERE login_usuario = '" & txtLoginUsuario.Text & "' and psw_usuario = '" & txtPasswordUsuario.Text & "'"
' Creamos un recordset del tipo "estático", el cual no es modificable
' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
Set BD = OpenDatabase("direccion y nombre de TU base de datos")
Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenForwardOnly)
'Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenSnapshot)
' Comprobar que hay datos en el recordset
With RSUsuario
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "DATO INCORRECTO"
if intento > 3 Then
unload me
end if
intento = intento + 1
Else
Unload Me
'agrega acá para que abra el formulario que vendría cuando esto sea el usuario y el pass sean correctos'
End If
End With
End Sub
Si revisas un poco el código podrás hacerlo funcionar en tu aplicación arreglando los nombres que uso yo, por los tuyos
Option Explicit
dim RSUsuario As Recordset
dim BD as Database
dim Intentos as integer
Private Sub cmdCancelar_Click()
Unload Me
End Sub
Private Sub HabilitarAceptar()
If (txtLoginUsuario.Text <> "") And (txtPasswordUsuario.Text <> "") Then
HabilitarBotones
Else
cmdAceptar.Enabled = False
End If
End Sub
Private Sub txtLoginUsuario_Change()
HabilitarAceptar
End Sub
Private Sub txtPasswordUsuario_Change()
HabilitarAceptar
End Sub
Private Sub HabilitarBotones()
cmdAceptar.Enabled = True
End Sub
Private Sub DesHabilitarBotones()
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
cmdAceptar.Enabled = False
End Sub
Private Sub Form_Load()
DesHabilitarBotones
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
intentos = 0
End Sub
Private Sub cmdAceptar_Click()
Dim sBuscar As String
' Formar la cadena de la consulta:
sBuscar = "SELECT * FROM usuarios WHERE login_usuario = '" & txtLoginUsuario.Text & "' and psw_usuario = '" & txtPasswordUsuario.Text & "'"
' Creamos un recordset del tipo "estático", el cual no es modificable
' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
Set BD = OpenDatabase("direccion y nombre de TU base de datos")
Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenForwardOnly)
'Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenSnapshot)
' Comprobar que hay datos en el recordset
With RSUsuario
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "DATO INCORRECTO"
if intento > 3 Then
unload me
end if
intento = intento + 1
Else
Unload Me
'agrega acá para que abra el formulario que vendría cuando esto sea el usuario y el pass sean correctos'
End If
End With
End Sub
Si revisas un poco el código podrás hacerlo funcionar en tu aplicación arreglando los nombres que uso yo, por los tuyos
Gracias por tu respuesta es justo loke necesitaba
Lo que pasa es que la lógica si la tengo lo que no se es donde y con que instrucción pero ya estoy entendiendo un poco más, lo que pasa es que soy nueve en esto pero ya he programado antes.
Nuevamente GRACIAS
Lo que pasa es que la lógica si la tengo lo que no se es donde y con que instrucción pero ya estoy entendiendo un poco más, lo que pasa es que soy nueve en esto pero ya he programado antes.
Nuevamente GRACIAS
