actualizar varios textbox al mismo tiempo

[mrprogman]

alguien sabe como puedo actualizar varios texbox al mismo tiempo..tengo el sig codigo..


me gustaria evitar todo este codigo..
Dim cadtexto As String
Dim cadtexto2 As String
Dim cadtexto3 As String
Dim cadtexto4 As String
Dim cadtexto5 As String
Dim rg As Integer
Dim rg1 As Integer
Dim rg2 As Integer
Dim rg3 As Integer
Dim rg4 As Integer
myConnection = New SqlConnection("Data Source=DELLMR;Initial Catalog=Compras;Persist Security Info=True;User ID=sa;Password=Stm01;Connect Timeout=200 ")

myConnection.Open()
cadtexto = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox3.Text.Trim & " ' "
cadtexto2 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox4.Text.Trim & " ' "
cadtexto3 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox5.Text.Trim & " ' "
cadtexto4 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox6.Text.Trim & " ' "
cadtexto5 = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & TextBox7.Text.Trim & " ' "
myCommand = New SqlCommand(cadtexto, myConnection)
myCommand = New SqlCommand(cadtexto2, myConnection)
myCommand = New SqlCommand(cadtexto3, myConnection)
myCommand = New SqlCommand(cadtexto4, myConnection)
myCommand = New SqlCommand(cadtexto5, myConnection)
rg = myCommand.ExecuteNonQuery()
rg1 = myCommand.ExecuteNonQuery()
rg2 = myCommand.ExecuteNonQuery()
rg3 = myCommand.ExecuteNonQuery()
rg4 = myCommand.ExecuteNonQuery()

los campos q necesito actualizar son del texbox3 al textbox7...saludos y gracias

[Korreca]

Lo primero, mejor utilizar arrais que declarar tanta variable terminada en número, mas limpio todo.

Lo segundo, cada vez que haces "myCommand = New SqlCommand(cadtexto, myConnection)" estás haciendo un nuevo comando, con lo cual los que hiciste antes se descartan, solo te vale el último.

Prueba con esto:

myConnection = New SqlConnection("Data Source=DELLMR;Initial Catalog=Compras;Persist Security Info=True;User ID=sa;Password=Stm01;Connect Timeout=200 ")
myCommand = New SqlCommand
myCommand.Connection = myConnection
Dim txt(4) as string = {Trim(TextBox3.text), Trim(TextBox4.text), Trim(TextBox5.text), Trim(TextBox6.text), Trim(TextBox7.text)}
myConnection.Open()
for i = 0 to txt.GetUpperBound(0)
myCommand.CommandText = "Update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox2.Text + " ' where oc ='" & txt(i) & " ' "
myCommand.ExecuteNonQuery()
next
myConnection.Close()