Problems with a richtext box and filling it with RTF data from SQL.

[JC - home]

Hello..

I've been having some problems for a little while with this which I was
sure I would beat...hmmm.

Anyway, I have a form with two rich textboxes. One at the top which is
to display a concatenated summary, and one at the botton for making a
new entry.

When items are added in from the bottom box, I do this via a class
(call_detail.vb ):

code from the click event of the submit button
------------------------------------------------

Dim mycall_detail As New call_detail

mycall_detail.r eference = update_referenc e
mycall_detail.n arrative = SpellCheckRichT ext1.Rtf.ToStri ng
mycall_detail.a dd_narrative()

-------------------------------------------------
I then call the add_narrative function as so from the class

----------------------------------------
Public Function add_narrative()
Dim sqlcom As New SqlCommand
sqlcom.Connecti on = sqlcon
sqlcom.CommandT ype = CommandType.Sto redProcedure
sqlcom.CommandT ext = "add_narrat ive"
sqlcom.Paramete rs.Add("@in_cal l_reference", reference)
sqlcom.Paramete rs.Add("@in_nar rative", narrative)
sqlcom.Paramete rs.Add("@in_use r", System.Environm ent.UserName)
If sqlcon.State <> ConnectionState .Open Then sqlcon.Open()

sqlcom.ExecuteN onQuery()

End Function
----------------------------------------
This calls a SQL Stored proc: as so

------------------------------------------
dbo.add_narrati ve

@in_call_refere nce int,
@in_narrative text,
@in_user char(40)

AS

insert into call_details(

call_reference, narrative,enter ed_by,date_ente red)

