Update e Insert juntos en 1 boton

[mrprogman]

saludos a todos..tengo una duda. tengo 2 botones..uno para actualizar una bd y otro para generar un numero en una tabla , ambos afectan a tablas diferentes, se podra juntar a ambos en un solo boton..este es mi codigo..

boton 1
-------------------------------------------
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim cadtexto As String
Dim rg 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()

For i As Integer = 0 To contactsListBox.Items.Count - 1
'Aqui ya hacer la insercion en tu tabla
cadtexto = "update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox1.Text + " ' where oc= '" & contactsListBox.Items(i).ToString & "' "
myCommand = New SqlCommand(cadtexto, myConnection)
rg = myCommand.ExecuteNonQuery()
'myConnection.Close()

Next i
'myCommand = New SqlCommand(cadtexto, myConnection)
'rg = myCommand.ExecuteNonQuery()
myConnection.Close()
Server.Transfer("Pruebas4.aspx")

boton 2
--------------------------------------------

Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim cadtexto As String
Dim rg 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 = "Insert into Paquetesdos (numpaq) values ('" & TextBox2.Text & "')"
'sSQL = "Insert into tClientes (Nombre, Apellido, Pais, Ciudad) values ('" & Nombre.text & "', '" & Apellido.text & "', '" & Pais.text & "', '" & Ciudad.text & "')"

myCommand = New SqlCommand(cadtexto, myConnection)
rg = myCommand.ExecuteNonQuery()

'Label6.Text = rg
myConnection.Close()
Server.Transfer("Pruebas4.aspx")

[ramirezmario7]

Hola si haces las dos cosas consecutivas si se puede, antes seria mejor juntas ya que con una sola conexion a la bd puedes hacer las dos cosas y eso haria que el programa trabaje mejor porque el crear una conexion con la base de datos siempre consume recursos.

Prueba en un solo boton y utiliza la misma conexion.

Tambien puedes mirar si las dos operaciones la puedes realizar juntas en un procedimiento almacenado asi quedaria mucho mejor

[rikakashi]

Iniciado por mrprogman

saludos a todos..tengo una duda. tengo 2 botones..uno para actualizar una bd y otro para generar un numero en una tabla , ambos afectan a tablas diferentes, se podra juntar a ambos en un solo boton..este es mi codigo..

boton 1
-------------------------------------------

Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim cadtexto As String
Dim rg As Integer

'////CONEXION
myConnection = New SqlConnection("Data Source=DELLMR;Initial Catalog=Compras;Persist Security Info=True;User ID=sa;Password=Stm01;Connect Timeout=200 ")
myConnection.Open()

'/////PRIMERA FUNCION
For i As Integer = 0 To contactsListBox.Items.Count - 1
'Aqui ya hacer la insercion en tu tabla
cadtexto = "update ocfiltro Set Agencia = ' " + DropDownList1.Text + " ' ,Paquete = ' " + TextBox1.Text + " ' where oc= '" & contactsListBox.Items(i).ToString & "' "
myCommand = New SqlCommand(cadtexto, myConnection)
rg = myCommand.ExecuteNonQuery()
'myConnection.Close()

Next i
'myCommand = New SqlCommand(cadtexto, myConnection)
'rg = myCommand.ExecuteNonQuery()

'///// SEGUNDA FUNCION
cadtexto = "Insert into Paquetesdos (numpaq) values ('" & TextBox2.Text & "')"
'sSQL = "Insert into tClientes (Nombre, Apellido, Pais, Ciudad) values ('" & Nombre.text & "', '" & Apellido.text & "', '" & Pais.text & "', '" & Ciudad.text & "')"

myCommand = New SqlCommand(cadtexto, myConnection)
rg = myCommand.ExecuteNonQuery()

'Label6.Text = rg
myConnection.Close()
Server.Transfer("Pruebas4.aspx")

'/////// EN UN SOLO BOTON

[mrprogman]

Funciona...gracias..!!

[rikakashi]

Iniciado por mrprogman

Funciona...gracias..!!

y mi punto positivo?



Saludos!!

[Aquaventus]

Iniciado por rikakashi

y mi punto positivo?



Saludos!!

Punto positivo?? Yo pense que los usuarios aqui ayudaban desinteresadamente .

[rikakashi]

asi es Aquaventus me gusta ayudar y recivir ayuda solo fue un chesque de ahi el