Problema, no me actualiza el valor en SQL

Question

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

Answer 1

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

Answer 2

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

Answer 3

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