查看项目visual basic中数据库sqlserver的内容
View content from the database sqlserver within the project visual basic
我有一个包含下图数据的数据库
备注:
- 归类数据库('SQL_Latin1.General_CP1_CI_AS')。
- 我无权将排序规则更改为 Araic_CI_AS。
- 万一你把Collation改成Araic_CI_AS,数据库的数据显示在新程序中显示,但是程序有问题,在旧程序中以???的形式出现。 ??哪里有老节目。
- 我无法修改旧程序,因为没有它的源代码。
此数据库已过时,任何人不得修改(排序规则 [行] 或排序规则 [数据库])
当你link通过Visual Basic 2015将数据库添加到一个新的独立程序中来使用数据库中的一些数据时,出现如下格式如图...
我想要的是显示数据库的内容,将 (ãßÇÆä æÂáÇÊ) 句子更改为默认语言,即阿拉伯语。
我希望通过Visual Basic代码找到解决办法,而不是通过修改数据库。
感谢大家
编码字符转换过程中问题已通过以下代码解决:
Private Function conv1256(ByVal txt As String) As String
Dim dic As New Dictionary(Of String, String)
Const _1256 As String = "ÐÏÌÍÎåÚÛÝÞËÕÖØßãäÊÇáÈíÓÔÙÒæÉìÑÄÁÆøºÅñõðó¡ÜÃòö¿Âú"
Const _utf8 As String = "ذدجحخهعغفقثصضطكمنتالبيسشظزوةىرؤءئّ؛إًٌَُ،ـأٍِ؟آْ"
For i = 0 To (_1256.Length) - 1
dic.Add(_1256.Chars(i), _utf8.Chars(i))
Next i
For Each ch In txt
conv1256 &= If(dic.ContainsKey(ch), dic.Item(ch), ch)
Next
End Function
这样使用:
MsgBox(conv1256("ÈÓãö Çááå ÇáÑøÍãä ÇáÑøÍíã"))
祝你好运,谢谢大家
我有一个包含下图数据的数据库
备注:
- 归类数据库('SQL_Latin1.General_CP1_CI_AS')。
- 我无权将排序规则更改为 Araic_CI_AS。
- 万一你把Collation改成Araic_CI_AS,数据库的数据显示在新程序中显示,但是程序有问题,在旧程序中以???的形式出现。 ??哪里有老节目。
- 我无法修改旧程序,因为没有它的源代码。
此数据库已过时,任何人不得修改(排序规则 [行] 或排序规则 [数据库])
当你link通过Visual Basic 2015将数据库添加到一个新的独立程序中来使用数据库中的一些数据时,出现如下格式如图...
我想要的是显示数据库的内容,将 (ãßÇÆä æÂáÇÊ) 句子更改为默认语言,即阿拉伯语。
我希望通过Visual Basic代码找到解决办法,而不是通过修改数据库。
感谢大家
编码字符转换过程中问题已通过以下代码解决:
Private Function conv1256(ByVal txt As String) As String
Dim dic As New Dictionary(Of String, String)
Const _1256 As String = "ÐÏÌÍÎåÚÛÝÞËÕÖØßãäÊÇáÈíÓÔÙÒæÉìÑÄÁÆøºÅñõðó¡ÜÃòö¿Âú"
Const _utf8 As String = "ذدجحخهعغفقثصضطكمنتالبيسشظزوةىرؤءئّ؛إًٌَُ،ـأٍِ؟آْ"
For i = 0 To (_1256.Length) - 1
dic.Add(_1256.Chars(i), _utf8.Chars(i))
Next i
For Each ch In txt
conv1256 &= If(dic.ContainsKey(ch), dic.Item(ch), ch)
Next
End Function
这样使用:
MsgBox(conv1256("ÈÓãö Çááå ÇáÑøÍãä ÇáÑøÍíã"))
祝你好运,谢谢大家