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

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:

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


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



Comentarios

Publicar un comentario

Entradas más populares de este blog

Uso del Control Timer en el Formulario de Inicio

Imagen
En este vídeo explico como se utiliza el control Timer, y como usamos varias funciones de visual como Dir, App que son necesarias para lo que queremos lograr con nuestra pantalla de Inicio. La función Dir : Devuelve una cadena que representa el nombre de un archivo, directorio o carpeta que coincide con un modelo especificado o atributo de archivo o la etiqueta de volumen de una unidad. La Funcion App.path: Devuelve la ubicación actual de nuestra aplicación con respecto a la raíz del disco duro. Parte 2 del Vídeo: Código Usado : Dim ArchivosAplicacion(3) As String Sub ListaArchivosConfiguracion()     ArchivosAplicacion(0) = App.Path & "/configuracion.ini"     ArchivosAplicacion(1) = App.Path & "/tiket.ini"     ArchivosAplicacion(2) = App.Path & "/Db/Dbventas.accdb"     ArchivosAplicacion(3) = App.Path & "/urldb.txt" End Sub Sub VerificarExisteArchivo(Num)       Resulconsulta = Dir(ArchivosAplicacion(Nu
Leer más

Inserción de datos en la base de datos, y uso de datos Encriptados, Login

Imagen
En este video esplico como se insertan datos en una base de datos MS Access. Se creo un registro en la tabla Usuarios que son los datos del administrador. En Visual Basic, se tomo una función de la página recursosvisualbasic.com.ar para encripdar datos, esta se uso para encriptar la contraseña de los usuarios. Esta es la función: '--------------------------------------------------------------------- ' EncryptString ' Modificado por Harvey T. '--------------------------------------------------------------------- 'El parámetro UserKey es la clave. 'El parámetro Text es el texto a encriptar o desencriptar. 'El parámetro Action indica QUE hacer, ..es decir Encriptar o desencriptar. ( El valor ENCRYPT es para encriptar y el valor DECRYPT para desencriptar) 'url: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-encriptar-desencriptar.htm Public Function EncryptString(UserKey As String, Text As String, Action As S
Leer más