Teniendo archivos en Microsoft Access, lo pasamos en formato 2000 para poder trabajar con Visual Basic 6.0
Para comenzar, primero debemos hacer la conexión de la base de datos a Visual Basic.
Abrimos en la barra de menú Proyecto demos clic en la opción Agregar Data Environment para poder crear una nueva conexión para la que debe establecer propiedades.
En esta ventana cambie el nombre del objeto DataEnvironment por DeCursosLibres y el de la conexión , por CnCursosLibres, como se muestra en la siguiente imagen.
Luego continue haciendo click derecho en CnCursosLibres y en Propiedades. Se presenta el siguiente cuadro para después en la ficha proveedor del dialogo y seleccione Microsoft Jet 4.0 OLE DB Provider y click en el botón siguiente.
En la ventana busque la base de datos CursosLibres.MDB y haga click en Probar Conexión. Si la conexión es satisfactoria haga click en Aceptar.
Vuelva en la ventana Data Environment haciendo click derecho en CnCursosLibres y agregue un comando para luego seleccionar propiedade.
En origen de datos, busque la tabla luego en Nombre de Objeto seleccione el nombre de la tabla realizada en la base de datos Access “Curso”, por ultimo de click en Aceptar.
Seleccione el comando CmCurso y arrástrelo hacia el formulario.
A continuación edite la interfaz y agregue los siguientes controles al formulario.
3 Marcos (Frame)
9 Botones de Comandos (Command Button)
La interfaz sera similar a la siguiente:
Luego cambien el codigo a cada control como lo muestra el siguiente ejemplo:
| 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 | |
| Nombre | TxtCurVacantes | |
| Locked | True | |
| Text | | |
| TxtCurProfe | ||
| Nombre | TxtCurProfe | |
| Locked | True | |
| Text | | |
| Command1 | ||
| Nombre | CmdPrimero | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command2 | ||
| Nombre | CmdAnterior | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command3 | ||
| Nombre | CmdSiguiente | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command4 | ||
| Nombre | CmdUltimo | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command5 | ||
| Nombre | CmdNuevo | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command6 | ||
| Nombre | CmdEditar | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical |
| Command7 | ||
| Nombre | CmdGuardar | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command8 | ||
| Nombre | CmdEliminar | |
| Caption | | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical | |
| Command9 | ||
| Nombre | CmdSalir | |
| Caption | &Salir | |
| Pinture | Ubicación de iconos… | |
| Style | 1-Graphical |
Luego a los comando ingrese el siguiente codigo:
Private Sub CmdAnterior_Click(Index As Integer)
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
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 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_Active()
ModoEditar False
End Sub
Private Sub ModoEditar(ByVal Ok As Boolean)
txtCurCodigo.Locked = False: txtCurNombre.Locked = False
txtCurVacantes.Locked = False: txtCurProfe.Locked = False
CmdNuevo.Enabled = True: CmdEliminar.Enabled = False
CmdPrimero.SetFocus: If Ok Then txtCurCodigo.SetFocus
End Sub
Private Sub CmdSiguiente_Click(Index As Integer)
DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
MsgBox "Estamos en el último registro"
End If
End Sub
Private Sub CmdUltimo_Click(Index As Integer)
DeCursosLibres.rsCmCurso.MoveLast
End Sub
Listo su conexion ya esta..
No hay comentarios:
Publicar un comentario