Hola. En la base de datos efectivamente me guarda el estilo de la fuente. El resultado que da es el siguiente:
Cita: {\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\lang3082\b\fs20 Revisaste\b0\f1\fs17 que el contenido de RTBNotic.Rtf si se vea con los codigos del formato antes de llevarlo a la base de datos\par
}
Lo que sucede que no quiero que muestre el código sino que muestre el texto negrita y que lo mantenga cuando cierre el programa y cuando lo abra este como lo había dejado con sus textos en negrita.
Perdonar por las molestias. Muchas gracias.
Saludos
El código completo que utilizo es el siguiente:
Cita: Imports System.Data.SqlClient
Public Class Form1
Dim CadenaConexion As String = "server=192.168.1.33;Uid=sa;pwd=pass;dataBase=Mani otas"
Private _Negrita As Boolean
Public Property Negrita() As Boolean
Get
Return _Negrita
End Get
Set(ByVal value As Boolean)
_Negrita = value
End Set
End Property
Private Sub CkBNeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CkBNeg.CheckedChanged
If RTBNotic.SelectedText.Length > 0 Then
RTBNotic.SelectionFont = New Font("Arial", 10, FontStyle.Bold)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
'Lo utilizamos para mostrar en el formulario las noticias de la base de datos
con.ConnectionString = CadenaConexion
con.Open()
cmd.Connection = con
cmd.CommandText = "select noticias from Noticias"
dr = cmd.ExecuteReader
Do While dr.Read 'recorre el data reader mientras tenga datos dentro
RTBNotic.Text = dr("noticias")
Loop
dr.Close()
con.Close()
End Sub
Private Sub btnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMod.Click
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = CadenaConexion
con.Open()
cmd.Connection = con
Dim negrita As String = "Update Noticias set " & "Noticias = _
'" & RTBNotic.Rtf & "'"
cmd.CommandText = negrita
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Class