Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Suponiendo que utilices DAO 3.51 o 3.60 para acceder a la base de datos, se deberia llamar a la siguiente funcion segun este ejemplo:
Private sub cmdAceptar_Click If ValidarUsuario(txtUserName.Text, txtPassword.Text) Then ' Escribir el codigo siguiente a la validacion correcta... Else ' Advertir el login incorrecto... Msgbox ("Error al iniciar sesion") End If End Sub
Function ValidarUsuario(byval sUser as string, sPassword as string) as Boolean
Dim sDBPath as string Dim oDB as database Dim rstAux as recordset
sDBPath = "c:\datos\datos.mdb" ' Asumiento que esta es la ruta de la base de access..
Set oDB = Opendatabase(sDBPath) Set rstAux = oDB.OpenRecordset("Select * From Usuarios Where UserName='" & sUser & "'")
If rstAux.RecordCount = 0 Then ' No existe el usuario ValidarUsuario = False Else If rstAux!Password = sPassword Then ' Validacion correcta ValidarUsuario = True Else ValidarUsuario = False End If End If
Cuando selecciones el proveedor, Microsoft jet 4.0 por ejemplo y la BD, anda a la última pestaña, hay un item que dice System Database. Ahí debes poner el path del archivo .mdw que usa Access para acceder a una BD. Por defecto, hay distintos usuarios como Admin. Crea un nuevo usuario con todos los privilegios y sácales los privilegios a los usuarios por defecto. Así nadie podrá editar tu BD ni siquiera desde Access. Exitos.