Curso de Visual Basic conexión a base de datos

Curso de Visual Basic conexión a base de datos

Curso de Visual Basic conexión a base de datos

Una de las ventajas de desarrollar aplicaciones en visual Basic es que no se requiere de muchas instalaciones y complejos requerimientos de plataforma, la versión con la que iniciaremos esta serie de videos tutoriales es con la IDE PORTABLE de VISUAL BASIC Compatible para sistemas Operativos de 32 y 64.

Para el desarrollo de estos video Tutoriales nos valdremos de varios ejercicios y comenzaremos de la siguiente manera:

  • Descargar y ejecutar el Paquete de Visual Basic Portable. <<DESCARGAR>>
  • Descargar e Instalar Paquete DSIGEXPRESS. <<DESCARGAR>>
  • Registraremos las variables de Entorno de Visual Basic Portable.
  • Crear un nuevo Proyecto de Visual Basic.
  • Crear el Modulo de Clase ADO.
  • Agregar un Formulario MDI Padre y un Formulario Hijo.
  • Crear una Interfaz para la capa de Datos y la Capa Vista.
  • Procedimientos, Funciones y Propiedades
  • Consultas SQL Guardar, Actualizar, Listar y Eliminar.
  • Ejecutar el Proyecto de Visual Basic.
  • Compilar a un Ejecutable .EXE.

Módulo de Clase Conexión ADO
Public cn As ADODB.Connection
Public rst As ADODB.Recordset
Public Cmd As ADODB.Command
Public FormAsControl As Form
Public FormAsObject As Object

Function Conexión() As ADODB.Connection
 Set cn = New ADODB.Connection
  With cn
    .CursorLocation = adUseClient
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    "G:\VIDEOTORIALES\Planilla\Bd\BdPlanilla.accdb" & ";Persist Security Info=False;"
    .Open
  End With
 
    If cn.State = adStateOpen Then
        Set Conexión = cn
    End If
End Function
Function GetClose()
Set rst = Nothing
If cn.State = True Then
cn.Close
End If
End Function

Function ExcelTabla(Consultasql As String)
  Set cn = Conexión
  Set rst = New ADODB.Recordset
  rst.Open Consultasql, cn
End Function
Function Guardar(Tabla As String) As String
    BarraProgreso = True
    Set cn = Conexión
    Set rst = New ADODB.Recordset
    rst.Open Tabla, cn, adOpenKeyset, adLockOptimistic, adCmdTable
    rst.Requery
    rst.AddNew
End Function

Function Actualizar(Tabla As String) As String
 BarraProgreso = True
 Set cn = Conexión
 Set rst = New ADODB.Recordset

 rst.Open Tabla, cn, adOpenKeyset, adLockOptimistic, adCmdTable
 rst.Requery


End Function

Function Eliminar(Tabla As String) As String
 BarraProgreso = True
 Set cn = Conexión
 Set rst = New ADODB.Recordset

    rst.Open Tabla, cn, adOpenKeyset, adLockOptimistic, adCmdTable
    rst.Requery

End Function

Function Buscar(Tabla As String) As String

 Set cn = Conexión
 Set rst = New ADODB.Recordset

 rst.Open Tabla, cn, adOpenKeyset, adLockOptimistic, adCmdTable
 If rst.BOF Or rst.EOF Then Exit Function


End Function

Function ListaTabla(Consultasql As String)
   Set cn = Conexión
   Set rst = New ADODB.Recordset
   rst.Open Consultasql, cn

End Function

Function Autonumerico(Consultasql As String)
   Set cn = Conexión
   Set rst = New ADODB.Recordset
   rst.Open Consultasql, cn, AdOpenDinamic, adLockOptimistic

End Function

Function TablaConsulta(Consultasql As String)
   Set cn = Conexión
   Set rst = New ADODB.Recordset
   rst.Open Consultasql, cn
 If rst.EOF = False Or rst.BOF = False Then
    With rst
       .MoveLast
        NoOfRecords = .RecordCount
       .MoveFirst
     
        FormAsObject.ColumnCount = .Fields.Count
        FormAsObject.Column = .GetRows(NoOfRecords)
    End With
 End If
End Function

Crear un modulo de clase y agregar el código de arriba y guardarlo con el nombre de: DsigExpressAdo.cls 

