=ES-PR style='font-size:10.0pt;mso-bidi-font-size:12.0pt;font-family: Verdana'>Propiedad

Valor

 

Nombre

Lbl2

 

Caption

Biblioteca Pública de Rincón

 

Font

Arial, tamaño 10

 

Data1

 

Propiedad

Valor

 

Nombre

datBiblio

 

Caption

Biblio.mdb (Nombre del archivo de ACCESS)

 

Conect

Access

 

DatabaseName

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

 

DataField

Selecciona un campo

 

ReadOnly

True

 

RecordSource

Selecciona una tabla

 

Label3

 

 

Propiedad

Valor

 

Nombre

Lbl3

 

Caption

Título libro:

 

Font

Arial, Negrita, tamaño 14

 

Label4

 

 

Propiedad

Valor

 

Nombre

Lbl4

 

Caption

Descripción:

 

Font

Arial, Negrita, tamaño 10

 

Label5

 

 

Propiedad

Valor

 

Nombre

Lbl5

 

Caption

Ref.:

 

Font

Arial, Negrita, tamaño 14

 

Label6

 

 

Propiedad

Valor

 

Nombre

Lbl6

 

Caption

Año

 

Font

Arial, Negrita, tamaño 10

 

Text1

 

 

Propiedad

Valor

 

Nombre

txtTitle

 

DataSource

DatBiblio

 

DataField

Title

 

Text

 

 

Text2

 

 

Propiedad

Valor

 

Nombre

txtInfo

 

DataSource

DatBiblio

 

DataField

Description

 

Text

 

 

Text3

 

 

Propiedad

Valor

 

Nombre

txtISBN

 

DataSource

DatBiblio

 

DataField

ISBN

 

Text

 

 

Text4

 

 

Propiedad

Valor

 

Nombre

txtYear

 

DataSource

DatBiblio

 

DataField

Year Published

 

Text

 

 

Command1

 

Nombre

CmdSalir

 

Caption

&Salir

 

De igual forma pueden crearse más TextBox para incluir más campos de la base de datos, como el nombre del Autor.

 

Guarda el proyecto como “biblio” y luego ejecuta la aplicación. Da un clic en Salir para abandonar el programa.

 

 

Búsqueda de datos. Recordset

 

En VB, Recordtset es un objeto que representa la parte de la base de datos con la que está trabajando el programa. El objeto Recordset incluye propiedades especiales y métodos con los que se puede buscar, ordenar, añadir y borrar registros (records). EN el siguiente ejercicio se buscarán registros almacenados en la base de datos utilizando el campo título.

 

Se utilizará el mismo formulario anterior. Si prefieres puedes guardar (Save As...) el mismo proyecto con otro nombre, como “Búsqueda”

 

1.       Selecciona Command2 y asígnale las siguientes propiedades:

 

Command2

 

Nombre

CmdFind

 

Caption

&Buscar

 

2.      Realiza un doble pulsación sobre el botón de orden de Buscar para abrir el procedimiento de suceso cmdFind_Click en la ventana de código.

3.      Escribe las siguientes sentencias en el procedimiento de suceso:

 

Private Sub CmdFind_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

 

Para que este código funcione, asegúrate que el objeto Data1 tiene como nombre datBiblio.

 

4.      Guarda el proyecto y ejecuta el programa.

 

Ventana para entrar texto

Cuando la búsqueda no tiene éxito

 

Método  o propiedad Recordset

 

Descripción

Index

Propiedad utilizada para definir el campo de la base de datos que se utilizará en la búsqueda.

Seek

Método utilizado para buscar el registro. Se pueden utilizar cualquier operador relacional (>, <, >=, <=) además del = para comparar la cadena de búsqueda con el texto de la base de datos.

NoMacht

Propiedad que toma el valor True si no encuentra el registro buscado.

MoveFirst

Método que define el primer registro contenido en Recordset como el registro activo.

 

Cómo añadir registros a la base de datos

 

Para poder añadir un nuevo registro a la base de datos hay que asignar el valor False a la propiedad ReadOnly y utilizar el método AddNew.

 

 

1.       Selecciona el objeto datBiblio (Biblio.mdb) y modifica la propiedad ReadOnly a False.

2.       Pulsa el control CommandButton de la caja de herramientas y crea un nuevo objeto debajo del botón de Buscar.

3.       Asigna las siguientes propiedades para el objeto botón de orden:

 

Command3

 

Nombre

CmdAdd

 

Caption

&Añadir

4.      Pulsa dos veces el botón Añadir para abrir el procedimiento de suceso cmdAdd_Click en la ventana de código.

5.       Escribe las siguientes sentencias en el procedimiento de suceso:

 

6.       Ejecuta el programa.

7.       Presiona el botón Añadir. Aparece el cuadro de diálogo con las instrucciones para añadir el registro. La función MsgBox utiliza el argumento vbOKCancel (una constante numérica definida por VB) para mostrar OK y Cancel en el cuadro de diálogo.

8.       Al dar un clic sobre OK el cursor se desplaza al campo Título libro para añadir el nuevo registro utilizando el método AdNew.

9.       Entra dos registros ficticios.

10.   Pulsa la flecha externa derecha de Data para ver el último registro entrado y luego la flecha “anterior”.

El procedimiento de suceso utiliza también el método SetFocus para situar el cursor en el cuadro de texto Title. El método SetFocus puede ser utilizado para activar cualquier objeto que pueda recibir el foco.

 

La última sentencia utiliza el código de programa para definir el campo clave PubID contenido en la base de datos Biblio.mdb. Cada nuevo registro que desee añadir necesitará este campo y tendrá que insertar el valor para el campo PubID mediante el programa. El valor 14 significa que el libro será publicado por Microsoft Press.

 

Cómo borrar registros de la base de datos

 

Antes de modificar otra vez el programa, debes guardarlo con otro nombre.

1.                   Verifica que la propiedad ReadOnly del objeto datBiblio tiene como valor False.

2.                   Crea un nuevo botón de orden debajo del botón de Añadir.

Command4

 

Nombre

CmdDelete

 

Caption

&Borrar

3.                  Pulsa dos veces el botón Borrar para abrir el procedimiento de suceso cmdAdd_Click en la ventana de código.

4.                   Escribe las siguientes sentencias en el procedimiento de suceso:

 

 

5.                   Ejecuta el programa.

6.                   Desplázate a los últimos registros que creaste mediante el objeto Control Data

7.                   Da un clic en el botón Borrar para borrar los mismos.

8.                   Abandona la ejecución del programa y guárdalo de nuevo.

 

 

Home | VB |

 

Make your own free website on Tripod.com