Precentacion de Slide Share

Power Point: Precentacion Sobre Conexión de base de datos

http://www.slideshare.net/jza/programacion-de-bases-de-datos-en-ooobasic

Video de Youtube

Movie maker: Conexión de base de datos

http://www.youtube.com/watch?v=Zs68eGj19Fs

Orientación a objetos y conexión VB 6.0 ADO

Cómo crear una base de datos con ADO,
Cómo crear tablas y
Cómo compactar una base de datos.

Este es el link al código completo de los tres casos indicados 

En la página se muestra el código completo, el cual puedes bajar mediante un fichero comprimido.

Compactar una base de datos usando ADO y VB 

Para compactar bases de datos usando ADO, tienes que crear una referencia a Microsoft Jet and Replication Objects 2.6 Library (JRO).

Nota: JRO sólo se puede usar con bases de datos Microsoft JET

Aquí tienes el código necesario para compactar una base de datos:

Private Sub cmdCompactar_Click()
    ' Compactar una base de datos con ADO
    Dim sDBTmp As String
    Dim je As JRO.JetEngine
    '
    On Error GoTo ErrCompactar
    '
    Set je = New JRO.JetEngine
    '
    ' Crear un nombre "medio" aleatorio
    sDBTmp = "DBT_" & Format$(Minute(Now), "00") & Format$(Second(Now), "00") & ".mdb"
    ' Asegurarnos de que no existe una base con el nombre temporal
    If Len(Dir$(sDBTmp)) Then
        Kill sDBTmp
    End If
    '
    lblInfo.Caption = " Compactando la base de datos..."
    lblInfo.Refresh
    '
    ' Compactar la base de datos
    je.CompactDatabase "Data Source=" & txtNombreBase.Text & ";", _
                       "Data Source=" & sDBTmp & ";"
    '
    ' Eliminar la base de datos original
    Kill txtNombreBase.Text
    '
    ' Renombrar la base temporal con el original
    Name sDBTmp As txtNombreBase.Text
    '
    lblInfo.Caption = " Base de datos compactada."
    lblInfo.Refresh
    '
    Exit Sub
    '
ErrCompactar:
    ' Mostrar el mensaje de error
    MsgBox "Error al compactar la base de datos:" & vbCrLf & _
            Err.Number & " " & Err.Description, _
            vbExclamation, "Error al compactar la base de datos"
    Err.Clear
    lblInfo.Caption = " *** Error al compactar la base de datos ***"
    lblInfo.Refresh
End Sub