بشرى . لقد عرفت فك ترميز النصوص العربية (توجد دالة جاهزة)

كود :

كود :
Ç È Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö Ø Ù Ú Û Ý Þ ß á ã ä å æ í

 ي و ه ن م ل ك ق ف غ ع ظ ط ض ص ش س ز ر ذ د خ ح ج ث ت ب ا

كود
:

كود :
Public Function ttoar(ByVal str As String) As String

        For Each t In str

            Select Case t

                Case "Ç"

                    str = str.Replace("Ç", "ا")

                Case "È"

                    str = str.Replace("È", "ب")

                Case "Ê"

                    str = str.Replace("Ê", "ت")

                Case "Ë"

                    str = str.Replace("Ë", "ث")

                Case "Ì"

                    str = str.Replace("Ì", "ج")

                Case "Í"

                    str = str.Replace("Í", "ح")

                Case "Î"

                    str = str.Replace("Î", "خ")

                Case "Ï"

                    str = str.Replace("Ï", "د")

                Case "Ð"

                    str = str.Replace("Ð", "ذ")

                Case "Ñ"

                    str = str.Replace("Ñ", "ر")

                Case "Ò"

                    str = str.Replace("Ò", "ز")

                Case "Ó"

                    str = str.Replace("Ó", "س")

                Case "Ô"

                    str = str.Replace("Ô", "ش")

                Case "Õ"

                    str = str.Replace("Õ", "ص")

                Case "Ö"

                    str = str.Replace("Ö", "ض")

                Case "Ø"

                    str = str.Replace("Ø", "ط")

                Case "Ù"

                    str = str.Replace("Ù", "ظ")

                Case "Ú"

                    str = str.Replace("Ú", "ع")

                Case "Û"

                    str = str.Replace("Û", "غ")

                Case "Ý"

                    str = str.Replace("Ý", "ف")

                Case "Þ"

                    str = str.Replace("Þ", "ق")

                Case "ß"

                    str = str.Replace("ß", "ك")

                Case "á"

                    str = str.Replace("á", "ل")

                Case "ã"

                    str = str.Replace("ã", "م")

                Case "ä"

                    str = str.Replace("ä", "ن")

                Case "å"

                    str = str.Replace("å", "ه")

                Case "æ"

                    str = str.Replace("æ", "و")

                Case "í"

                    str = str.Replace("í", "ي")

                Case "É"

                    str = str.Replace("É", "ة")

            End Select

        Next

        Return str

    End Function

كود :

كود :
       Dim con As New MySqlConnection("server=localhost;database=forum;uid=root;pwd=55555")

        Dim cm As New MySqlCommand("", con)

        cm.CommandText = "select `username` from `user` where `userid`='1'" 'or any id for arabic code

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        Dim dr As MySqlDataReader = cm.ExecuteReader

        If dr.HasRows Then

            If dr.Read Then

                MsgBox(ttoar(dr.Item("username")))

            End If

        End If