Reporte de prácticas del capítulo 23

 

 

Practica [23.01]

 >> Habilitacion de DAO

Conclusiones:

En esta practica nos dimos cuenta que para poder trabajar con una base de datos tenemos que activar el control  (Microsoft DAO Object Library ) ya sin este no funciona.

 

 

Practica [23.02]

 >> DDL utilizando DAO: declaración de variables objeto

Option Explicit

Private Function Info(strAgregar As String)

    txtInforme.Text = txtInforme.Text & vbCrLf & strAgregar

End Function

Private Sub cmdCreaDB_Click()

    cmdCreaDB.Enabled = False

    Call Info("Inicio de creación usando DAO")

    Call Info("1: Verificar existencia de archivo")

         If FileSystem.Dir("A:\Ventas.mdb") <> "" Then

            FileSystem.Kill "A:\Ventas.mdb"

            Call Info("Archivo eliminado")

         Else

            Call Info("El archivo no existía")

         End If

    Call Info("2: Preparar base de datos")

         Dim dbBase As Database

    Call Info("3: Preparar espacio de trabajo")

         Dim wsEspacio As Workspace

    Call Info("4: Preparar tablas")

         Dim tbdVendedor As TableDef

         Dim tbdVenta As TableDef

         Dim tbdArticulo As TableDef

         Dim tbdVenta_Articulo As TableDef

    Call Info("5: Preparar índices")

         Dim idxVendedor As Index

         Dim idxVenta(1 To 2) As Index

         Dim idxArticulo As Index

         Dim idxVenta_Articulo(1 To 3) As Index

    Call Info("6: Preparar relaciones")

         Dim relVenta As Relation

         Dim relVenta_Articulo(1 To 2) As Relation

End Sub

Conclusiones:

Es esta practica aprendimos a crear las variables objeto que se utilizan para la base de datos y el orden en que las tenemos que crear.

 

 

 

Practica [23.03]

 >> DDL utilizando DAO: creación del almacen de base de datos

Option Explicit

Private Function Info(strAgregar As String)

    txtInforme.Text = txtInforme.Text & vbCrLf & strAgregar

End Function

Private Sub cmdCreaDB_Click()

    cmdCreaDB.Enabled = False

    Call Info("Inicio de creación usando DAO")

    Call Info("1: Verificar existencia de archivo")

         If FileSystem.Dir("A:\Ventas.mdb") <> "" Then

            FileSystem.Kill "A:\Ventas.mdb"

            Call Info("Archivo eliminado")

         Else

            Call Info("El archivo no existía")

         End If

    Call Info("2: Preparar base de datos")

         Dim dbBase As Database

    Call Info("3: Preparar espacio de trabajo")

         Dim wsEspacio As Workspace

    Call Info("4: Preparar tablas")

         Dim tbdVendedor As TableDef

         Dim tbdVenta As TableDef

         Dim tbdArticulo As TableDef

         Dim tbdVenta_Articulo As TableDef

    Call Info("5: Preparar índices")

         Dim idxVendedor As Index

         Dim idxVenta(1 To 2) As Index

         Dim idxArticulo As Index

         Dim idxVenta_Articulo(1 To 3) As Index

    Call Info("6: Preparar relaciones")

         Dim relVenta As Relation

         Dim relVenta_Articulo(1 To 2) As Relation

    Call Info("7: Activar el espacio de trabajo")

         Set wsEspacio = DBEngine.Workspaces(0)

    Call Info("8: Generar la base de datos")

         Set dbBase = _

             wsEspacio.CreateDatabase("A:\Ventas.mdb", _

             dbLangGeneral, dbVersion30)

End Sub

Private Sub Form_Deactivate()

    dbBase.Close

End Sub

 

Conclusiones:

Esta practica nos enseño a como activar el espacio de trabajo para la base de datos y creamos nuestra primera base de datos.

 

 

Practica [23.04]

 >> DDL utilizando DAO: creación de estructura de tablas y sus campos.

Option Explicit

Private Function Info(strAgregar As String)

    txtInforme.Text = txtInforme.Text & vbCrLf & strAgregar

End Function

Private Sub cmdCreaDB_Click()

    cmdCreaDB.Enabled = False

    Call Info("Inicio de creación usando DAO")

    Call Info("1: Verificar existencia de archivo")

         If FileSystem.Dir("A:\Ventas.mdb") <> "" Then

            FileSystem.Kill "A:\Ventas.mdb"

            Call Info("Archivo eliminado")

         Else

            Call Info("El archivo no existía")

         End If

    Call Info("2: Preparar base de datos")

         Dim dbBase As Database

    Call Info("3: Preparar espacio de trabajo")

         Dim wsEspacio As Workspace

    Call Info("4: Preparar tablas")

         Dim tbdVendedor As TableDef

         Dim tbdVenta As TableDef

         Dim tbdArticulo As TableDef

         Dim tbdVenta_Articulo As TableDef

    Call Info("5: Preparar índices")

         Dim idxVendedor As Index

         Dim idxVenta(1 To 2) As Index

         Dim idxArticulo As Index

         Dim idxVenta_Articulo(1 To 3) As Index

    Call Info("6: Preparar relaciones")

         Dim relVenta As Relation

         Dim relVenta_Articulo(1 To 2) As Relation

    Call Info("7: Activar el espacio de trabajo")

         Set wsEspacio = DBEngine.Workspaces(0)

    Call Info("8: Generar la base de datos")

         Set dbBase = _

             wsEspacio.CreateDatabase("A:\Ventas.mdb", _

             dbLangGeneral, dbVersion30)

    Call Info("9: Se generan las tablas")

         Set tbdVendedor = dbBase.CreateTableDef("Vendedor")

         Set tbdVenta = dbBase.CreateTableDef("Venta")

         Set tbdArticulo = dbBase.CreateTableDef("Articulo")

         Set tbdVenta_Articulo = dbBase.CreateTableDef("Venta_Articulo")

    Call Info("10: Generan campos e integrar tablas")

    Call Info("    -> Vendedor")

    With tbdVendedor

                    .Fields.Append .CreateField("IDVendedor", dbInteger)

                    With .Fields("IDVendedor")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreVendedor", dbText, 35)

                    With .Fields("NombreVendedor")

                         .AllowZeroLength = False

                         .Required = True

                    End With

    End With

    Call Info("    -> Venta")

    With tbdVenta

                 .Fields.Append .CreateField("IDVenta", dbInteger)

                 With .Fields("IDVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("FechaVenta", dbDate)

                 With .Fields("FechaVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("IDVendedor", dbInteger)

                 With .Fields("IDVendedor")

                      .Required = True

                 End With

    End With

    Call Info("    -> Articulo")

    With tbdArticulo

                    .Fields.Append .CreateField("IDArticulo", dbInteger)

                    With .Fields("IDArticulo")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreArticulo", dbText, 40)

                    With .Fields("NombreArticulo")

                         .AllowZeroLength = False

                         .Required = True

                    End With

                    .Fields.Append .CreateField("PrecioUnitario", dbCurrency)

                    With .Fields("PrecioUnitario")

                         .Required = True

                    End With

    End With

    Call Info("    -> Venta_Articulo")

    With tbdVenta_Articulo

                          .Fields.Append .CreateField("IDVenta", dbInteger)

                          With .Fields("IDVenta")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("IDArticulo", dbInteger)

                          With .Fields("IDArticulo")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("Cantidad", dbInteger)

                          With .Fields("Cantidad")

                               .Required = True

                          End With

    End With

    Call Info("11: Integrar la base de datos")

    With dbBase

               .TableDefs.Append tbdVendedor

               .TableDefs.Append tbdVenta

               .TableDefs.Append tbdArticulo

               .TableDefs.Append tbdVenta_Articulo

    End With

End Sub

Private Sub Form_Deactivate()

    dbBase.Close

End Sub

 

Conclusiones:

En esta practica nos dimos cuenta de cómo generar tablas y campos , y a su vez modificarle sus propiedades con el metodo With (para no escribir tanto)  e integrarlos en el orden respectivo.

 

 

Practica [23.05]

 >> DDL utilizando DAO : creación de indices.

Option Explicit

Private Function Info(strAgregar As String)

    txtInforme.Text = txtInforme.Text & vbCrLf & strAgregar

End Function

Private Sub cmdCreaDB_Click()

    cmdCreaDB.Enabled = False

    Call Info("Inicio de creación usando DAO")

    Call Info("1: Verificar existencia de archivo")

         If FileSystem.Dir("A:\Ventas.mdb") <> "" Then

            FileSystem.Kill "A:\Ventas.mdb"

            Call Info("Archivo eliminado")

         Else

            Call Info("El archivo no existía")

         End If

    Call Info("2: Preparar base de datos")

         Dim dbBase As Database

    Call Info("3: Preparar espacio de trabajo")

         Dim wsEspacio As Workspace

    Call Info("4: Preparar tablas")

         Dim tbdVendedor As TableDef

         Dim tbdVenta As TableDef

         Dim tbdArticulo As TableDef

         Dim tbdVenta_Articulo As TableDef

    Call Info("5: Preparar índices")

         Dim idxVendedor As Index

         Dim idxVenta(1 To 2) As Index

         Dim idxArticulo As Index

         Dim idxVenta_Articulo(1 To 3) As Index

    Call Info("6: Preparar relaciones")

         Dim relVenta As Relation

         Dim relVenta_Articulo(1 To 2) As Relation

    Call Info("7: Activar el espacio de trabajo")

         Set wsEspacio = DBEngine.Workspaces(0)

    Call Info("8: Generar la base de datos")

         Set dbBase = _

             wsEspacio.CreateDatabase("A:\Ventas.mdb", _

             dbLangGeneral, dbVersion30)

    Call Info("9: Se generan las tablas")

         Set tbdVendedor = dbBase.CreateTableDef("Vendedor")

         Set tbdVenta = dbBase.CreateTableDef("Venta")

         Set tbdArticulo = dbBase.CreateTableDef("Articulo")

         Set tbdVenta_Articulo = dbBase.CreateTableDef("Venta_Articulo")

    Call Info("10: Generan campos e integrar tablas")

    Call Info("    -> Vendedor")

    With tbdVendedor

                    .Fields.Append .CreateField("IDVendedor", dbInteger)

                    With .Fields("IDVendedor")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreVendedor", dbText, 35)

                    With .Fields("NombreVendedor")

                         .AllowZeroLength = False

                         .Required = True

                    End With

    End With

    Call Info("    -> Venta")

    With tbdVenta

                 .Fields.Append .CreateField("IDVenta", dbInteger)

                 With .Fields("IDVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("FechaVenta", dbDate)

                 With .Fields("FechaVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("IDVendedor", dbInteger)

                 With .Fields("IDVendedor")

                      .Required = True

                 End With

    End With

    Call Info("    -> Articulo")

    With tbdArticulo

                    .Fields.Append .CreateField("IDArticulo", dbInteger)

                    With .Fields("IDArticulo")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreArticulo", dbText, 40)

                    With .Fields("NombreArticulo")

                         .AllowZeroLength = False

                         .Required = True

                    End With

                    .Fields.Append .CreateField("PrecioUnitario", dbCurrency)

                    With .Fields("PrecioUnitario")

                         .Required = True

                    End With

    End With

    Call Info("    -> Venta_Articulo")

    With tbdVenta_Articulo

                          .Fields.Append .CreateField("IDVenta", dbInteger)

                          With .Fields("IDVenta")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("IDArticulo", dbInteger)

                          With .Fields("IDArticulo")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("Cantidad", dbInteger)

                          With .Fields("Cantidad")

                               .Required = True

                          End With

    End With

    Call Info("11: Integrar la base de datos")

    With dbBase

               .TableDefs.Append tbdVendedor

               .TableDefs.Append tbdVenta

               .TableDefs.Append tbdArticulo

               .TableDefs.Append tbdVenta_Articulo

    End With

    Call Info("12: Crear índices")

    Call Info("    -> Vendedor")

    Set idxVendedor = _

        tbdVendedor.CreateIndex("pkVendedor")

    With idxVendedor

                    .Fields.Append .CreateField("IDVendedor")

                    .Primary = True

                    .Unique = True

    End With

    tbdVendedor.Indexes.Append idxVendedor

    Call Info("    -> Venta")

    Set idxVenta(1) = _

        tbdVenta.CreateIndex("pkVenta")

    With idxVenta(1)

                    .Fields.Append .CreateField("IDVenta")

                    .Primary = True

                    .Unique = True

    End With

    Set idxVenta(2) = _

        tbdVenta.CreateIndex("fkVendedor")

    With idxVenta(2)

                    .Fields.Append .CreateField("IDVendedor")

                    .Primary = False

                    .Unique = False

    End With

    With tbdVenta

                 .Indexes.Append idxVenta(1)

                 .Indexes.Append idxVenta(2)

    End With

    Call Info("    -> Articulo")

    Set idxArticulo = _

        tbdVendedor.CreateIndex("pkArticulo")

    With idxArticulo

                    .Fields.Append .CreateField("IDArticulo")

                    .Primary = True

                    .Unique = True

    End With

    tbdArticulo.Indexes.Append idxArticulo

    Call Info("     -> Venta_Articulo")

    Set idxVenta_Articulo(1) = _

        tbdVenta_Articulo.CreateIndex("pkVenta_Articulo")

    With idxVenta_Articulo(1)

                             .Fields.Append .CreateField("IDVenta")

                             .Fields.Append .CreateField("IDArticulo")

                             .Primary = True

                             .Unique = True

    End With

    Set idxVenta_Articulo(2) = _

        tbdVenta_Articulo.CreateIndex("fkVenta")

    With idxVenta_Articulo(2)

                             .Fields.Append .CreateField("IDVenta")

                             .Primary = False

                             .Unique = False

    End With

    Set idxVenta_Articulo(3) = _

        tbdVenta_Articulo.CreateIndex("fkArticulo")

    With idxVenta_Articulo(3)

                             .Fields.Append .CreateField("IDArticulo")

                             .Primary = False

                             .Unique = False

    End With

    With tbdVenta_Articulo

                          .Indexes.Append idxVenta_Articulo(1)

                          .Indexes.Append idxVenta_Articulo(2)

                          .Indexes.Append idxVenta_Articulo(3)

    End With

End Sub

Private Sub Form_Deactivate()

    dbBase.Close

End Sub

 

Conclusiones:

El la practica solamente creamos los indices necesarios para nuestra base de datos con sus respectivas propiedades.

 

 

Practica [23.06]

 >> DDL utilizando DAO :  creación de relaciones.

 

Option Explicit

Private Function Info(strAgregar As String)

    txtInforme.Text = txtInforme.Text & vbCrLf & strAgregar

End Function

Private Sub cmdCreaDB_Click()

    cmdCreaDB.Enabled = False

    Call Info("Inicio de creación usando DAO")

    Call Info("1: Verificar existencia de archivo")

         If FileSystem.Dir("A:\Ventas.mdb") <> "" Then

            FileSystem.Kill "A:\Ventas.mdb"

            Call Info("Archivo eliminado")

         Else

            Call Info("El archivo no existía")

         End If

    Call Info("2: Preparar base de datos")

         Dim dbBase As Database

    Call Info("3: Preparar espacio de trabajo")

         Dim wsEspacio As Workspace

    Call Info("4: Preparar tablas")

         Dim tbdVendedor As TableDef

         Dim tbdVenta As TableDef

         Dim tbdArticulo As TableDef

         Dim tbdVenta_Articulo As TableDef

    Call Info("5: Preparar índices")

         Dim idxVendedor As Index

         Dim idxVenta(1 To 2) As Index

         Dim idxArticulo As Index

         Dim idxVenta_Articulo(1 To 3) As Index

    Call Info("6: Preparar relaciones")

         Dim relVenta As Relation

         Dim relVenta_Articulo(1 To 2) As Relation

    Call Info("7: Activar el espacio de trabajo")

         Set wsEspacio = DBEngine.Workspaces(0)

    Call Info("8: Generar la base de datos")

             Set dbBase = _

             wsEspacio.CreateDatabase("A:\Ventas.mdb", _

             dbLangGeneral, dbVersion30)

        Call Info("9: Se generan las tablas")

             Set tbdVendedor = dbBase.CreateTableDef("Vendedor")

         Set tbdVenta = dbBase.CreateTableDef("Venta")

         Set tbdArticulo = dbBase.CreateTableDef("Articulo")

         Set tbdVenta_Articulo = dbBase.CreateTableDef("Venta_Articulo")

        Call Info("10: Generan campos e integrar tablas")

    Call Info("    -> Vendedor")

        With tbdVendedor

                    .Fields.Append .CreateField("IDVendedor", dbInteger)

                    With .Fields("IDVendedor")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreVendedor", dbText, 35)

                    With .Fields("NombreVendedor")

                         .AllowZeroLength = False

                         .Required = True

                        End With

    End With

        Call Info("    -> Venta")

    With tbdVenta

                 .Fields.Append .CreateField("IDVenta", dbInteger)

                 With .Fields("IDVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("FechaVenta", dbDate)

                 With .Fields("FechaVenta")

                      .Required = True

                 End With

                 .Fields.Append .CreateField("IDVendedor", dbInteger)

                 With .Fields("IDVendedor")

                      .Required = True

                 End With

    End With

        Call Info("    -> Articulo")

    With tbdArticulo

                    .Fields.Append .CreateField("IDArticulo", dbInteger)

                    With .Fields("IDArticulo")

                         .Required = True

                    End With

                    .Fields.Append .CreateField("NombreArticulo", dbText, 40)

                    With .Fields("NombreArticulo")

                         .AllowZeroLength = False

                         .Required = True

                    End With

                    .Fields.Append .CreateField("PrecioUnitario", dbCurrency)

                    With .Fields("PrecioUnitario")

                         .Required = True

                    End With

    End With

        Call Info("    -> Venta_Articulo")

    With tbdVenta_Articulo

                          .Fields.Append .CreateField("IDVenta", dbInteger)

                          With .Fields("IDVenta")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("IDArticulo", dbInteger)

                          With .Fields("IDArticulo")

                               .Required = True

                          End With

                          .Fields.Append .CreateField("Cantidad", dbInteger)

                          With .Fields("Cantidad")

                               .Required = True

                          End With

    End With

        Call Info("11: Integrar la base de datos")

    With dbBase

               .TableDefs.Append tbdVendedor

               .TableDefs.Append tbdVenta

               .TableDefs.Append tbdArticulo

               .TableDefs.Append tbdVenta_Articulo

    End With

        Call Info("12: Crear índices")

        Call Info("    -> Vendedor")

    Set idxVendedor = _

        tbdVendedor.CreateIndex("pkVendedor")

    With idxVendedor

                    .Fields.Append .CreateField("IDVendedor")

                    .Primary = True

                    .Unique = True

    End With

    tbdVendedor.Indexes.Append idxVendedor

        Call Info("    -> Venta")

    Set idxVenta(1) = _

        tbdVenta.CreateIndex("pkVenta")

    With idxVenta(1)

                    .Fields.Append .CreateField("IDVenta")

                    .Primary = True

                    .Unique = True

    End With

    Set idxVenta(2) = _

        tbdVenta.CreateIndex("fkVendedor")

    With idxVenta(2)

                    .Fields.Append .CreateField("IDVendedor")

                    .Primary = False

                    .Unique = False

    End With

    With tbdVenta

                 .Indexes.Append idxVenta(1)

                 .Indexes.Append idxVenta(2)

    End With

        Call Info("    -> Articulo")

    Set idxArticulo = _

        tbdVendedor.CreateIndex("pkArticulo")

    With idxArticulo

                    .Fields.Append .CreateField("IDArticulo")

                    .Primary = True

                    .Unique = True

    End With

    tbdArticulo.Indexes.Append idxArticulo

        Call Info("     -> Venta_Articulo")

    Set idxVenta_Articulo(1) = _

        tbdVenta_Articulo.CreateIndex("pkVenta_Articulo")

    With idxVenta_Articulo(1)

                             .Fields.Append .CreateField("IDVenta")

                             .Fields.Append .CreateField("IDArticulo")

                             .Primary = True

                             .Unique = True

    End With

    Set idxVenta_Articulo(2) = _

        tbdVenta_Articulo.CreateIndex("fkVenta")

    With idxVenta_Articulo(2)

                             .Fields.Append .CreateField("IDVenta")

                             .Primary = False

                             .Unique = False

    End With

    Set idxVenta_Articulo(3) = _

        tbdVenta_Articulo.CreateIndex("fkArticulo")

    With idxVenta_Articulo(3)

                             .Fields.Append .CreateField("IDArticulo")

                             .Primary = False

                             .Unique = False

    End With

    With tbdVenta_Articulo

                          .Indexes.Append idxVenta_Articulo(1)

                          .Indexes.Append idxVenta_Articulo(2)

                          .Indexes.Append idxVenta_Articulo(3)

    End With

        Call Info("13: Crear relaciones")

        Call Info("     ->Vendedor")

        Set relVenta = dbBase.CreateRelation("Venta_Vendedor")

    With relVenta

                 .Table = "Vendedor"

                 .ForeignTable = "Venta"

                 .Fields.Append .CreateField("IDVendedor")

                 .Fields("IDVendedor").ForeignName = "IDVendedor"

    End With

    dbBase.Relations.Append relVenta

        Call Info("     -> Venta_Articulo")

        Set relVenta_Articulo(1) = _

                 dbBase.CreateRelation("Venta_Articulo_Venta")

    With relVenta_Articulo(1)

                             .Table = "Venta"

                             .ForeignTable = "Venta_Articulo"

                             .Fields.Append .CreateField("IDVenta")

                             .Fields("IDVenta").ForeignName = "IDVenta"

    End With

    Set relVenta_Articulo(2) = _

                 dbBase.CreateRelation("Venta_Articulo_Articulo")

    With relVenta_Articulo(2)

                             .Table = "Articulo"

                             .ForeignTable = "Venta_Articulo"

                             .Fields.Append .CreateField("IDArticulo")

                             .Fields("IDArticulo").ForeignName = "IDArticulo"

    End With

        With dbBase

               .Relations.Append relVenta_Articulo(1)

               .Relations.Append relVenta_Articulo(2)

    End With

End Sub

Private Sub Form_Deactivate()

    dbBase.Close

End Sub

 

Conclusiones:

En esta practica nos dimos cuenta cómo se relacionan las tablas.

 

Practica [23.07]

 >> Ingenieria inversa utilizando DAO: determinación del modelo de datos a partir de                  un almacen de datos.

 

Option Explicit

    Dim dbBase As Database

    Dim tbdTabla As TableDef

    Dim fldCampo As Field

    Dim idxIndice As Index

    Dim fldCampoIdx As Field

    Dim relRelacion As Relation

Private Function Mensaje(txtTexto As String)

    txtSeguimiento.Text = txtSeguimiento.Text & vbCrLf & txtTexto

End Function

Private Sub cmdAnalizar_Click()

    cmdAnalizar.Enabled = False

    If FileSystem.Dir("A:\Estructura.txt") <> "" Then

       FileSystem.Kill "A:\Estructura.txt"

    End If

    Open "A:\Estructura.txt" For Output As #1

    txtSeguimiento.Text = "Estructura.txt"

    Call Mensaje("Análisis: " & Date & " Hora: " & Time)

    For Each tbdTabla In dbBase.TableDefs

        If Not InStr(1, tbdTabla.Name, "MSys") = 1 Then

              Call Mensaje("- - - - - - - - - - - - - - - - - - ")<

              Call Mensaje("Tabla:" & tbdTabla.Name)

              For Each fldCampo In tbdTabla.Fields

                  Call Mensaje(vbTab & "Campo:" & fldCampo.Name)

                  Call Mensaje(vbTab & vbTab & _

                       IIf(fldCampo.Required = True, "> Requerido", _

                       "> No Requerido"))

                       Select Case fldCampo.Type

                       Case 10

                              Call Mensaje(vbTab & vbTab & "> dbText" & _

                                   "," & Str(fldCampo.Size))

                              If fldCampo.AllowZeroLength = True Then

                                 Call Mensaje(vbTab & vbTab & _

                                      "> Permite longitud cero")

                              End If

                       Case 5

                              Call Mensaje(vbTab & vbTab & "> dbCurrency")

                       Case 3

                              Call Mensaje(vbTab & vbTab & "> dbInteger")

                       End Select

              Next fldCampo

              Call Mensaje(" ")

              For Each idxIndice In tbdTabla.Indexes

                  If Not idxIndice.Foreign = True Then

                     Call Mensaje(vbTab & "Indice:" & _

                                  idxIndice.Name)

                     If idxIndice.Primary = True Then

                        Call Mensaje(vbTab & vbTab & "> Primary")

                     End If

                     If idxIndice.Unique = True Then

                        Call Mensaje(vbTab & vbTab & "> Unique")

                     End If

                     For Each fldCampoIdx In idxIndice.Fields

                         Call Mensaje(vbTab & vbTab & _

                                      "Campo de índice:" & _

                                      fldCampoIdx.Name)

                     Next fldCampoIdx

                  End If

              Next idxIndice

        End If

    Next tbdTabla

    Call Mensaje("- - Relaciones - - - - - - - - - - - -")

    For Each relRelacion In dbBase.Relations

        Call Mensaje("Relación: " & relRelacion.Name)

        Call Mensaje(vbTab & "Tabla cliente : " & _

                     relRelacion.ForeignTable)

        Call Mensaje(vbTab & "Tabla servidora:" & _

                     relRelacion.Table)

    Next relRelacion

    Print #1, txtSeguimiento.Text

End Sub

Private Sub Form_Activate()

    Set dbBase = OpenDatabase("A:\Ventas.mdb")

    txtSeguimiento.Font.Name = "Courier"

    txtSeguimiento.Font.Size = 10

End Sub

Private Sub Form_Deactivate()

    dbBase.Close

    Close #1

End Sub

Conclusiones:

Esta practica nos enseño a como visualizar la estructura de la base de datos que hemos creado.

1