Actualizar registros en VB.NET 2008

[manuelivg]

Saludos cordiales,


Tengo un código que siempre he usado para actualizar registros en VB.NET 2008, sin embargo, al intentar aplicarlo en nuevos desarrollos ya no me está funcionando, acudo a ustedes para solicitarles apoyo en este problema, el código que uso es el siguiente:


Dim con As New SqlConnection
Dim actualizar As String
Dim comando As New SqlCommand

con.ConnectionString = "Data Source=Servidor1;Initial Catalog=DB001;Persist Security Info=True;User ID=sa;Password=Trup4593*"

actualizar = "update VALE set RETORNO='" & TextBox6.Text() & "'"
actualizar &= ",RECORRIDO='" & TextBox10.Text() & "',REND='" & TextBox11.Text() & "' "
actualizar &= "where id='" & ComboBox1.Text & "'"


No encuentro que me pueda estar fallando, ahora, si alguien tiene alguna otra forma de generar la actualización de registro y me la puede proporcionar para realizar pruebas se lo agradeceré mucho.

Sin más por el momento me despido y estaré al pendiente de sus valiosos comentarios.

[cristiantorres]

Esa manera que lo estas haciendo no es la mejor siempre en tus consultas usa parametros.

Código vb.net:

Using conn As New SqlConnection("Data Source=Servidor1;Initial Catalog=DB001;Persist Security Info=True;User ID=sa;Password=Trup4593*")
        Dim sql As String = "UPDATE TABLA SET CAMPO1=@cam1, CAMPO2=@cam2, CAMPO3=@cam3 where id=@id"
 
    Dim command As New SqlCommand(sql, conn)
    command.Parameters.AddWithValue("@id", ComboBox1.Text)
    command.Parameters.AddWithValue("@CAMPO1", TextBox1.Text)
    command.Parameters.AddWithValue("@CAMPO2", TextBox2.Text)
    command.Parameters.AddWithValue("@CAMPO3", TextBox3.Text)
       comand.ExecuteNonQuery()
       MessageBox.Show("Se Actualizo el Registro")
        
End Using
 

Como vez de esta mejor el codigo queda mejor estructurado y es mas comprencible, donde dice CAMPO1, CAMPO2, CAMPO3 pondrás el nombre de los campos.

Y recuerde que la cadena de conexión este correcta.

[manuelivg]

Saludos nuevamente,

Fijate que probé la estructura que me enviaste pero me aparece un error, es el siguiente:

ExecuteNonQuery requiere una conexión abierta y disponible. El estado actual de la conexión es cerrada.

Esto ya cuando ejecuto.

[cristiantorres]

Iniciado por manuelivg

Saludos nuevamente,

Fijate que probé la estructura que me enviaste pero me aparece un error, es el siguiente:

ExecuteNonQuery requiere una conexión abierta y disponible. El estado actual de la conexión es cerrada.

Esto ya cuando ejecuto.

Tienes razón me falto hacerlo.

Código vb.net:

Using conn As New SqlConnection("Data Source=Servidor1;Initial Catalog=DB001;Persist Security Info=True;User ID=sa;Password=Trup4593*")
            Dim sql As String = "UPDATE TABLA SET CAMPO1=@cam1, CAMPO2=@cam2, CAMPO3=@cam3 where id=@id"
        conn.Open() 'esto es lo que tienes que agregar
        Dim command As New SqlCommand(sql, conn)
        command.Parameters.AddWithValue("@id", ComboBox1.Text)
        command.Parameters.AddWithValue("@CAMPO1", TextBox1.Text)
        command.Parameters.AddWithValue("@CAMPO2", TextBox2.Text)
        command.Parameters.AddWithValue("@CAMPO3", TextBox3.Text)
        comand.ExecuteNonQuery()
        MessageBox.Show("Se Actualizo el Registro")
           
    End Using