none
PROBLEMA CON EL BOTÓN BUSCAR RRS feed

  • Pregunta

  • buenas, 

    tengo un problema con el botón BUSCAR de mi base de datos, resulta que trabaja muy bien hasta que ingreso he intento buscar un numero de cédula que no existe en la base de datos, y se me bloquea la aplicación. quisiera que me apareciera un mensaje o una advertencia donde me diga que la cédula no se encuentra y me deje corregirla en el textbox donde ingreso el numero. 

    este es el código que tengo y funciona muy bien para buscar datos existentes en la base de datos :

    Private Sub BOTON_BUSCAR_USUARIO_2_Click(sender As System.Object, e As System.EventArgs) Handles BOTON_BUSCAR_USUARIO_2.Click


                Me.INFORMACIONPERSONALBindingSource.Filter = "CEDULANIT = '" & Me.TEXTO_BUSCAR_USUARIO.Text & "'"


        End Sub

    cuando CEDULANIT no sea igual al texto ingresado en TEXTO_BUSCAR_USUARIO  me aparezca un mensaje de advertencia y me permita corregirlo

    espero me allan entendido y gracias de antemano por la ayuda.


    julian jaramillo

    lunes, 15 de octubre de 2012 22:30

Todas las respuestas

  • ya encontré la solución después de mucho intentar, la pongo pues a alguien mas le puede servir,

    ''''''''este es el codigo del boton''''''''''''''''''

    Private Sub BOTON_BUSCAR_USUARIO_Click(sender As System.Object, e As System.EventArgs) Handles BOTON_BUSCAR_USUARIO_.Click

    '''''con este código valido que el textbox no este vacío '''''''''''''''''''
            If Len(Trim(TEXTO_BUSCAR_USUARIO.Text)) <= 0 Then

                MsgBox("El campo esta vacio")
                Exit Sub

            End If


    '''''''''con este codigo hago la comparación de los campos de mi base de datos y el textbox para que muestre la información si existe en la base de datos'''''''''''
            Me.INFORMACIONPERSONALBindingSource.Filter = "CEDULANIT = '" & Me.TEXTO_BUSCAR_USUARIO.Text & "'"


     '''''''''''con este codigo valido que el usuario no este en la base de datos y me permita corregirlo o cambiarlo'''''''''''''''''''''
            If String.IsNullOrEmpty(Me.TEXTO_CEDULANIT.Text) Then

                MsgBox("el usuario no se encuentra en la base de datos")
                TEXTO_BUSCAR_USUARIO.Focus()
                Return

            End If

    gracias por la ayuda y espero le sirva a alguien mas 


    julian jaramillo

    martes, 16 de octubre de 2012 2:03