Necesito hacerles una consulta, bueno cree un campo text de mysql y agregue el contenido de un richtextbox de esta manera
Código VB6:
Ver original
strsql = "insert into det_historia (comentario) values('" & Me.RichTextBox1.TextRTF & "')" db.Execute strsql
se carga bien el dato, pero cuando intento volver a cargarlo, es decir leerlo y volverme a colocar en el rixhtext me tira esto
Código VB6:
Ver original
Set rs = New ADODB.Recordset Set rs = rsc("select comentario from det_historia") If rs.BOF And rs.EOF Then Else Me.txtdetalle.TextRTF = rs("comentario").Value End If
en el richtextbox1 me carga esto:
tf1ansiansicpg1252deff0deflang3082fonttblf0fnilfch arset0 MS Sans Serif;colortbl ;ed255green0lue0;viewkind4uc1pardf0fs30 hola carloa como estasfs17 ccf1 abeza de mono hervidocf0 par
y si en lugar de Me.txtdetalle.TextRTF = rs("comentario").Value uso esto Me.txtdetalle.Text = rs("comentario").Value
me da este resultado:
{
tf1ansiansicpg1252deff0deflang3082{fonttbl{f0fnilf charset0 MS Sans Serif;}}
{colortbl ;
ed255green0lue0;}
viewkind4uc1pardf0fs30 hola carloa como estasfs17 ccf1 abeza de mono hervidocf0
par }
No se que estoy haciendo mal. Tal vez el error esta en como hago el insert, nose...
El ejemplo lo saque de aca http://www.forosdelweb.com/f69/como-...ormato-459497/
Gracias