Curso gratis de Visual Basic tratamiento de errores - programación en Microsoft Visual Basic

Curso gratis visual basic

Curso de Visual Basic facil

Otros

Curso guitarra

Negocios en Internet

Curso Biblia

Curso de Access

Curso de reparación en PC

Curso de Linux

Introducción a redes

Seguime en
Red social en google+ plus Red social en Facebook

Curso gratis de Visual Basic Base de datos asistente, evento validate, reposition y variables en programación

 

25. Base de datos asistente y ejemplo

Ahora que ha aprendido a ser una base de datos con los objetos y códigos correspondientes, le comentaré la existencia de un asistente:

Barra de menú complementos, administrador de complementos, Vb Data form wizard, cargar. Ahora este asistente aparecerá en el menú Complementos. Actívelo. Aparecerá una nueva ventana que se llama Asistente para formulario de datos:

  

  • En perfil pulse en Siguiente ya que el predeterminado le irá bien.

  • En formato de dato seleccione Access de ser este.

  • En nombre de base de datos, deberá seleccionar la base de datos que halla realizado.

  • Póngale un nombre al formulario y seleccione en la parte de abajo un estilo.

  • En origen de registro, seleccione el nombre que le puso, abajo agregue los campos que se incluirán en la aplicación.

  • Seleccione los botones que se  -curso dado en estudiargratis.com.ar- incluirán.

  • Una vez que ya se ha terminado con el asistente ir a  proyecto, propiedades de proyecto, y en la solapa general, como principal seleccione lo que ha hecho en el asistente.

  • Esta es una forma de realizar una aplicación de base de datos de forma muy sencilla.

 

Vamos a seguir viendo un poco de código para que no dependa de un asistente para realizar algo.

Validate: Evento que se puede agregar al control data.

Utilice el evento Validate para comprobar los datos, antes de guardar un registro en la base de datos. Este evento se produce justo antes de que Visual Basic escriba en la base de datos, los cambios procedentes de los controles enlazados y de que vuelva a colocar el puntero del registro actual en otro registro de la base de datos.

Private Sub Data1_Validate (index As Integer, action As Integer, save As Integer)

 

Donde:

El argumento action: Es la operación que provoca que se ejecute este evento, el cual puede ser llamado por: MoveFirst, MovePrevious, MoveNext, MoveLast, AddNew, Update, Delete, Find, cerrar la base de datos, descargar el formulario.

 

 Salve: es para salvar o no, irá true o false.

Ejemplo:

Private Sub Data1_Validate (Action As Integer, Save As Integer)

           Dim iResponse As Integer (variables para msgbox)

           If Save = True Then

                           iResponse = MsgBox ("Guardar cambios?", vbYesNo)

                           If iResponse = vbNo Then

                                           Save = False

                                           Data1.UpdateControls ' Actualiza campos.

                           End If

           End If

End Sub

 

 

Notas si usamos guardar "UpdateRecord" se guardará de una, si usamos este código preguntará.

 

Reposition: Utilice el evento Reposition para modificar la apariencia de un formulario o realizar una acción necesaria cuando se desplace a un nuevo registro.

Ejemplo tonto de reposition en data:

Private Sub Data1_reposition()

 Data1.Caption = "para adelante +1 atras -1:" & _

            Data1.Recordset.AbsolutePosition + 1

End Sub

 

Nota:

Las variables se las puede declarar con los siguientes signos:

Dim unNumero               %
Dim unNumeroLargo      &
Dim otroNumero             !
Dim masNumeros          #
Dim unNombre               $

Error: Acá hay un ejemplo sacado de mastering para tratamiento de error al avanzar a un nuevo registro, habiendo duplicado el ide en caso de realizar una base en la que no se lo pueda duplicar:

 

Private Sub Data1_Error(DataErr As Integer, Response As Integer)

           If DataErr = 3022 Then 'Error de clave duplicada

                           MsgBox "Escriba un número de Id. de empleado único"

                           txtEmpID.SetFocus

                           Response = 0

           Else

                           Response = 1 'muestra el mensaje de error estándar

           End If

End Sub

 

 

[Educación arte cultura entretenimientos y cursos gratis] > [Curso de Visual Basic]

 

Búsqueda personalizada
 

Autor y Webmaster: Javier R. Cinacchi - Aclaraciones legales y política de privacidad
(Prohibida la reproducción parcial o total  del contenido de esta Web sin el consentimiento escrito del autor. Puede poner un link a esta pagina.)

Te encuentras en un texto de la sección Curso gratis de Visual Basic en www.estudiargratis.com.ar

Página principal: Cursos gratis, juegos lecturas y más!