Visual Basic项目中SQL Server数据库内容查看及排序规则兼容问题

我明白你现在的困境：数据库用的是SQL_Latin1.General_CP1_CI_AS排序规则，没法改成Arabic_CI_AS——毕竟没源码的旧程序会直接乱码，而数据库又已经是过时状态不能乱动。不过别担心，这里有几个实用的方案，既能让你的新VB程序正常显示阿拉伯语内容，又完全不会影响旧程序的运行：

方案1：查询时显式转换字符编码 #

这是最直接的办法，在你的VB项目的SQL查询语句里，对存储阿拉伯语的字段做编码转换，把它从数据库的Latin1编码转换成Unicode格式，这样VB程序就能正确解析显示了。

举个例子，假设你的表是Customers，阿拉伯语字段是CustomerName，查询语句可以这么写：

SELECT CONVERT(NVARCHAR(MAX), CustomerName) COLLATE Arabic_CI_AS AS ArabicCustomerName
FROM Customers

如果你的字段本来就是VARCHAR类型，用CAST也能实现：

SELECT CAST(CustomerName AS NVARCHAR(MAX)) COLLATE Arabic_CI_AS AS ArabicCustomerName
FROM Customers

这个做法完全不碰数据库本身的设置，旧程序该查原字段还是正常查，新程序用转换后的字段就能看到正确的阿拉伯语。

方案2：在VB代码里手动转编码 #

要是你不想改SQL语句，也可以在VB程序里做转换。原理是把数据库返回的Latin1编码字符串，转换成阿拉伯语对应的编码格式。

给你一段示例代码参考：

' 假设从DataReader里读出的原字符串是strRaw
Dim strRaw As String = dataReader("CustomerName").ToString()
' Latin1对应的代码页是1252，阿拉伯语是1256
Dim latin1Encoding As Encoding = Encoding.GetEncoding(1252)
Dim arabicEncoding As Encoding = Encoding.GetEncoding(1256)

' 先把字符串转成Latin1的字节数组，再转成阿拉伯语字符串
Dim rawBytes As Byte() = latin1Encoding.GetBytes(strRaw)
Dim arabicStr As String = arabicEncoding.GetString(rawBytes)

' 现在arabicStr就是能正常显示的阿拉伯语内容了

这个方法适合那些没法修改查询语句的场景，完全在程序层面解决问题。

方案3：创建视图统一处理转换 #

如果你的新程序很多地方都要查阿拉伯语字段，写重复的转换语句太麻烦，可以在数据库里建一个视图，把需要转换的字段预先处理好，新程序直接查视图就行，旧程序继续用原表，互不干扰。

创建视图的SQL示例：

CREATE VIEW vw_ArabicCustomerData
AS
SELECT 
    CustomerID,
    CONVERT(NVARCHAR(MAX), CustomerName) COLLATE Arabic_CI_AS AS ArabicCustomerName,
    PhoneNumber,
    Address
FROM Customers

之后新VB程序直接查vw_ArabicCustomerData，就能拿到已经转好编码的阿拉伯语内容，非常省心。

方案4：检查字段类型（谨慎操作） #

如果你的阿拉伯语字段是VARCHAR类型，可以考虑把它改成NVARCHAR类型，但绝对不要修改排序规则。NVARCHAR是Unicode类型，本身就支持多语言，哪怕排序规则还是Latin1，只要存储的是正确的Unicode字符，VB程序读取后就能正常显示阿拉伯语。

不过改字段类型前一定要备份数据，还要测试旧程序能不能正常读取NVARCHAR字段——一般VB6或者旧VB程序用String类型接收的话，不会有问题，但保险起见先做小范围测试。

综合来看，方案1和方案3是最稳妥的，不需要改动数据库核心结构，也不会影响旧程序的运行，能快速解决新程序的显示问题。

内容的提问来源于stack exchange，提问作者Hesham Mohamed