Sección de códigos , trucos y ejemplos para visual basic

284 - Simple formulario de Login usando base de datos

Ejemplos

Ejemplo simple sin encriptar
Ejemplo para encriptar la información y con inicio de sesión para múltiples usuarios
Enlaces relacionados

Ejemplo simple para abrir un formulario de ingreso pidiendo el nombre de usuario y password para ingresar al programa

Lo siguiente utiliza una base de datos con una tabla que tiene dos campos, uno llamado " Nombre " y otro campo llamado " Password ".

Al ejecutar el programa, se inicia desde un SubMain y un formulario de Login. Este último , se conecta a la base de datos utilizando Ado para traer los datos del usuario al recordset y comprobar si son correctos y poder entrar al formulario principal

Pasos para crear el ejemplo:

Crear una tabla llamada Usuarios
Dentro de esta tabla añadir dos campos, uno llamado Nombre y otro Password
Al proyecto añadir dos formularios ( frmLogin y frmPrincipal )
Un módulo bas
Añadir la referencia a Microsoft Activex xx Data Objects para poder utilizar ADO

El formulario frmLogin debe tener dos textBox ( txt_Usuario y txt_Password ) y dos commandButton ( cmdEntrar y cmdSalir )

vista del form para login

Luego indicar desde el menú Proyecto > Propiedades del proyecto .. en la opción " Objeto inicial " , el procedimiento Sub Main

Vista de la ventana de propiedades de proyecto de visual basic para indicar el objeto inicial que arranca el programa

A continuación sigue el código a agregar en el módulo bas y el código del formulario frmLogin

código fuente del módulo bas

Option Explicit Public Sub Main() ' Abre el formulario para el ingreso _ del Usuario y la contraseña frmLogin.Show vbModal MsgBox " ..bienvenido ", vbInformation, " Login Correcto " ' Abre el formulario principal del programa FrmPrincipal.Show End Sub

Código fuente en el formulario FrmLogin

Option Explicit ' Flag Dim OK As Boolean Private Sub cmdEntrar_Click() ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS ) Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "c:\bd1.mdb" & ";" ' Variable para el recordset Dim Rst_Login As Recordset ' crea el recordset Set Rst_Login = New Recordset Dim SQL As String ' consulta SQL ( Campos: Nombre y Password) _ Textbox ( txt_Usuario y txt_Password) _ Tabla: Usuarios SQL = "SELECT Nombre, Password " & _ "FROM Usuarios " & _ "WHERE Nombre = '" & txt_Usuario.Text & "'" _ & "AND Password = '" & txt_Password.Text & "'" With Rst_Login ' Abre el recordset .Open SQL, C_CADENA ' Si el recordset está vacío es por que es incorrecto If .EOF Then MsgBox " El usuario o Password es incorrecto ", _ vbCritical, " Login incorrecto " ' Cierra y descarga el Recordset Rst_Login.Close Set Rst_Login = Nothing Exit Sub End If End With ' Cierra y descarga el Recordset Rst_Login.Close Set Rst_Login = Nothing 'Cambia el Flag para que no cierre el programa con End OK = True ' Descarga el formulario y prosigue en el SubMain Unload Me End Sub Private Sub cmdSalir_Click() OK = False Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) Set frmLogin = Nothing If OK = False Then End End If End Sub

Ejemplo de inicio de sesión para múltiples usuarios

Este es un código fuente mas completo creado por Michael Ciurescu, y muestra como hacer un inicio de sesión para varios usuarios del programa, y la información de acceso ( usuario y password ) almacenarla en una base de datos Access, aunque también se puede adaptar fácilmente para otras bases de datos como por ejemplo sql server o mysql.

Para encriptar los datos utiliza el algoritmo MD5 de 128 Bit, y el proyecto de ejemplo contiene un formulario con un control listview para mostrar los campos ID y username de la base de datos, y un botón para agregar nuevos usuarios.

vista previa de la pantalla para añadir nuevos registros

Descargar código fuente del proyecto

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb