VB.NET从AS/400获取VARCHAR字段返回字节数组问题求助

你遇到的这个情况确实让人头疼——代码没动，AS/400端直接查数据完全正常，但.NET这边两个原本返回字符串的VARCHAR字段突然变成字节数组了。结合你的描述，问题大概率出在驱动、连接配置或者底层数据映射的隐性变化上，下面是几个针对性的排查和解决方向：

一、先检查AS/400端的字符集配置 #

虽然你说直接查询正常，但有可能字段的编码属性或者数据库的CCSID（编码字符集标识符）悄悄变了：

• 在AS/400上执行DSPFFD vhvvmdl01命令，查看EXT_CLR_DESC和INT_CLR_DESC字段的CCSID值，确保是字符型的CCSID（比如37、1208这类），而不是二进制类型的65535。如果是65535，驱动会默认按字节数组解析。
• 检查你的.NET连接字符串，确认是否指定了正确的CCSID参数。比如用IBM.Data.DB2.iSeries驱动的话，可以加上CCSID=1208（对应UTF-8）或者和数据库匹配的CCSID值，强制驱动按字符串解析VARCHAR字段。

二、排查驱动版本是否被更新 #

如果服务器上的IBM i Access for Windows（或DB2相关驱动）近期自动更新过，新版本驱动可能调整了VARCHAR字段的映射逻辑：

• 尝试回滚到之前能正常运行的驱动版本，看看问题是否消失。
• 去IBM的驱动文档里查一下新版本的变更记录，确认有没有关于VARCHAR字段解析的改动，是否需要额外配置参数。

三、绕过封装方法直接测试原生适配器 #

你的代码里用了ExecuteDataAdapterDataTableWithParams这个封装方法，有可能底层的适配器被修改了逻辑。可以临时替换成原生的DB2数据适配器测试：

' 替换原有的pdtIntExtColor = coNonTransactional.ExecuteDataAdapterDataTableWithParams(lcmdEnquiry)
Using da As New IBM.Data.DB2.iSeries.iDB2DataAdapter(lcmdEnquiry)
    Dim dt As New DataTable()
    da.Fill(dt)
    pdtIntExtColor = dt
End Using

如果原生适配器能正确返回字符串，那问题就出在你的封装方法里，得检查里面有没有修改字段类型的逻辑。

四、临时修复方案（紧急恢复用） #

如果需要快速恢复功能，可以在获取DataTable后手动把字节数组转成字符串：

' 遍历DataTable转换字段
For Each row As DataRow In pdtIntExtColor.Rows
    ' 处理EXT_CLR_DESC
    If row("EXT_CLR_DESC") IsNot DBNull.Value AndAlso TypeOf row("EXT_CLR_DESC") Is Byte() Then
        ' 根据AS/400实际编码选择Encoding，比如IBM-037用Encoding.GetEncoding(37)
        row("EXT_CLR_DESC") = Encoding.GetEncoding(37).GetString(CType(row("EXT_CLR_DESC"), Byte()))
    End If
    ' 处理INT_CLR_DESC
    If row("INT_CLR_DESC") IsNot DBNull.Value AndAlso TypeOf row("INT_CLR_DESC") Is Byte() Then
        row("INT_CLR_DESC") = Encoding.GetEncoding(37).GetString(CType(row("INT_CLR_DESC"), Byte()))
    End If
Next

注意一定要用和AS/400数据库匹配的编码，不然转换出来的字符串会乱码。

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