Quinta sesión En esta sesión aprenderá a generar bases de datos con VB, utilizando los controles de VB y a su vez el código que permite el acceso a las diferentes bases de datos que existen en el mercado, tales como Access, dBASE, FoxPro, Paradox, Informix, Oracle, DB2, entre otras. Sistema para el Control de Calificaciones Estructura de la base de datos
Analiza y teclea el siguiente código. Private Sub cmd_borrar_Click() On Error GoTo eelim If MsgBox("DESEAS ELIMINAR EL ALUMNO", vbQuestion + vbYesNo, txt_tit.Text) = vbYes Then rstcar.Delete End If On Error GoTo 0 eelim: nerror (Err.Number) End Sub Private Sub cmd_buscar_Click() Dim wbusca As String * 50 Dim mes, tit mes = "ALUMNO A BUSCAR:" tit = "BUSQUEDA RAPIDA DE ALUMNOS" wbusca = InputBox(mes, tit) With rstcar last = .Bookmark .Seek "=", wbusca If .NoMatch Then .Bookmark = last MsgBox "ESTE ALUMNO NO EXISTE" End If End With End Sub Private Sub cmd_cancela_Click() On Error GoTo ecanc rstcar.CancelUpdate On Error GoTo 0 cmd_nuevo.Enabled = True cmd_grabar.Enabled = True cmd_borrar.Enabled = True cmd_buscar.Enabled = True cmd_editar.Enabled = True ecanc: nerror (Err.Number) End Sub Private Sub cmd_editar_Click() On Error GoTo eedit rstcar.Edit On Error GoTo 0 cmd_nuevo.Enabled = False cmd_grabar.Enabled = False cmd_buscar.Enabled = False
cmd_editar.Enabled = False eedit: nerror (Err.Number) End Sub Private Sub cmd_grabar_Click() On Error GoTo egrab rstcar.Update On Error GoTo 0 cmd_nuevo.Enabled = True cmd_grabar.Enabled = True cmd_borrar.Enabled = True cmd_buscar.Enabled = True cmd_editar.Enabled = True egrab: nerror (Err.Number) End Sub Private Sub cmd_nuevo_Click() On Error GoTo enuevo rstcar.AddNew txt_area.SetFocus On Error GoTo 0 cmd_nuevo.Enabled = False cmd_borrar.Enabled = False cmd_buscar.Enabled = False cmd_editar.Enabled = False enuevo: nerror (Err.Number) End Sub Private Sub Form_Unload(Cancel As Integer) rstcar.Close End Sub Public Sub nerror(nerr As Integer) Select Case nerr Case 0 'no se han realizado cambios Case 3251 MsgBox "!!! OPERACION NO VALIDA PARA EL SISTEMA ¡¡¡" Case 3058 MsgBox "!!! ESTAS DEJANDO UN CAMPO SIN VALOR ¡¡¡" Case 3022 MsgBox "!!! ESTAS INGRESANDO UN REGISTRO REPETIDO ¡¡¡" End Select End Sub
Propuesta para los demás formularios
•
Se le comunica a los participantes del curso que el ultimo día para cubrir el costo total de este es el 6 de nov. de 1999
Option Explicit Private last As String Dim dbscar As Database Dim rstcar As Recordset Dim fecha Private Sub Form_Load() Set dbscar = OpenDatabase("c:\ejemplo mdb\escuela.mdb") Set rstcar = dbscar.OpenRecordset("alumno", dbOpenTable) Set dat_car.Recordset = rstcar rstcar.Index = "index1" 'fecha con cuatro digitos fecha = Date fecha = Format(fecha, "dd/mm/yyyy") With form_alumno Height = 4500 Left = 3375 Width = 8370 End With End Sub