如何在VB.NET中解决FoxPro到Firebird迁移的特殊字符乱码问题？

问题根源 #

Clipper 5/FoxPro 2.5的DBF文件在巴西地区默认使用CP850（DOS葡萄牙语编码）或Windows-1252（Windows拉丁语1编码），你当前连接字符串中设置的CharacterSet=65001（UTF-8）会让VFPOLEDB驱动错误解析原始字节，导致特殊字符变成?。

解决方案 #

1. 修正VFPOLEDB连接字符串 #

移除原连接中针对文本文件的配置（text;HDR=Yes;FMT=Delimited），并设置匹配DBF实际编码的CharacterSet参数：

• 若为DOS环境生成的Clipper DBF，用CP850：

Dim conn = New OleDbConnection("Provider=vfpoledb;Extended Properties=""DBF;CharacterSet=850"";Data Source=<my data source>")

• 若为Windows环境的FoxPro 2.5 DBF，用Windows-1252：

Dim conn = New OleDbConnection("Provider=vfpoledb;Extended Properties=""DBF;CharacterSet=1252"";Data Source=<my data source>")

2. 配置Firebird 4的字符集 #

确保Firebird数据库和目标字段使用兼容的字符集，推荐用UTF8以支持全字符集：

• 创建数据库时指定默认字符集：

CREATE DATABASE '/path/to/your/db.fdb' USER 'sysdba' PASSWORD 'masterkey' DEFAULT CHARACTER SET UTF8;

• 已存在的表，修改字段字符集：

ALTER TABLE your_table ALTER COLUMN your_column TYPE VARCHAR(255) CHARACTER SET UTF8;

3. 备选：直接读取字节并转换（优先用前两步避免手动遍历） #

如果连接字符串调整后仍有问题，可通过OleDbDataReader直接读取原始字节并转换，绕开DataTable的隐式编码转换：

conn.Open()
Using reader As OleDbDataReader = cmd.ExecuteReader()
    While reader.Read()
        Dim colIndex As Integer = reader.GetOrdinal("<old database column>")
        Dim byteCount As Integer = reader.GetBytes(colIndex, 0, Nothing, 0, Integer.MaxValue)
        Dim rawBytes As Byte() = New Byte(byteCount - 1) {}
        reader.GetBytes(colIndex, 0, rawBytes, 0, byteCount)
        ' 根据DBF编码选择850或1252
        Dim decodedText As String = Encoding.GetEncoding(850).GetString(rawBytes)
        <new database field>.Value = decodedText
    End While
End Using
conn.Close()

关键提示 #

• Clipper 5的DBF没有内置编码标记，必须确认原始数据的生成环境（DOS/Windows）来选择对应编码。
• VFPOLEDB的CharacterSet参数是核心，必须与DBF实际编码完全匹配，否则必然出现乱码。

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