none
Problema, no me actualiza el valor en SQL RRS feed

  • Pregunta

  • Amigos tengo esta consulta y por mas cambios que le hago no me actualiza el valor en mi base de datos... Algo en el codigo esta mal? tampoco me indica errores el modulo al ejecutarlo. 

    Les comparto mi código!

        Private Sub EstadoOnlineOFfline()
    
            Dim Conn As New SqlClient.SqlConnection(ConnectionString)
            Conn.Open()
            Dim ds As New DataSet
            Dim sql As String = " UPDATE Catalogo_Boliche SET Online='" & TxtProductoEnLinea.Text & "' where NREGUIST = " & TxtIDCatalogo.Text & ""
    
            Conn.Close()
            Conn = Nothing
    
    
            'MessageBox.Show("Estado actualizado")
        End Sub

    lunes, 20 de mayo de 2019 0:12

Respuestas

  • Tienes incompleto el código

    Using conn As New SqlConnection("Tu Conexion") Dim sql As String = "UPDATE TABLA SET CAMPO=@campo, where id=@id" Dim command As New SqlCommand(sql, conn) command.Parameters.AddWithValue("@id", ComboBox1.Text)

        command.Parameters.AddWithValue("@campo", TextBox2.Text) comand.ExecuteNonQuery() MessageBox.Show("Se Actualizo el Registro") End Using

    Sobre todo utiliza parámetros 


    Cristian Torres
    Blog Cristian Torres

    El Salvador - San Salvador


    lunes, 20 de mayo de 2019 3:42

Todas las respuestas

  • ademas tengo puesta esta condición, que al tener un cambio en el textbox se modifique el valor de TxtProductoEnLinea pero no actualiza nada.

        Private Sub TxtPartNumberCatalogo_TextChanged(sender As Object, e As EventArgs) Handles TxtPartNumberCatalogo.TextChanged
            CargarConsulta()
            If TxtIDPost.Text = "" And TxtPartNumberCatalogo.Text <> "" Then
                TxtProductoEnLinea.Text = "NO"
                EstadoOnlineOFfline()
            Else
                TxtProductoEnLinea.Text = "SI"
                EstadoOnlineOFfline()
            End If
    
        End Sub

    lunes, 20 de mayo de 2019 0:22
  • Hola Miguel:

    Así de entrada, te falta el cmd.executeNonQuery después de la instrucción sql.

    Por otro lado, podrías evitarte problemas, si utilizas parámetros en la sentencia.

    Un cordial saludo.

    Gemma

    • Propuesto como respuesta Carlos_Ruiz_M lunes, 20 de mayo de 2019 14:58
    lunes, 20 de mayo de 2019 1:15
  • Tienes incompleto el código

    Using conn As New SqlConnection("Tu Conexion") Dim sql As String = "UPDATE TABLA SET CAMPO=@campo, where id=@id" Dim command As New SqlCommand(sql, conn) command.Parameters.AddWithValue("@id", ComboBox1.Text)

        command.Parameters.AddWithValue("@campo", TextBox2.Text) comand.ExecuteNonQuery() MessageBox.Show("Se Actualizo el Registro") End Using

    Sobre todo utiliza parámetros 


    Cristian Torres
    Blog Cristian Torres

    El Salvador - San Salvador


    lunes, 20 de mayo de 2019 3:42