Danske tegn i Richtextbox

nu fortæller du ikke hvilken du benytter, men det fleste har settings du kan pille ved så specialtegn tillades. Så tag et kig i dokumentationen til den pågældende editor og du vil højst sandsynligt finde svaret.

Streng = "Notat = '" & RichTextBox1.Text & "'"

vil jeg tro

Jeg benytter Microsoft Visual Basic 2008 og anvender Richtextbox i forbindelse med en windows form.
Jeg kan ikke anvende richtextbox.text idet jeg ønsker at beholde tekstens formatering: Richtextbox1.rtf

Saa forstaar jeg ikke problemet.

Alt som forstaar RTF formateringen vil ogsaa forstaa "\'f8".

Hvorimod "ø" kun vil blive forstaaet af RTF software som understoetter nogle af de nyere RTF versioner.

Problemet opstår når jeg forsøger at sende til Microsoft SQL database:


        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Try
            Dim Streng As String
            Streng = "Notat = '" & RichTextBox1.Rtf & "'"
            Streng = Replace(Streng, "\'f8", "ø")
            Streng = Replace(Streng, "\'e6", "æ")
            Streng = Replace(Streng, "\'e5", "å")
            Streng = Replace(Streng, "\'d8", "Ø")
            Streng = Replace(Streng, "\'c6", "Æ")
            Streng = Replace(Streng, "\'c5", "Å")
            Streng = Replace(Streng, "\'bd", "½")
            Streng = Replace(Streng, "\'a7", "§")
            Streng = Replace(Streng, "'\", "")

            Dim Command As New SqlCommand("UPDATE [Præ-Noter] Set " & Streng & " WHERE ([Cpr nr]) = ('" & TxtCpr.Text & "')", Connection)
            Command.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fejl opstået i GemPrænoter")
        End Try

        Connection.Close()

Dt er ' som driller dig.

Brug parameters!!

http://www.eksperten.dk/guide/832

Det har du da sikkert ret i ...selvom fejlen kommer når jeg anvender danske tegn!?

Drop de replace og brug parameters.

Jeg har efter dine anvisninger ændret til:


        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Try
            Dim Command As New SqlCommand("UPDATE [Præ-Noter] Set Notat = @Notat WHERE ([Cpr nr]) = @Cpr", Connection)
            Command.Parameters.Add("@Notat", SqlDbType.Text)
            Command.Parameters("@Notat").Value = RichTextBox1.Rtf
            Command.Parameters.Add("@Cpr", SqlDbType.NChar, 50)
            Command.Parameters("@Cpr").Value = TxtCpr.Text
            Command.ExecuteNonQuery()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fejl opstået i GemPrænoter")
        End Try

        Connection.Close()


DET FUNGERER :-). TAK FOR DET! SVAR SÅ FÅR DU POINT.
Kan du anbefale et sted/steder hvor man kan læse/lære om PARAMATERS?

Et lille tillægs spørgsmål. Kan der forbedres noget i nedenstående reader:

  Private Sub FrmPræNoter_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Try
            Dim Cmd As New SqlCommand("SELECT * FROM [Præ-noter] WHERE [Cpr nr] = @Cpr", Connection)
            With Cmd
                .Parameters.Add("@Cpr", SqlDbType.NChar, 50)
                .Parameters("@Cpr").Value = TxtCpr.Text
                .ExecuteNonQuery()
            End With

            Dim reader As SqlDataReader = Cmd.ExecuteReader()
            If reader.Read Then
                If Not reader.IsDBNull(2) Then
                    RichTextBox1.Rtf = reader.GetString(2).ToString
                Else
                    RichTextBox1.Rtf = ""
                End If
                reader.Close()
                reader = Nothing
            Else
                reader.Close()
                reader = Nothing
                Cmd = New SqlCommand("INSERT INTO [Præ-noter] ([Cpr nr]) VALUES (@Cpr)", Connection)
                With Cmd
                    .Parameters.Add("@Cpr", SqlDbType.NChar, 50)
                    .Parameters("@Cpr").Value = TxtCpr.Text
                    .ExecuteNonQuery()
                End With
            End If
        Catch ex As Exception
            Connection.Close()
            Connection = Nothing
            MessageBox.Show(ex.Message, "Fejl opstået i FrmPrænoter_Load")
        End Try
    End Sub

svar

Der er vist ikke meget som kan forbedres.

Xxxx = Nothing

skal ikke og boer ikke bruges i .NET

jeg ville noejes med at hente den eller de kolonner som jeg skal bruge

Tak :-)