RichTextControl Rtf property

[oneworld]

I have an application that simply reads the text in a RichTextBox control, and stores the text into the database. I want to use the plain RichTextBox control and not a database rtf control.

When I read the Rtf property it returns the text combined with rft codes, e.g.:
"{\\rtf1 ....... \r\0"

I then store this text in my Access database via an OdbcCommand. When I read the text back from the database, the returned text is @-quoted as follows:
@"{\\rtf1 ....... \r\0"

When I try to set the RichTextControl Rtf property with the value from the database an exception is thrown.

It would appear that the Rtf property cannot accept @-quoted values (e.g. a value of

@"This is a test"

will cause an error.

How can I work around this problem while still using the RichTextControl in the scheme above.

[Charles A. Lackman]

Hello,

I work with Jet4.0 Databases all the time and use RichTextBoxes Often to retrieve RTF data from fields inside the database.

I have never run into the problem you are expaining about having a "@" at the beginning of the stored data.

How are you retrieving the data into the RichTextBox. Here are some examples that work for me.

Example 1,

Create A Dataset and bind the data to the rtf property of the RichTextBox

RichTextBox1.Da taBindings.Add( "RTF", ADataset, "TableName.Colu mnName")

Example 2.

Create A Dataset and Fill the RichTextBox from a DataRow

Dim ADataRow as DataRow = ADataset.Tables ("TableName").R ows(0)

RichTextBox1.RT F = ADataRow("Colum nName")

Example 3.

Create A CommandObject and Fill the RichTextBox from the object

Dim ACommand as new Oledb.Command = AConnection.Cre ateCommand

ACommand.Comman dText = "Select * FROM TableName WHERE ID = 1"

AConnection.Ope n

RichTextBox1.RT F = ACommand.Execut eScalar

AConnection.Clo se

Hope this helps,

Chuck

Maybe I am misunderstandin g your question. Are you trying to add a "@" before the text in the RTF Box?
If so try this:

If the font and RTF is always going to be the same, you can add a "@" into the RTF by parsing the string and inserting a character into it after the RTF Header.

Dim AString as string = "{\rtf1\ansi\an sicpg1252\deff0 \deflang1033{\f onttbl{\f0\fswi ss\fprq2\fchars et0 Arial;}}\viewki nd4\uc1\pard\f0 \fs24 The remainder Of The Text Goes Here \par}"

AString = AString.Insert( 114, "@")
RichTextBox1.Rt f = AString

The Result =

{\rtf1\ansi\ans icpg1252\deff0\ deflang1033{\fo nttbl{\f0\fswis s\fprq2\fcharse t0 Arial;}}\viewki nd4\uc1\pard\f0 \fs24 @ The remainder Of The Text Goes Here \par}"

[Charles A. Lackman]

Hello,

I am glad that what was sent you to originally worked for you.
Consider the Following:
Dim InsertCommand As New OleDb.OleDbComm and()

InsertCommand.C onnection = AConnection

NOTE: EVERY COLUMN INSIDE THE DATABASE MUST BE ACCOUNTED FOR IN THE INSERT
COMMAND

AnInsertString = "INSERT INTO MyTable VALUES (?,?);"

InsertCommand.C ommandText = AnInsertString

InsertCommand.P arameters.Add(" @ID", Data.OleDb.OleD bType.WChar)
InsertCommand.P arameters(0).Va lue = ID.Text

InsertCommand.P arameters.Add(" @MyRTF",
Data.OleDb.OleD bType.WChar)
InsertCommand.P arameters(1).Va lue = RichTextBox.RTF

Try
AConnection.Ope n()
InsertCommand.E xecuteNonQuery( )
AConnection.Clo se()
InsertCommand.D ispose()
Catch AnError As OleDb.OleDbExce ption
AConnection.Clo se()
InsertCommand.D ispose()
End Try
Chuck