Descargar para leer sin conexión
Subido porAnayenzi Perez Mena
Carpeta digital agustin anayenzi
Este documento presenta código para realizar consultas y grabaciones en una base de datos. Se incluye código para buscar registros coincidentes con un valor de entrada y mostrar los datos encontrados o un mensaje si no hay coincidencias. También se muestra código para grabar cambios en la base de datos y deshabilitar los campos después de grabar. El documento concluye que se tuvo dificultad inicialmente con el código pero que ahora funciona correctamente.
Carpeta digital agustin anayenzi
- 1. Conalep zacualpan 101 Anayenzi Perez Mena 03/05/2014 AgustinHernandez Delgado Equipo-2 CODREP
- 2. Anayenzi Pérez Mena---606 Hola profesor Buen día me encuentro en este momento siendo las 10:57 del mes del día 3 de mayo del presente año realizando0 y este es mi formulario con lo solicitado por usted.
- 3. Anayenzi Pérez Mena---606 A continuación le mostrare el código para la búsqueda de registros que se encuentran en esta base de datos AL BOTON de buscar yo lo llamo consultas!! Bueno primero que nada si el registro no se encuentra mi base de datos! Nos mandara un mensaje “Esta tabla se encuentra vacia”. REM consultas Dim i As Integer Dim n As Integer n = ALTASBindingSource.Count() Dim bandera As Boolean bandera = True Dim tamaño As Integer tamaño = ALTASBindingSource.Count() i = 1 If (tamaño = 0) Then MsgBox("tabla vacia") Else Do If (Trim(MATRICULATextBox.Text) = Trim(TextBox1.Text)) Then bandera = False Else ALTASBindingSource.MoveNext() i = i + 1
- 4. Anayenzi Pérez Mena---606 EndIf Loop While (bandera = True And i <= tamaño) End If If (bandera = True) Then ID_ALTATextBox.Visible = False ID_ALTATextBox.Enabled = False MATRICULATextBox.Visible = False MATRICULATextBox.Enabled = False NOMBRETextBox.Visible = False NOMBRETextBox.Enabled = False APELLIDOTextBox.Visible = False APELLIDOTextBox.Enabled = False ESPECIALIDADTextBox.Visible = False ESPECIALIDADTextBox.Enabled = False GRUPOTextBox.Visible = False GRUPOTextBox.Enabled = False TURNOTextBox.Visible = False TURNOTextBox.Enabled = False MsgBox("Esta tabla se encuentra vacia") Else ID_ALTATextBox.Enabled = False ID_ALTATextBox.Visible = True MATRICULATextBox.Enabled = False MATRICULATextBox.Visible = True NOMBRETextBox.Enabled = False NOMBRETextBox.Visible = True APELLIDOTextBox.Enabled = False APELLIDOTextBox.Visible = True ESPECIALIDADTextBox.Enabled = False ESPECIALIDADTextBox.Visible = True GRUPOTextBox.Enabled = False GRUPOTextBox.Visible = True TURNOTextBox.Enabled = False TURNOTextBox.Visible = True End If End Sub
- 5. Anayenzi Pérez Mena---606 Encaso contrario mostrara los datos que se encuentran en la base de datos. Este es el codigo de grabar Yo lo llamo GRABANDO AHORA If (CODREP_________________________________DataSet.HasChanges) Then Me.Validate() Me.ALTASBindingSource.EndEdit() Me.ALTASTableAdapter.Update(Me.BaseCODREP_________________________________Dat aSet.ALTAS) MsgBox("grabando ahora") MATRICULATextBox.Enabled = False NOMBRETextBox.Enabled = False APELLIDOTextBox.Enabled = False ESPECIALIDADTextBox.Enabled = False GRUPOTextBox.Enabled = False TURNOTextBox.Enabled = False End If End Sub
- 6. Anayenzi Pérez Mena---606 Piensoque este es el código mas pequeño y sencillo y lo utilize para el botón de salir End CONCLUSION:TUVE CIERTA DIFICULTAD EN EL CODIGO EN EL MOMENTO DE EJECUTRALO BIEN AHORA LE COMENTO QUE ME TRAVE MUCHO EN EL MOMENTO EN EL QUE SE REALIZABA LA BUSQUEDA PERO AQUÍ LE PRESENTO MIS EVIDENCIAS.