VISUAL-ACCESS

Lo primero que hicimos es crear una base de datos en acces con el nombre de CursosLibres.MDB.

paso dos crear una tabla con el nombre Curso.

Creación de la tabla curso.

Ingreso de datos de la tabla Curso

Creación de la tabla Laboratorio.

Ingreso de datos de la tabla Laboratorio.

La conección de bisual basic con acces.

Ingreso a bisual basic, selección de menú proyecto, y después la opción Agregar Data Enviorement.

La ventana Date Enviorement se cambión por el nombre DeCursosLibres y la conección por el nombre CnCursosLibres. De y Cn son prefijos y siempre tienen que llevar al momento de realizar una conección

VENTANA DE DATA ENVIOREMENT.

Luego seleccionar la opción propiedades de CnCursosLibres , elegir la opción Microsoft. Jet 4,0 OLE DB Provider en la ficha proveedor y seguidamente click en el botón siguiente.

PROPIEDADES DE VÍNCULO DE DATOS.

En la ficha conexión en el cuadro de diálogo de la propiedad de vínculos de datos, escribir el nombre de la base de datos en este caso en CursosLibres.MDB. y click en el botón probar conexión para ver si se realizó bien y si la conexión es satisfactoria hay que hacer click en el botón aceptar.

PROPIEDADES DE VÍNCULO DE DATOS. (ficha de conexión)

En la barra de herramientas de la ventana de Data Enviorement hacer click en el botón agregar comando, y asignarle el nombre como CmCurso, luego click derecho sobre el comando seleccionar la opción propiedades. Y asegurarse de que quede así: Nombre de comando CmCurso, conexión CnCursosLibres.

Origen de datos: Objeto debase de datos = Tabla, Nombre de objeto = Curso, y después click en aceptar. Cm es el prefijo que se usará simepre.

Propiedades de CmdCurso.

A continuación seleccionar el comando CmCurso y arrastrarla al formulario correspondiente, y después agregar los controles en el mismo formulario que son: 3 marcos y 9 botones de comandos y las propiedades de cada uno de ellos.

EL DISEÑO DE LA INTERFAZ QUEDA ASÍ

El código es los siguiente:

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 CmdEditar_Click()

ModoEditar True

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 CmdGuardar_Click()

DeCursosLibres.rsCmCurso.Update

ModoEditar False

End Sub

Private Sub CmdNuevo_Click()

DeCursosLibres.rsCmCurso.AddNew

ModoEditar True

End Sub

Private Sub CmdPrimero_Click()

DeCursosLibres.rsCmCurso.MoveFirst

End Sub

Private Sub CmdSalir_Click()

Unload Me

End Sub

Private Sub CmdSiguiente_Click()

DeCursosLibres.rsCmCurso.MoveNext

If DeCursosLibres.rsCmCurso.EOF Then

DeCursosLibres.rsCmCurso.MoveLast

MsgBox "Estamos en el Ultimo Registro"

End If

End Sub

Private Sub CmdUltimo_Click()

DeCursosLibres.rsCmCurso.MoveLast

End Sub

Private Sub Form_Activate()

ModoEditar False

End Sub

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 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

APLICACIÓN 2

El primer paso es Ingresar bisual basic, selección de menú proyecto, seguidamente la opción Agregar Data Enviorement. La ventana Date Enviorement asignarle el nombre de DeCursosLibres y la conección por el nombre CnCursosLibres, click derecho sobre este último y conectarse con la base de datos CursosLibres.MDB, pobar conexión y si sla conexión es satisfactoria click en aceptar, después agregar un botón de comado con el nombre de CmConsultaCurso, click derecho y seleccionar la opción propiedades, click en la opción Instruccion SQL, ingresarle el código: Select CurCódigo As Código, CurNombre As Nombre, CurVacantes As Vacantes, CurProfe As Profesor From Curso, comprobar que el comando utiliza la conexión CnCursosLibres, click en aceptar, con el botón derecho del monsue arrastrar el comando CmConsultaCurso, y por último seleccionar la opción Cuadrícula de datos.

EL DISEÑO DE LA INTERFAZ QUEDA ASÍ

APLICACIÓN 3

Lo primero que debemos de hacer es ingresar al programa de bisual bsic, click en Agregar Data Enviorement y cambiar el nombre de Data Enviorement por DecursosLibres y la conección por CnCursosLibres.

En CnCursosLibres click secundario, seleccionar la opción proveedor, seguidamente click en Microsoft Jet 4.0 OLE DB Provider, click en siguiente y conectarse con la base de datos CursosLibres.MDB

probar conección, y si la la conección es es satisfactoria click en aceptar,

Click en aceptar

Y después agregar un comando y asignarle el nombre de CmConsultaProfe , seguidamente agregar otro comando con el nombre CmProfe, (en la la primera gráfica mostré)

Click derecho sobre CmConsultaProfe, seleccionar la opción General y asegurar que el nombre de comando sea CmConsultaProfe y la Conexión CnCursosLibres, el Objeto de base de datos se tabla y el nombre seleccionar cursos.

seleccionar la Instrucción SQL.

Y ingresar el código: Select CurCodigo As Codigo, CurNombre As Nombre, CurProfe As Profesor From Curso Where (CurProfe = ?) y aceptar.

click derecho sobre el comando CmProfe, asegurar que en en el nombre de comando aparezca CmProfe y en la conexión sea CnCursosLibres y ingresar el siguiente código: Select Distinct CurProfe From Curso aceptar.

Ydespues sigue la ubicación de los siguiente controles en el formulario

1 Control DataCombo

1 Control DataGrid

1Botón de Comando.

Form1

DataCombo1

DataGrid1

Comando1

CÓDIGO

Private Sub CmdBuscar_Click()

If DeCursosLibres.rsCmConsultaProfe.State = adStateOpen Then

DeCursosLibres.rsCmConsultaProfe.Close

End If

DeCursosLibres.CmConsultaProfe (DbcProfe.Text)

Set DbgrdCursos.DataSource = DeCursosLibres.rsCmConsultaProfe

End Sub

EL DISEÑO DE LA INTERFAZ QUEDA ASÍ

EDITOR DE MENÚS

Para esta aplicación primero se ingresó al programa de visual basic

seleccionar la opción herramientas y click en editor de menús, escribir en el caption el nombre queremos que aparezcan, ejemplo atchivo y en name escribir como prefijo umn seguido el nombre que escribimos en es este caso quedaría umnarchivo y par que las opciones aparezcan dentro de otras opciones hacer doble click en la flecha del lado derecho y establecer Shortcut a cada uno y darle haceptar ejemplo: Ctrl+A, Ctrl+G, etc.

La explicación anterior, el procedimiento sera similar a la gráfica siguiente:

Asignación del nombre del formulario, fuente y color, tamaño de letra.

LA GRÁFICA DEL EDITOR DE MENÚS QUEDARÁ DE LA SIGUIENTE FORMA: