Foros del Web - Error con la ñ y los acentos

Foros del Web (http://www.forosdelweb.com/)

- .NET (http://www.forosdelweb.com/f29/)

- - Error con la ñ y los acentos (http://www.forosdelweb.com/f29/error-con-n-acentos-598452/)

Error con la ñ y los acentos

Hola a tod@s. Tengo un problema con una aplicación de visual basic.net. Esta aplicación consiste en un RichTextBox y un botón(al pulsar este botón nos guarda en una base de datos y modifica lo que escribimos en el RichTextBox). Lo que me sucede es que cuando escribimos en el RichTextBox una ñ o acento me sale el siguiente error

Cita:

En el caso de la ñ:
Línea 2: sintaxis incorrecta cerca de 'f1'.
Comilla no cerrada antes de la cadena de caracteres ''.

Pero si no ponemos ni acentos ni ñ la aplicación funciona a la perfección. ¿A que es debido esto? ¿Y que solución tiene? Muchas gracias.
Un saludo

Respuesta: Error con la ñ y los acentos

Cita:

Lo que me sucede es que cuando escribimos en el RichTextBox una ñ o acento me sale el siguiente error

ese error te sucede al momento de escribir?? o mas bien al guardarlo ?? si es al guardarlo te marca el error al hacer el inserte en la base de datos o que en momento

Escribenos el code que estás utilizando

Salu2

Respuesta: Error con la ñ y los acentos

Hola RootK. El Error me da una vez que pulso el botón (en el cmd.ExecuteNonQuery()) El código 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 * from Noticias"
dr = cmd.ExecuteReader
Do While dr.Read 'recorre el data reader mientras tenga datos dentro
'Saca de la base de datos el contenido de la celda noticias y lo muestra en el RTBNotic. Al tener la propiedad Rtf nos muestra el resultado que queremos del estilo (el texto en negrita) de la fuente, si en vez de tener la propiedad RTF fuera Text lo que nos mostraría es el código completo del estilo del texto que contiene la celda
RTBNotic.Rtf = 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
'RTBNotic.Rtf lo que hace es guardar en la base de datos el contenido del RichTextBox junto al estilo del texto en formato código
Dim negrita As String = "Update Noticias set Noticias = '" & RTBNotic.Rtf & "'"

cmd.CommandText = negrita
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Class

Un saludo.

Respuesta: Error con la ñ y los acentos

ahh ok, lo que pasa es que estas pasando el contendio de tu RTB directamente en tu variable que empieza con comila simple (ya que es cadena) pero tu control RTBNotic al recibir los valores la "ñ" la convierte en 'f1 y proboca errores al hacer la inserción, lo mismo ocurre para otros caracteres especiales, lo que te recomiendo es que lo hagas con parámetros, tu code podría quedar mejor así:

Código:

Dim con As New SqlConnection

        con.ConnectionString = CadenaConexion

        'RTBNotic.Rtf lo que hace es guardar en la base de datos el contenido del RichTextBox junto al estilo del texto en formato código

        Dim sSQL As String = "Update Noticias set Noticias = @parametroRTB"

        Dim cmd As New SqlCommand(sSQL, oConn)
 

        Dim parameterRTB As New SqlParameter("@parametroRTB", SqlDbType.NVarChar, 256) 'aqui especificas el tipo de datos y el tamaño

        parameterRTB.Value = RTBNotic.Rtf

        cmd.Parameters.Add(parameterRTB)

        con.Open()

        cmd.ExecuteNonQuery()

        con.Close()

Prueba y nos cuentas como te fue

Salu2

Respuesta: Error con la ñ y los acentos

Hola RootK. Muchas gracias por la ayuda. Ya no me da error, funciona perfectamente :aplauso:
Un saludo