Estoy creando un programa VB para conectarme a una base de datos. Es una interfaz de inicio de sesión. ¿Cómo puedo encontrar el nombre de usuario y la contraseña ingresados en la tabla de la base de datos?
Opción explícita
Conexión pública como nuevo ADODB.Conexión 'Marcar objeto de conexión
Sub privada cmdLogin_Click()
Atenuar SQL como cadena
Atenuar rs_Login como nuevo ADODB.Recordset
If Trim(txtuser.Then 'Determinar si el nombre de usuario ingresado es nulo
MsgBox "Por favor ingrese el nombre de usuario", vbOKOnly + vbExclamation
txtuser.Text = ""
txtuser.SetFocus
ElseIf txtpwd.Text = "" Entonces
MsgBox "Por favor ingrese una contraseña", vbOKOnly + vbExclamation
txtpwd.= ""
txtpwd.SetFocus
Else
SQL = "select * desde Administración del sistema donde nombre de usuario ='" & txtuser.Text & "'"
rs_Login.Open SQL, Conn, adOpenKeyset, adLockPessimistic
Si rs_Login.EOF = True entonces
Si rs_Login.EOF = True Entonces
Si rs_Login.EOF = True Entonces
Si rs_Login.EOF = TrueEOF = True Entonces
MsgBox " Lo sentimos, no existe tal usuario", vbOKOnly + vbExclamation
txtuser.Text = ""
txtuser.SetFocus
rs_Login.Close
Else 'Verifique si la contraseña es correcta
Si rs_Login.Fields(1) = txtpwd.Text Entonces
UserID = txtuser.Text
UserID = txtuser.Text
ID de usuario = txtuser.Text
ID de usuario = txtuser.Text
ID de usuario = txtuser.Text
ID de usuario = txtuser. TextsetFocus
p>rs_Login.Close
Finalizar si
Finalizar si
p>
Finalizar si.
End Sub
Private Sub Form_Load() 'Inicializa el sistema y carga la base de datos
Atenuar la cadena de conexión como cadena
p>
Cadena de conexión = "proveedor =Microsoft.Jet.oledb.4..0;" & _
"Data Source=" & App.Path & "\book.mdb"
Conn.Open Connectionstring
End Sub
Private Sub txtpwd_KeyPress(KeyAscii As Integer) 'Haga clic en Intro para iniciar sesión directamente
Si KeyAscii = 13 Luego cmdLogin_Click
End Sub