none
Alerta de Dato Bloqueado o Cancelado RRS feed

  • Pregunta

  • Public Sub BloquearMaterial()
        
    
            
    
            Dim consulta As String = "Select IdMaterial, Codigo,Descripcion,IdEstado
    From TablaMaterial   Where IdEstado = 3"
            Dim command As New SqlCommand(consulta, conex)
            Dim drd As SqlDataReader
           ()
            conex.Open()
            drd = command.ExecuteReader()
            Try
                If drd.Read  Then
                    MsgBox("Dato Bloqueado")
                Else
                    MsgBox("Dato Correcto")
                End If
                conex.Close()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            drd.Close()
            conex.Close()
    
    
        End Sub

    La function la cargo en el Load , cuando un usuario quiera ver el dato le salte la alerta de Dato Bloqueado , o correcto segun el Id del Estado

    1-Activo

    2-Cancelado

    3-Bloqueado

    Esto son los datos que considero, Pero no me sale lo que deseo , si no al contrario siempre que abro el dato todos los datos salen bloqueados, espero puedan ayudarme . Les muestro parte del codigo

    martes, 13 de agosto de 2019 0:19

Todas las respuestas

  • Hola Dawin; por lo que veo buscas siempre el IdEstado = 3 por lo que tú indicas,  el resultado será siempre "Bloqueado" A mi entender debería buscar al dato mediante el ID o nombre de columna  y el valor y  el resultado de esta consulta debería ser el valor de IDEstado.  Según interpreto tu código debería ser Select IDEstado FROM TablaMaterial WHERE (aquí el ID o la comlumna a buscar ej: IDMaterial = "Cemento")

    Es lo que interpreto de tu código

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗


    • Editado Marcelo PF martes, 13 de agosto de 2019 4:29
    martes, 13 de agosto de 2019 4:08
  • Me sigue hacienda lo mismo , sera que la problematica se encuentra en que cargo la function en el Load?
    martes, 13 de agosto de 2019 13:59
  • Hola Darwin, si calro, es que el text de consulta, si lo cargas en el load no toma el valor, deberías cargarlo, si es que tienes un valor determinado en el tex_consulta.Text, en el evento show del Form

    Igaulemten comprueba tú este modo

      Dim consulta As String = "SELECT IDEstado FROM TablaMaterial  WHERE IDMaterial=@Mat"
            Dim command As New SqlCommand(consulta, conex)
            Dim drd As SqlDataReader
            conex.Open()
            Dim Dato As String = ""
            command.Parameters.AddWithValue("@Mat", tex_consulta.Text)
            drd = command.ExecuteReader()
    
            Try
    
                While drd.Read()
                    Dato = drd("IDEstado").ToString
                    Select Case Dato
                        Case "1"
                            MessageBox.Show("Dato Activo")
                        Case "2"
                            MessageBox.Show("Dato Cancelado")
                        Case "3"
                            MessageBox.Show("Dato Bloqueado")
                        Case Else
                            MessageBox.Show("Materiál no encotrado")
                            conex.Close()
                            Exit Sub
    
    
                    End Select
                End While
            Catch ex As Exception
                MessageBox.Show(e.ToString)
            End Try
    
    
            conex.Close()

    Corrige a tu escenario, se coloca un parámetro para evaluar es estado de "Idmaterial" si el estado es 1 tal si es 2 tal...

    Comprueba y me dices


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗


    • Editado Marcelo PF martes, 13 de agosto de 2019 14:10
    martes, 13 de agosto de 2019 14:09
  • Para sacarte la duda coloca el código en un button para comprobarlo

    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    martes, 13 de agosto de 2019 14:19
  • Lo colocare en un boton , pero lo que deseo es que salte la alerta , sin que el usuario tenga que realizer una accion , tal como accionar un boton,

    SALUDOS Grcia spor tu tiempo

    martes, 13 de agosto de 2019 14:55
  • Acabo de comprobar lo del boton , codigo funciona correctamete , Solo me queda la duda de como realizer la accion sin que el usuario accione el boton
    martes, 13 de agosto de 2019 15:00
  • Edito; bueno al caso deberíamos saber más acerca de tu código, de que manera actua, o sea lo que se abre es un form2? en tal caso el tex_Consulta de donde saca su valor? Antes de que abra el from deberias colocar la función

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗



    • Editado Marcelo PF martes, 13 de agosto de 2019 15:13
    martes, 13 de agosto de 2019 15:10
  • Ya quedo solucionado , era una conexion que cerraba sin necesidad. Muchas gracias por tu tiempo Saludos
    martes, 13 de agosto de 2019 15:36