poner valores en textarea

[odilon]

Hola que tal soy completamente nuevo en ASPX, tengo un formulario que debe de recibir la información de una base de datos para poder ser editada.
Se que en el archivo aspx.vb declaro mis variables y lo que hago con la base y de ahi debo de pasar el valor de la consulta a el textarea.

ejemplo de mi consulta

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SQL_Sicoss = New SqlClient.SqlConnection(Session("ConnectionNET"))
Dim SQLA_Documento As New SqlClient.SqlDataAdapter("Select * From Documento Where Documento_ID = @DocID", SQL_Sicoss)
Dim dbDoc As New DataSet

DOCID = al id del documento a editar.



If DocID < 0 Then
textarea.Content = (" <br /> " _
& " <br /> " _
& " &nbsp; <br /> " _
& " <div style=""text-align: center""><span style=""font-weight: bold"" class=""style2"">*** Elabore su Documento aquí ***</span></div> ")

txt_Titulo.Visible = True
txt_descripcion.Visible = True
Else
EN ESTA LINEA DEBERIA DE PONER LA INSTRUCCION PARA EL VALOR DEL TEXTAREA
txt_Titulo.Visible = False
txt_descripcion.Visible = False
End If

[Fann_Lavigne]

No veo en que parte de tu consultas se guarde en el dataset, o haria algo asi:

Código VB:

SQL_Sicoss = New SqlClient.SqlConnection(Session("ConnectionNET"))
Dim SQLA_Documento As New SqlClient.SqlDataAdapter("Select * From Documento Where Documento_ID = @DocID", SQL_Sicoss)
Dim dbDoc As New DataSet
SQLA_Documento.Fill(dbDoc,"MisDatos")
 
DOCID = al id del documento a editar.
 
 
 
If DocID < 0 Then
textarea.Content = (" <br /> " _
& " <br /> " _
& " &nbsp; <br /> " _
& " <div style=""text-align: center""><span style=""font-weight: bold"" class=""style2"">*** Elabore su Documento aquí ***</span></div> ")
 
txt_Titulo.Visible = True
txt_descripcion.Visible = True
Else
If dbDoc.Tables("MisDatos").Rows.Count > 0 Then
textarea.Content = dbDoc.Tables("MisDatos").Rows(0)("MiId") 'Suponiendo que la consulta solo traiga una fila, aqui se accede a la primera, con el indice en cero, tambien en la consulta debera existir la columna MiId o la del valor que quieres poner en el TextBox
dbDoc.Tables.Remove("MisDatos") 'Borramos la tabla del DataSet para evitar comportamientos raros
End IF
 
txt_Titulo.Visible = False
txt_descripcion.Visible = False
End If