values(@in_call _reference,@in_ narrative,@in_u ser,getdate()
----------------------------------------------
This seems to add the data into the narrative table fine. one of the
entries in the narrative.narra tive field contains:

{\rtf1\ansi\ans icpg1252\uc1\de ff0\stshfdbch0\ stshfloch0\stsh fhich0\stshfbi0 \deflang2057\de flangfe2057{\fo nttbl{\f0\froma n\fcharset0\fpr q2{\*\panose
020206030504050 20304}Times New Roman;} test
This is the output from the rtf.tostring of the lower rich text box.
I can read that data back into a string no problem, but getting it to
show as formatted rich text is where I'm having problems - it only ever
displays literally.

I use a function in my class called_populate memo:

---------------------------------------------
Public Function populate_memo()
' Lets use a sqldata reader to get our text properties!!!
Dim retval As String

Dim sqlcom As New SqlCommand
sqlcom.Connecti on = sqlcon
sqlcom.CommandT ype = CommandType.Sto redProcedure
sqlcom.CommandT ext = "get_verbose_na rratives"
sqlcom.Paramete rs.Add("@in_cal l", reference)

Dim narr_reader As SqlDataReader
If sqlcon.State <> ConnectionState .Open Then sqlcon.Open()

narr_reader = sqlcom.ExecuteR eader

C_memo = Nothing

While narr_reader.Rea d

memo += Trim(narr_reade r.GetString(2)) & " on " &
narr_reader.Get DateTime(1) & vbNewLine
memo += "----------------------------------------------" &
vbNewLine
memo += narr_reader.Get String(0)
memo += vbNewLine & vbNewLine

End While

End Function

-------------------------------------------------
This calls the following stored procedure:

---------------------------------------

dbo.get_verbose _narratives

@in_call int

as

SELECT narrative,date_ entered, entered_by
FROM call_details
WHERE (call_reference = @in_call)
ORDER BY narrative_id

--------------------------------------------
And finally here is the code I use when trying to pass the contents of
the "memo" property of my class into the upper rich text box.

------------------------------------------

Dim mycalldetail As New call_detail
mycalldetail.re ference = update_referenc e
mycalldetail.po pulate_memo()

MessageBox.Show (mycalldetail.m emo)
RichTextBox1.Ap pendText(mycall detail.memo)

--------------------------------------------

I'm presuming this is a cast / type issue of sorts as if I create a
richtext document called jc.rtf and call :
' RichTextBox1.Lo adFile("d:\jc.r tf")

instead of the appendtext line it works fine.

I toyed with the idea of creating temporary richtext files to read
from, but don't like that idea at all...

I know this is all a little vague, but can anyone throw any light on
this? Am I making a fundemental error?

Many Thanks :-)

JC

[One Handed Man \( OHM - Terry Burns \)]

This is because AppendText is an inherited method from TextBoxBase and has
not knowledge of the RTF. You will need to walk the string with selection
and re-establish the format. This seems rather naff to me actually, I cant
see any other way of doing it other than as you say use temporatr files.

If you do however want to walk the string, you are going to need to parse
the formatting . . .

If anyone has found a better way to do this I would like to see it.

--

OHM ( Terry Burns )
. . . One-Handed-Man . . .
If U Need My Email ,Ask Me

Time flies when you don't know what you're doing

"JC - home" <jo**@johnclark .me.uk> wrote in message
news:10******** **************@ h37g2000oda.goo glegroups.com.. .

Hello..

I've been having some problems for a little while with this which I was
sure I would beat...hmmm.

Anyway, I have a form with two rich textboxes. One at the top which is
to display a concatenated summary, and one at the botton for making a
new entry.

When items are added in from the bottom box, I do this via a class
(call_detail.vb ):

code from the click event of the submit button
------------------------------------------------

Dim mycall_detail As New call_detail

mycall_detail.r eference = update_referenc e
mycall_detail.n arrative = SpellCheckRichT ext1.Rtf.ToStri ng
mycall_detail.a dd_narrative()

-------------------------------------------------
I then call the add_narrative function as so from the class

----------------------------------------
Public Function add_narrative()
Dim sqlcom As New SqlCommand
sqlcom.Connecti on = sqlcon
sqlcom.CommandT ype = CommandType.Sto redProcedure
sqlcom.CommandT ext = "add_narrat ive"
sqlcom.Paramete rs.Add("@in_cal l_reference", reference)
sqlcom.Paramete rs.Add("@in_nar rative", narrative)
sqlcom.Paramete rs.Add("@in_use r", System.Environm ent.UserName)
If sqlcon.State <> ConnectionState .Open Then sqlcon.Open()

sqlcom.ExecuteN onQuery()

End Function
----------------------------------------
This calls a SQL Stored proc: as so

------------------------------------------
dbo.add_narrati ve

@in_call_refere nce int,
@in_narrative text,
@in_user char(40)

AS

insert into call_details(

call_reference, narrative,enter ed_by,date_ente red)

values(@in_call _reference,@in_ narrative,@in_u ser,getdate()
----------------------------------------------
This seems to add the data into the narrative table fine. one of the
entries in the narrative.narra tive field contains:

{\rtf1\ansi\ans icpg1252\uc1\de ff0\stshfdbch0\ stshfloch0\stsh fhich0\stshfbi0 \
deflang2057\def langfe2057{\fon ttbl{\f0\froman \fcharset0\fprq 2{\*\panose 020206030504050 20304}Times New Roman;} test
This is the output from the rtf.tostring of the lower rich text box.
I can read that data back into a string no problem, but getting it to
show as formatted rich text is where I'm having problems - it only ever
displays literally.

I use a function in my class called_populate memo:

---------------------------------------------
Public Function populate_memo()
' Lets use a sqldata reader to get our text properties!!!
Dim retval As String

Dim sqlcom As New SqlCommand
sqlcom.Connecti on = sqlcon
sqlcom.CommandT ype = CommandType.Sto redProcedure
sqlcom.CommandT ext = "get_verbose_na rratives"
sqlcom.Paramete rs.Add("@in_cal l", reference)

Dim narr_reader As SqlDataReader
If sqlcon.State <> ConnectionState .Open Then sqlcon.Open()

narr_reader = sqlcom.ExecuteR eader

C_memo = Nothing

While narr_reader.Rea d

memo += Trim(narr_reade r.GetString(2)) & " on " &
narr_reader.Get DateTime(1) & vbNewLine
memo += "----------------------------------------------" &
vbNewLine
memo += narr_reader.Get String(0)
memo += vbNewLine & vbNewLine

End While

End Function

-------------------------------------------------
This calls the following stored procedure:

---------------------------------------

dbo.get_verbose _narratives

@in_call int

as

SELECT narrative,date_ entered, entered_by
FROM call_details
WHERE (call_reference = @in_call)
ORDER BY narrative_id

--------------------------------------------
And finally here is the code I use when trying to pass the contents of
the "memo" property of my class into the upper rich text box.

------------------------------------------

Dim mycalldetail As New call_detail
mycalldetail.re ference = update_referenc e
mycalldetail.po pulate_memo()

MessageBox.Show (mycalldetail.m emo)
RichTextBox1.Ap pendText(mycall detail.memo)

--------------------------------------------

I'm presuming this is a cast / type issue of sorts as if I create a
richtext document called jc.rtf and call :
' RichTextBox1.Lo adFile("d:\jc.r tf")

instead of the appendtext line it works fine.

I toyed with the idea of creating temporary richtext files to read
from, but don't like that idea at all...

I know this is all a little vague, but can anyone throw any light on
this? Am I making a fundemental error?

Many Thanks :-)

JC

[JC - home]

I guess writing a procedure to walk the string wouldn't be too
difficult, just time consuming on something that should be
straightforward .... I was thinking of being able to paste screenshots
into the rtf box as well though..... oh well!!! ;-)

Perhaps there is a custom control out there somewhere that will save me
the time on this one!

JC

[JC - home]

As the upper text box is only intended to show RTF, anyone have any
suggestions on any other controls that would recognise the rtf format -
all clients will have msoffice XP installed...... .

[JC - home]

Sorry to use this group as a dumping ground for my thoughts... I guess
I could create a crystal report (or other reporting tool as I really
don't like crystal that much) and have that interpret the text as
rtf.......