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?

La siguiente es la parte del código fuente del programa (parte de verificación de inicio de sesión del usuario) de mi proyecto de graduación universitaria: sistema de gestión integral de la biblioteca (desarrollado en base a VB6.0). Es solo para referencia. Espero que pueda ser útil. a todos ayudados e inspirados!

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