¿Como Funciona la Clase ADO CONEXIÓN?
'Funcion para agregar datos a la base de datos
Function Insertar()
Set conexion = New DsigExpressAdo
With conexion
 .Guardar ("NOMBRE DE LA TABLA")
 .rst(1).Value ="Campo a agregar"

 .rst.Update
 .rst.Requery
 .rst.Close
 Set .rst = Nothing

End With
Set conexion = Nothing

End Function

'Funcion para actualizar un registro de la base de datos en base al criterio de busqueda.
Function Actualizar()
Set conexion = New DsigExpressAdo
With conexion
 .Actualizar ("NOMBRE DE LA TABLA")
 
 .rst.Find "ID=CRITERIO A BUSCAR"
 .rst(1).Value = "Campo a Actualizar"

 .rst.UpdateBatch
 .rst.Requery
 .rst.Close
 Set .rst = Nothing

End With
Set conexion = Nothing

End Function
'Función para eliminar un registro de la base de datos según criterio de busqueda
Function Eliminar()
Set conexion = New DsigExpressAdo
With conexion
  .Eliminar ("NOMBRE DE LA TABLE")
  .rst.Find "ID='CRITERIO DE BUQUEDA'"
  .rst.Delete
  .rst.Requery
  .rst.Close
 Set .rst = Nothing

End With
Set conexion = Nothing

End Function

'Función para listar registros de una tabla de la base de dato según crterio o consulta sql
Function Listar()

Set conexion = New DsigExpressAdo
With conexion
   .ListaTabla ("CONSULTA SQL")
    FormAsObject.FillFromRS .rst 'Objeto a referenciar (Ej. MSHFlexGrid, Igrid, etc)
   .rst.Close
    Set .rst = Nothing

End With
Set conexion = Nothing

End Function

Nota: Estas Funciones se explicaran en los videos y como trabajarlo dentro del entorno Capa datos.

Variables Publicas y Privadas de la capa Datos
Private conexion As DsigExpressAdo
Private n_codigo, n_dni, n_nombre, n_appaterno, n_apmaterno, n_correo, n_telefono, n_direccion As String
'Interactuan  con la Capa Vista
Public FormAsObject As Object
Public SQL As String

Estas Variables de deben declarar en cada Clase que corresponde a la capa Vista.

Propiedades de la Capa Entidad
'Propiedades
Public Property Get codigo() As String
codigo = n_codigo
End Property
Public Property Let codigo(ByVal NewValue As String)
n_codigo = NewValue
End Property

Public Property Get dni() As String
dni = n_dni
End Property
Public Property Let dni(ByVal NewValue As String)
n_dni = NewValue
End Property

Public Property Get appaterno() As String
appaterno = n_appaterno
End Property
Public Property Let appaterno(ByVal NewValue As String)
n_appaterno = NewValue
End Property

Public Property Get apmaterno() As String
apmaterno = n_apmaterno
End Property
Public Property Let apmaterno(ByVal NewValue As String)
n_apmaterno = NewValue
End Property

Public Property Get nombre() As String
nombre = n_nombre
End Property
Public Property Let nombre(ByVal NewValue As String)
n_nombre = NewValue
End Property

Public Property Get correo() As String
correo = n_correo
End Property
Public Property Let correo(ByVal NewValue As String)
n_correo = NewValue
End Property

Public Property Get telefono() As String
telefono = n_telefono
End Property
Public Property Let telefono(ByVal NewValue As String)
n_telefono = NewValue
End Property

Public Property Get direccion() As String
direccion = n_direccion
End Property
Public Property Let direccion(ByVal NewValue As String)
n_direccion = NewValue
End Property

Nota: En realidad esto debería estar en la Capa Entidad , pero esto lo vamos a trabajar en la Capa datos.

 <<instalar y Ejecutar Visual Basic>>

Descargar archivos adjuntos

  • VB6
    Tamaño de archivo: 6 MB Descargas: 2086

Acerca del autor

Fernando M.Blas administrator

    Deja un comentario

    Ds| ChatBox
    --.--.---- Desconectado
    Excel Servicios 2020-07-02 00:59:00
    Buen Día, cual es su consulta.
    1 image