使用adodb.command调用Oracle存储过程时波兰变音字符偶发乱码问题

问题根因说明 #

偶发乱码的核心诱因是32/64位Oracle客户端共存时，VBA运行时随机加载了不同位数的客户端，导致字符集配置读取不一致，属于多版本客户端共存的常见兼容性问题。 #

可落地的解决步骤 #

• 连接字符串强制指定字符集
  无论使用ODBC DSN还是直连方式，都在ADODB连接字符串中显式添加Charset=EE8MSWIN1250参数，不依赖系统全局配置，示例：

  "DSN=你的ODBC数据源名;Uid=用户名;Pwd=密码;Charset=EE8MSWIN1250;"
  

• 优先加载匹配Excel位数的Oracle客户端
  首先确认Excel 365的位数（文件→账户→关于Excel，顶部可查看），然后打开系统环境变量编辑界面，将对应位数的Oracle客户端BIN目录路径移动到PATH变量的最顶端，确保VBA运行时始终加载匹配的客户端，不会随机调用到另一个版本。
• VBA参数显式指定Unicode类型
  创建ADODB.Command参数时，不要使用默认的字符串类型，显式指定参数类型为adVarWChar，强制参数以Unicode格式传输，避免自动转码异常，代码示例：

  Dim cmd As New ADODB.Command
  cmd.ActiveConnection = 你的连接对象
  cmd.CommandText = "存储过程名"
  cmd.CommandType = adCmdStoredProc
  ' 显式指定参数类型为Unicode字符串
  Dim param As ADODB.Parameter
  Set param = cmd.CreateParameter("参数名", adVarWChar, adParamInput, 255, 带波兰变音字符的字符串)
  cmd.Parameters.Append param
  cmd.Execute
  

• 统一多环境的字符集配置
  1. 关闭ODBC配置中的「Use Microsoft regional settings」选项，手动指定区域为波兰、字符集为EE8MSWIN1250，注意32位ODBC配置入口为C:\Windows\SysWOW64\odbcad32.exe，64位入口为C:\Windows\System32\odbcad32.exe，需要修改和Excel位数对应的配置
  2. 分别检查32位和64位Oracle客户端的注册表NLS_LANG配置：
     • 64位路径：HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\对应客户端Home项下的NLS_LANG
     • 32位路径：HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\ORACLE\对应客户端Home项下的NLS_LANG
       确保两个路径下的NLS_LANG都设置为POLISH_POLAND.EE8MSWIN1250

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