Nivel de Ejercicios Nº1

Aplicación 1:

Creación de la base de datos con Microsoft Access 2003:

Para desarrollar nuestras prácticas de laboratorio debemos crear una base de datos cuyo nombre es CursosLibres.MDB, la cual contendrá las tablas Curso y Laboratorio.

En la tabla curso debo de colocar los siguiente campos como lo indica el cuadro anterior. Luego de colocar los campos de la tabla curso llenaremos las tablas como lo indica el siguiente cuadro .

De manera análoga proceda a crear la siguiente tabla llamada laboratorio:

Luego proceda a ingresar la siguiente información:

Luego daremos inicio a la siguiente aplicación:

Elaborar una aplicación que permita realizar el mantenimiento de la información almacenada en la tabla Curso de la base de datos CursosLibres.MDB. El diseño de la interfaz debe ser similar a la figura mostrada:

Los botones ubicados en el marco Navegador (Primero, Anterior, Siguiente y Ultimo, de izquierda a derecha) permiten desplazarse a través de la tabla. Los botones ubicados en el marco Mantenimiento (Nuevo, Editar, Guardar y Eliminar, de izquierda a derecha) permiten realizar las operaciones básicas de mantenimiento de la tabla.

Para desarrollar nuestra aplicación, lo primero que debemos hacer es conectarnos a la base de datos CursosLibres.MDB. Para ello ingrese a Visual Basic de manera habitual, a continuación en el menú Proyecto seleccione la opción Agregar Data Environment y se creará una nueva conexión para la que debe establecer propiedades de vínculo de datos. En la ventana Data Environment cambie el nombre del objeto DataEnvironment por DeCursosLibres y el de la conexión por CnCursosLibres. El aspecto de la ventana Data Environment deberá ser similar a la siguiente figura:


Luego haga click con el botón derecho del ratón en CnCursosLibres y seleccione la opción Propiedades. Deberá presentarse un cuadro de diálogo similar al siguiente:

En la ficha Proveedor del cuadro de diálogo anterior, seleccione Microsoft Jet 4.0 OLE DB Provider y haga click en el botón Siguiente. En seguida aparecerá un cuadro de diálogo similar al mostrado:


En la ficha Conexión del cuadro de diálogo Propiedades de Data Link escriba el nombre de la base de datos CursosLibres.MDB y haga click en el botón Probar conexión. Luego si la conexión es satisfactoria haga click en el botón Aceptar.

En seguida en la barra de herramientas de la ventana Data Environment haga click en el botón Agregar Comando y denomine al comando CmCurso. Luego haga click derecho sobre el comando y seleccione Propiedades:


Compruebe que este comando utiliza la conexión CnCursosLibres, luego establezca el nombre de la tabla a utilizar, en este caso Curso y haga click en el botón Aceptar.

A continuación seleccione el comando CmCurso y arrástrelo hacia el formulario. Finalmente agregue los siguientes controles al formulario:

3 marcos
9 botones de comandos

En seguida proceda a establecer las propiedades requeridas:

Form1

Nombre
FrmMantenCurso

Caption
Mantenimiento de cursos

BorderStyle
3-Fixed Dialog

Frame1

Nombre
FraIngreso

Caption


Frame2

Nombre
FraNavegador

Caption
Navegador

Frame3

Nombre
FraMantenimiento

Caption
Mantenimiento

LblFieldLabel(0)

Nombre
LblFieldLabel

Caption
Código:

LblFieldLabel(1)

Nombre
LblFieldLabel

Caption
Nombre:

LblFieldLabel(2)

Nombre
LblFieldLabel

Caption
Vacantes:

LblFieldLabel(3)

Nombre
LblFieldLabel

Caption
Profesor:

TxtCurCodigo

Nombre
TxtCurCodigo

Locked
True

Text



TxtCurNombre

Nombre
TxtCurNombre

Locked
True

Text


TxtCurVacantes

Nombre
TxtCurVacantes

Locked
True

Text


TxtCurProfe

Nombre
TxtCurProfe

Locked
True

Text


Command1

Nombre
CmdPrimero

Caption


Picture
C:\FundVB\Bitmaps\First.bmp

Style
1-Graphical

Command2

Nombre
CmdAnterior

Caption


Picture
C:\FundVB\Bitmaps\Previous.bmp

Style
1-Graphical

Command3

Nombre
CmdSiguiente

Caption


Picture
C:\FundVB\Bitmaps\Next.bmp

Style
1-Graphical


Command4

Nombre
CmdUltimo

Caption


Picture
C:\FundVB\Bitmaps\Last.bmp

Style
1-Graphical

Command5

Nombre
CmdNuevo

Caption


Picture
C:\FundVB\Bitmaps\New.bmp

Style
1-Graphical

Command6

Nombre
CmdEditar

Caption


Picture
C:\FundVB\Bitmaps\Edit.bmp

Style
1-Graphical

Command7

Nombre
CmdGuardar

Caption


Picture
C:\FundVB\Bitmaps\Save.bmp

Style
1-Graphical

Command8

Nombre
CmdEliminar

Caption


Picture
C:\FundVB\Bitmaps\Delete.bmp

Style
1-Graphical


Command9

Nombre
CmdSalir

Caption
&Salir

Picture
C:\FundVB\Bitmaps\Exit.bmp

Style
1-Graphical

El código asociado a la aplicación se muestra a continuación:

Private Sub CmdPrimero_Click()
DeCursosLibres.rsCmCurso.MoveFirst
End Sub

Private Sub CmdUltimo_Click()
DeCursosLibres.rsCmCurso.MoveLast
End Sub

Private Sub CmdAnterior_Click()
DeCursosLibres.rsCmCurso.MovePrevious
If DeCursosLibres.rsCmCurso.BOF Then
DeCursosLibres.rsCmCurso.MoveFirst
MsgBox “Estamos en el primer registro”
End If
End Sub

Private Sub CmdSiguiente_Click()
DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
MsgBox “Estamos en el último registro”
End If
End Sub


Private Sub CmdNuevo_Click()
DeCursosLibres.rsCmCurso.AddNew
ModoEditar True
End Sub

Private Sub CmdEditar_Click()
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
DeCursosLibres.rsCmCurso.Update
ModoEditar False
End Sub

Private Sub CmdEliminar_Click()
DeCursosLibres.rsCmCurso.Delete
DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
End If
End Sub

Private Sub CmdSalir_Click()
Unload Me
End

Private Sub Form_Unload(Cancel As Integer)
If MsgBox(“¿Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then
End
Else
Cancel = True
End If
End Sub
Private Sub Form_Activate()
ModoEditar False
End Sub

Private Sub ModoEditar(ByVal Ok As Boolean)
TxtCurCodigo.Locked = Not Ok: TxtCurNombre.Locked = Not Ok
TxtCurVacantes.Locked = Not Ok: TxtCurProfe.Locked = Not Ok
CmdNuevo.Enabled = Not Ok: CmdEditar.Enabled = Not Ok
CmdGuardar.Enabled = Ok: CmdEliminar.Enabled = Not Ok
CmdPrimero.SetFocus: If Ok Then TxtCurCodigo.SetFocus
End Sub

Finalmente antes de ejecutar la aplicación debemos asegurarnos de elegir el tipo de bloqueo adecuado. Para ello haga click derecho sobre el comando CmCurso y elija la opción Propiedades y en la ficha Avanzadas selecciones el tipo de bloqueo 3-Optimistic, tal como se muestra en la figura siguiente: