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é)
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.
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
Nombre | FrmConsultaProfe |
Cption | Consulta de Profesores |
BorderStyle | 3-Fixed Dialog |
DataCombo1
Nombre | DbcProfe |
ListField | CurProfe |
RowMember | CmProfe |
RowSource | DeCursosLibres |
DataGrid1
Nmbre | DbgrdCursos |
Font | Arial (Negrita 10) |
HeadFont | Arial (Negrita 10) |
Comando1
Nombre | CmdBuscar |
Caption | &Buscar |
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:
