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.