Parte 5 – Creación de la Base de Datos y Conectado con ADO y Formulario Login

Software Visual Basic Login Conexion ADO Microsoft Access facil rapida.

En este vídeo vamos a crear las tablas en una base de datos Microsoft Access yo estoy usando la versión 2010, pero se puede usar cualquier versión superior a la 2000, luego de creada la base de datos vamos a crear un Modulo en Visual Basic donde estará el código para hacer la conexión con la base de datos

Esta sección cubre:

  • Creando tablas Usuarios y Tipo de usuarios
  • Creando el Modulo de Conexión
  • Haciendo la Conexión con la base de datos
  • Formulario de Login

El Diagrama de Base de datos a utilizara para el manejo de usuario es este:

 

Códigos utilizados:

Primero hay que agregar la Referencia a ADO, para eso vamos al menú Proyecto luego a Referencias.. y Buscamos  Microsoft ActiveX Data Objects 2.5

Modulo de Conexión:

Global ConexionADO As New ADODB.Connection

Global DireccionDb As String

Sub UbicacionDb()
    DireccionDb = GLeerArchivo(App.Path & "\url.txt")
End Sub

Sub AbrirConexionADO()
    Call UbicacionDb 
    ConexionADO.CursorLocation = adUseClient
    ConexionADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DireccionDb & ";Jet OLEDB:Database Password=1qazxsw2"
End Sub

Si les sale este error «No se encontró el proveedor especificado» debes instalar el proveedor de MS Access llamado Microsoft Access Database Engine 2010  les dejo el link https://www.microsoft.com/en-us/download/details.aspx?id=13255

da clic en el link siguiente si tienes problema con el Error 3706 No se encontró especificado

‘Modulo de Funciones:

Function GLeerArchivo(url As String) As String
   Dim Linea As String
   Dim Texto As String

   If Dir(url) <> "" Then 'Verifico que exista el archivo
      Open url For Input As #1 ' Abre el archivo.
      Texto = "" 'inicializo la variable que contentra la información del archivo
      Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
         Line Input #1, Linea ' Lee el carácter en la variable.
         Texto = Texto & Linea
      Loop
      Close #1 ' Cierra el archivo.
   End If
   GLeerArchivo = Texto
End Function

Siguiente Lección Parte 6 – Inserción de datos en la base de datos, y uso de datos Encriptados, Login

Comentarios de Facebook

Deja un comentario