Hola a todos, lo que quiero hacer es actualizar un registro de mi Base de Datos, pero no me deja, espero me ayuden a encontrar una solucion, la implementacion de mi codigo es esta:
Public Sub actualizainfo()
Dim Conecta As New SqlClient.SqlConnection("data source=148.226.3.25;initial catalog=UVVirtual;persist security info=False;")
Try
Conecta.Open()
Dim v1 = DropDownList1.SelectedItem.Value
Dim v2 = DropDownList2.SelectedItem.Value
Dim v3 = DropDownList3.SelectedItem.Value
Dim v4 = DropDownList4.SelectedItem.Value
Dim v5 = DropDownList5.SelectedItem.Value
Dim v6 = DropDownList6.SelectedItem.Value
Dim v7 = DropDownList7.SelectedItem.Value
Dim v8 = DropDownList8.SelectedItem.Value
Dim v9 = DropDownList9.SelectedItem.Value
Dim v10 = DropDownList10.SelectedItem.Value
Dim v11 = DropDownList11.SelectedItem.Value
Dim v12 = DropDownList12.SelectedItem.Value
Dim consulta = "update mibd set razon = '" + RTrim(TextBox1.Text) + "', rfc = '" + RTrim(rfc01.Text) + "', dom_rzn = '" + RTrim(calle.Text) + "', col_rzn = '" + RTrim(TextBox4.Text) + "', cp_rzn = '" + RTrim(TextBox5.Text) + "', ciudad3 = '" + RTrim(TextBox6.Text) + "', edo_rzn = '" + RTrim(TextBox7.Text) + "', pais_rzn = '" + v1 + "', concepto = '" + RTrim(TextBox8.Text) + "', nom_fact = '" + RTrim(TextBox9.Text) + "', fenvio = '" + TextBox10.Text + "', form_ins = '" + v2 + "', curric = '" + v3 + "', cartamotiv = '" + v4 + "', copiacomp = '" + v5 + "', copiacta = '" + v6 + "', fotos = '" + v7 + "', cartajefe = '" + v8 + "', pago1 = '" + v9 + "', pago2 = '" + v10 + "', pago3 = '" + v11 + "', pago4 = '" + v12 + "' where login = '" + session("sesion") + "'"
Dim comando As New SqlClient.SqlCommand(consulta, Conecta)
comando.ExecuteNonQuery()
Label1.Text = "El registro se ha actualizado"
Catch ex As Exception
Label1.Text = ex.Message
Finally
Conecta.Close()
End Try
End Sub
