Acutalizacion fallida visual basic

[acse]

Hola a todos una vez mas acudo a ustedes para que me ayuden con este pequeño fragmento de codigo ya que no actuliza nada.

y el mensaje que me muestra es el siguiente:

cmd.ExecuteNonQuery() se requiere una coneccion abierta y disponible.El estado actual es cerrado.

Espero su ayuda...

Código PHP:

  Dim cnn As New SqlConnection
        Dim cmd As New SqlCommand
 
        cnn.ConnectionString = Me.conn.ConnectionString
        
        cnn = New SqlConnection 
cnn.Open()
 
        cmd = cnn.CreateCommand()
 
        cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CC'"
        cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CB'"
        cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CA'"
 
        Me.RichTextBox1.Text = " Facturas Canceladas en Ok."
 
 
        cmd.ExecuteNonQuery()
 
        cnn.Close()
        cnn.Dispose()
 
 
    End Sub 
   

y aqui es combro abro la coneccion

Código PHP:

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 
                Cambiar conexion a base de datos 
        conn.ConnectionString = "Data Source=TCP:5.244.194.132\PUNTADELCIELO,1433;Initial Catalog = 2011VT; Persist Security Info=True; User ID=xxxxxx; Password=xxxxxxxxx"
 
        actualizaGrid()
 
    End Sub 
   

[JBalde]

Fijate que cuando declaras la conexion, haces un new connection, luego le asignas la cadena de conexión y acto seguido le vuelves a hacer un new, por lo que machacas los valores de la cadena de conexión y por tanto te conectas a ninguna parte. Prueba algo así:

Código PHP:

  Dim cnn As New SqlConnection 
        Dim cmd As New SqlCommand 
 
        cnn.ConnectionString = Me.conn.ConnectionString 
        cnn.Open() 
 
        cmd = cnn.CreateCommand() 
 
        'cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CC'" 
        'cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CB'" 
        cmd.CommandText = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CA'" 
 
        Me.RichTextBox1.Text = " Facturas Canceladas en Ok." 
 
 
        cmd.ExecuteNonQuery() 
 
        cnn.Close() 
        cnn.Dispose() 
 
 
    End Sub 
   

[acse]

Hola jBalde fijate si era ese el problema pero aun asi no realiza el update del cmd.CommandText

no se por que???.......Si ejecuto en sql el update funciona pero no dentro de la funcion.

[acse]

asi es como quedo pero aun asi no se ejecuta el update

Código PHP:

  Public Sub okcancelar()
 
        Dim cnn As New SqlConnection
        Dim cmd As New SqlCommand
        cnn.ConnectionString = Me.conn.ConnectionString
        cnn.Open()
        cmd = cnn.CreateCommand()
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CC'")
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CB'")
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CA'")
 
        MessageBox.Show("No Actualizas")
 
        Me.RichTextBox1.Text = " Facturas Canceladas en Ok."
        cmd.ExecuteNonQuery()
        cnn.Close()
        cnn.Dispose()
    End Sub 
   

[Aquaventus]

Hola acse lo que te falta es enlazar tu SqlCommand con la conexion :

Código vb.net:

Public Sub okcancelar() 
 
        Dim cnn As New SqlConnection 
        Dim cmd As New SqlCommand 
        cnn.ConnectionString = Me.conn.ConnectionString 
 
        'TE FALTA ENLAZAR CON LA CONEXION
        cmd.Connection = cnn
 
        cnn.Open() 
        'cmd = cnn.CreateCommand() 
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CC'") 
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CB'") 
        cmd.CommandText = ("UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CA'") 
 
        MessageBox.Show("No Actualizas") 
 
        Me.RichTextBox1.Text = " Facturas Canceladas en Ok." 
        cmd.ExecuteNonQuery() 
        cnn.Close() 
        cnn.Dispose() 
    End Sub
 

Saludos!.

[Aquaventus]

Aunque simplificando podrias hacer esto :

Código vb.net:

Public Sub okcancelar() 
 
        Dim cnn As New SqlConnection 
 
        cnn.ConnectionString = Me.conn.ConnectionString 
 
        Dim query As String = "UPDATE c_albven SET libre_1 = 'Ok.' WHERE letra = 'CC' or letra = 'CB' or letra = 'CA'"
 
        Dim cmd As New SqlCommand(query,cnn)
 
        cnn.Open() 
 
        MessageBox.Show("No Actualizas") 
 
        Me.RichTextBox1.Text = " Facturas Canceladas en Ok." 
        cmd.ExecuteNonQuery() 
        cnn.Close() 
        cnn.Dispose() 
End Sub
 

[acse]

Muchas gracias a todos por su apaortaciasn y sobre todo a ti "Aquaventus"

Estare por este foro muy Constante mente jejejeje.....

[ramirezmario7]

Hola.
con esta instrucción
Me.RichTextBox1.Text = " Facturas Canceladas en Ok."
Estas mandando ese mensaje si hace o no el update

porque no agregas una variable de tipo int para saber si se hizo el update
asi:

int actualiza = cmd.ExecuteNonQuery() ;
if(actualiza > 0)
RichTextBox1.Text = " Facturas Canceladas en Ok." ;
else
RichTextBox1.Text = " Facturas no Canceladas" ;

el codigo te lo pongo en c#