Make your own free website on Tripod.com

 

Creación de objetos de datos. OLE y Control Data

 

 

OLE es un set de interfases COM que permite el uso de distintas aplicaciones y de distintas bases de datos (con uniforme acceso de datos) guardados en diversas fuentes y lugares.

 

Al utilizar un objeto OLE se pueden ejecutar aplicaciones desde VB a la vez que estará ejecutando y procesando varios tipos de información.

 

Utilizaremos un mismo formulario para la demostración de estos dos objetos: OLE y Data.

 

1.       Abre un proyecto nuevo en VB.

2.       Crea la siguiente interfaz. No crees por ahora el objeto OLE (Icono de Word). Lo vas a crear en el paso 1 de la siguiente sección.

 

 

Uso de OLE para abrir aplicaciones

 

Establece las siguientes propiedades:

 

Label1

 

 

Propiedad

Valor

 

Nombre

Lbl1

 

Caption

Objetos OLE y Control Data

 

Font

Arial, Negrita, tamaño 14

 

Label2

 

 

Propiedad

Valor

 

Nombre

Lbl2

 

Caption

Documento de Word

 

Font

Arial, Negrita, tamaño 10

 

1.       Crea el objeto OLE. Para ello arrastra y dibuja debajo de la etiqueta “Label2” el objeto OLE (éste se  encuentra en la parte inferior de ToolBox)

2.       Aparece la caja de diálogo Insert Object. Elige Microsoft Word Document.

3.       Haz una marca de cotejo en Display As Icon.

4.       Al lado izquierdo tienes dos opciones:

a)       Que el documento que aparezca al correr la aplicación sea un documento nuevo -Create New- (En este caso aparecerá una plantilla en blanco a la cual puedes añadir ahora elementos comunes. No hay que guardar el documento en blanco al salir del mismo). Cuando actives el icono en el programa, éste llamará a la plantilla. 

 

b)       Que el documento que aparezca al correr la aplicación sea un documento nuevo -Create from File- (En este caso aparece otra caja de diálogo, la cual provee para que examines y enlaces el archivo que quieres abrir al correr la aplicación). Cuando actives el icono en el programa, éste llamará al archivo.

 

5.       Haz una marca de cotejo en Display As Icon y otra en Link.

6.       Da un clic en OK.

De igual forma puedes abrir otras aplicaciones.

 

Uso de Control Data para consultar de una base de datos de ACCESS

 

Para demostrar el control Data se han creado en el mismo formulario tres objetos:

 

Label3

 

 

Propiedad

Valor

 

Nombre

Lbl3

 

Caption

nombre

 

Font

Arial, Negrita, tamaño 10

 

Data1

 

Propiedad

Valor

 

Nombre

Data1

 

Caption

Nombre del archivo de ACCESS

 

Conect

Access

 

DatabaseName

C:\...Examina Dirección del archivo

 

 

 

 

ReadOnly

False

 

RecordSource

Selecciona una tabla de la base de datos

 

Procedimiento:

 

1.       Pulsa Data  de la caja de herramientas.

2.       Desplaza el puntero del ratón al lado derecho del formulario.

 

 

3.       En la ventana Propiedades verifica que la propiedad Connect esté definida como Access.

4.       Selecciona en la propiedad DatabaseName la dirección del el archivo de Access dando un clic en

5.       Selecciona en la propiedad RecordSource una tabla. Si VB no acepta la tabla se debe a incompatibilidad con la versión de ACCESS.

6.       Escribe en Caption el nombre del archivo de la base de datos.

 

Text1

 

 

Propiedad

Valor

 

Nombre

Text1

 

Text

(Vacío)

 

DataSource

Selecciona Data1

 

DataField

Selecciona el campo “Nombre” u otro

 

Font

Arial, Negrita, tamaño 10

 

Los Text Box se utilizan para exhibir los campos del récord a través de las propiedades de DataSource y DataField.

 

1.       Haz un clic en el objeto Text1 y selecciona la propiedad DataSource, pulsa la flecha del cuadro de lista desplegable y selecciona Data1 (el primer objeto de datos) de la lista. Borra el contenido de la propiedad Text1.

2.       Selecciona la propiedad Data Field, pulsa la flecha del cuadro de lista desplegable y selecciona el campo que deseas mostrar de la lista, n este caso Nombre.

3.       Selecciona el objeto Label3 y asigna a la propiedad Caption el valor “Nombre”.

4.       Guarda el proyecto con el nombre oledata.

5.       Ejecuta el programa.

Al pulsar las flechas del objeto Data navegas entre los récords de la base de datos.

 

 

Añadiendo más elementos

 

 

Este es el código para la búsqueda (doble clic sobre el botón  y pega el siguiente código):

 

Private Sub Command2_Click()

  mensaje$ = "Introduzca el título completo del libro."

  CadenaBusq$ = InputBox(mensaje$, "Buscando libro")

  DatBiblio.Recordset.Index = "Title"  'emplea campo Título   DatBiblio.Recordset.Seek "=", CadenaBusq$ 'y busca

  If DatBiblio.Recordset.NoMatch Then  'si no encuentra

     MsgBox ("Lo siento, no pude encontrar su libro.")

     DatBiblio.Recordset.MoveFirst  'ir al primer registro

  End If

  End Sub

 

DatBiblio es el nombre (Name) del objeto Data

Si el libro no existe, ocurre lo siguiente:

 

Para más detalle sobre la biblioteca electrónica haz clic aquí para VB y aquí para el archivo de access.

 

Reto. Crear un sistema de información empresarial

 

En este proyecto vas a representar un archivo y una gráfica de Excel, además de cinco campos de una tabla de la base de datos.

 

Crea la siguiente interfaz:

 

 

Esta interfaz tiene:

 

1 PictureBox

2 Objetos OLE con una aplicación y un Chart de Excel

5 TextBox

1 Data

1 CommandButton

 

El objeto Data1 tiene las siguientes propiedades y valores:

 

Connect                        Access

DataBaseName             Dirección del archivo de Access

ReadOnly                      True

RecordSource                Tabla de Proveedores del archivo de Access

 

Los objetos TextBox poseen las siguientes propiedades y valores:

 

DataSource                   Data1 (todos_

DataField                      Un campo por cada TextBox: Nombre, Dirección, Ciudad, Estado, Tel

Text1-5                         (Vacío todos)

La gráfica se trae con la técnica de Copy/Paste Special: a) Copias la gráfica en Excel; b) haz un clic sobre el objeto OLE del lado derecho y eliges Paste Special (aparece la caja de diálogo Paste Special); c) Presiona OK.

 

Home | VB |