TextBox no pasa valores a consulta SQL

[chino_black]

Hola amigos

Les cuento, cargo los datos de una consulta SQL a unos TextBox para actualizar posteriormente, pero al realizar el UPDATE los campos de los TexTbox no se modifican porque al pasar los datos del objDataSet a los TextBox, despues al cambiar el valor del TextBox no cambia. se queda con ese asignado anteriormente.

Tengo lo siguiente:

Código:

SQL = "SELECT * FROM tarea WHERE id = '" & tarea_id & " '"

objAdapter = New OleDbDataAdapter(SQL, objConexion)
objDataSet = New Data.DataSet
objAdapter.Fill(objDataSet)

' /-- Llena los TextBox del formulario para luego editarlos --/
 Me.text_id.Text = objDataSet.Tables(0).Rows(0)(0).ToString
 Me.text_nombre_tarea.Text = objDataSet.Tables(0).Rows(0)(1).ToString
 Me.text_fecha_inicio.Text = objDataSet.Tables(0).Rows(0)(2).ToString
 Me.text_feha_termino.Text = objDataSet.Tables(0).Rows(0)(3).ToString
 Me.text_fecha_fin.Text = objDataSet.Tables(0).Rows(0)(4).ToString
 Me.text_descripcion.Text = objDataSet.Tables(0).Rows(0)(5).ToString
 Me.text_nombre_proyecto.Text = objDataSet.Tables(0).Rows(0)(7).ToString
 Me.text_autor.Text = objDataSet.Tables(0).Rows(0)(8).ToString

' Así tengo el UPDATE
SQL = "UPDATE tarea set " &
"nombre = '" & text_nombre_tarea.Text & "'," &
"fecha_termino = '" & text_feha_termino.Text & "'," &
"descripcion = '" & text_descripcion.Text & "'," &
"estado = '" & drop_estado.SelectedValue.ToString & "'," &
"nombre_proyecto = '" & drop_nombre_proyecto.SelectedValue.ToString & "'," &
"usuario1_participante = '" & text_autor.Text & "'," &
"usuario2_participante = '" & drop_asignado.SelectedValue.ToString & "'" &
"WHERE id = '" & tarea_id & "'"

Pero no funciona, ademas cuando quiero guardar el valor seleccionado de mis DropDownList siempre guarda el primer valor del DropDownList.

Si me pudiera ayudar se los agracederia mucho.

Saludos.

[lucasiramos]

Hola Chino como andas? Fijate que en el Load de la página debes estar cambiando los valores a los textbox y dropdowns. Agregale un if not ispostback, o sea:

Código:

sub Page_Load(ByVal Sender as Object, _ByVal e as EventArgs)

if not IsPostBack then

      'Cargar los combos y textboxs

end if

Saludos!

[chino_black]

Iniciado por lucasiramos

Hola Chino como andas? Fijate que en el Load de la página debes estar cambiando los valores a los textbox y dropdowns. Agregale un if not ispostback, o sea:

Código:

sub Page_Load(ByVal Sender as Object, _ByVal e as EventArgs)

if not IsPostBack then

      'Cargar los combos y textboxs

end if

Saludos!

Muchas gracias, si sirvió.

Saludos.

[lucasiramos]

Barbaro, me alegro! Saludos!