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

Formulario Datos de la Empresa, Uso del control Common Dialog

Imagen
Vídeo: Vídeo 2: Se organiza la ventana de Datos de la Empresa. Se implemento un control  Common Dialog para la seleccionar la imagen del logo. Botón Abrir Imagen evento Clic del Formulario frmDatosEmpresa Private Sub cmdAbrirImage_Click()     CommonDialog1.Filter = "Archivo de Imagen|*.jpg|*.jpeg"     CommonDialog1.ShowOpen     If CommonDialog1.FileName <> "" Then        txtLogo.Text = CommonDialog1.FileName        imgLogo.Picture = LoadPicture(txtLogo.Text)     Else        txtLogo.Text = ""     End If End Sub El siguiente metodo se utiliza para Guardar o Actualizar los datos del empresa, este código se encuentra en el modulo  mod_Consultas  Sub GuardarDatosEmpresa(Nombre As String, Propie As String, Nit As String, Telefono As String, Direcc As String, logo As String, Descrip As String, Regimen As Integer, Resoluc As ...
Leer más

Imagen de Intro creada en Photoshop para el formulario de Inicio

Imagen
En este vídeo enseño como usar Photoshop para crear una imagen Intro. Esta se colocará de fondo en el formulario lo que hace que a primera vista impacte y cliente se lleve una buena imagen del Software. Les enseñare como crear este imagen intro: En esta ventana se colocara el numero de la versión del software y se usara el control Timer para controlar el tiempo que demorara la ventana visible en ese tiempo crearemos unas funciones que verifiquen que existan los archivos de configuración y base de datos de la aplicación y le mostraremos al usuario esa información. Les llama la atención el nombre que escogí fue idea de mi esposa que me dice que ese nombre no se les va a olvidar eso mismo hizo la empresa Apple 😆.  Pueden descargar el zip con las imagenes y las fuentes usadas de aquí 
Leer más