Como grabar texto con formato desde un RichTextBox hacia SQL Server con VB.net 2008

[byroncholca]

Saludos por favor me pueden ayudar estoy haciendo un sistema de documentacion de procesos y necesito ingresar cuadros de texto y texto con viñetas y me di cuenta que utilizando los RichTextBox se mantiene el formato y quisiera poder grabarlo en una tabla de sql server estoy programando con visual basic.net 2008
si alguien me puede ayudar con el codigo y q' tipo de dato debo definir en el campo de la tabla
Gracias..

[bitbow]

Saludos,

Segun recuerdo , el campo lo debes definir como tipo blob o binary, para C# encontre esto.

using (SqlConnection connection = new SqlConnection("ConnectionString"))
{
connection.Open();
using(SqlCommand cmd = new SqlCommand("INSERT INTO TestTable_
(ID, BlobData, DESCRIPTION) VALUES (@ID, @BlobData, @DESCRIPTION)", conn))
{

cmd.Parameters.Add("@ID", SqlDbType.int).Value = 1;
cmd.Parameters.Add("@BlobData", SqlDbType.VarBinary).Value = ByteArray;
cmd.Parameters.Add("@DESCRIPTION", SqlDbType.NVarchar).Value = _
"Any text Description";
cmd.ExecuteNonQuery();
}
}

Suerte.

[byroncholca]

gracias pero tengo este codigo creo q si guarda
''' guada en la base de datos
'Creamos un memoryStream al que guardar nuestro texto
Dim MemContent As New System.IO.MemoryStream()
RichTextBox1.SaveFile(MemContent, RichTextBoxStreamType.RichText)
'Creamos un array de bytes al que guardar la info de nuestro MemoryStream
Dim Buffer(MemContent.Length) As Byte
Buffer = MemContent.GetBuffer()

logica.archivo = ubicacion.Text
Try ' ingrega con pasivo = 1
' ejecuta en struct procedure y se guardar el texto RTF
logica.insertaruno("sp_Ingresa_Cuadro", Buffer)
MessageBox.Show("Texto con formato Ingresado", "DocProcesos", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

[byroncholca]

'''''''''''
'''' esta funcion es la que recupera de la base de datos pero sale un error
''''''''
Dim id As Integer = 10
logica.archivo = ubicacion.Text
Try
ds = logica.traertodosds("sp_devuelve_cuadro")
Dim Buffer() As Byte


For Each fila2 As DataRow In ds.Tables(0).Select("id_cuadro= '" & id & "'")
Buffer = fila2("grafico")
'Declaramos la variable Byte y le metemos el array que tenemos guardado.
'Definimos el memoryStream en el que meter nuestros Bytes

MemContent.Read(Buffer, 0, Buffer.Length)
'Leemos el memoryStream en el RichTextBox como si fuese un archivo.
' aqui tengo un error me dice que el tipo de datos no es valido
RichTextBox1.LoadFile(MemContent, RichTextBoxStreamType.RichText)
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try