VBA调用Teradata长SQL报3535字符转数值错误 直连运行正常

你排查SQL未发现显式数值转换函数，说明转换行为发生在ODBC驱动层或者ADODB数据接收层，不是SQL本身的逻辑问题，常见触发原因如下：

• ADODB.RecordSet默认字段类型识别异常：当查询结果存在超过255字符的字符串字段、或者SQL语句本身长度接近6万触发ADODB元数据解析异常时，ADODB会错误将字符串字段识别为数值类型，接收结果时尝试转换触发报错。直接在Teradata客户端运行时不会经过ADODB的类型识别逻辑，因此运行正常。
• Teradata ODBC驱动默认隐式转换规则：ODBC驱动默认开启了字符到数值的隐式转换尝试，如果查询结果的字符串字段中存在超长纯数字内容，超过驱动默认的数值最大长度时就会触发转换失败。
• VBA代码语法错误导致参数异常：你贴出的代码存在两处语法错误，一是CreateOjbect拼写错误（正确为CreateObject），二是ObjRecordSet.open StrQuery connection缺少逗号分隔参数，错误的参数传递会导致ADODB将连接对象当成查询参数处理，触发类型转换。
• SQL传递截断：如果VBA中存储SQL的StrQuery变量是定长字符串，或者拼接时遇到特殊字符被截断，实际送到Teradata的SQL和你本地测试的不一致，会触发你未排查到的隐式转换场景。

• 第一步先修正代码语法错误，同时显式配置ADODB参数避免自动识别异常：

Set connection = CreateObject("ADODB.connection")
' DSN连接字符串参数用分号分隔
connection.Open "DSN=xxx;UID=XXX;PWD=XXX"
Set ObjRecordSet = CreateObject("ADODB.RecordSet")
' 显式指定游标和锁定类型，关闭自动类型推断的异常逻辑
ObjRecordSet.Open StrQuery, connection, adOpenForwardOnly, adLockReadOnly
ObjRecordSet.Close
connection.Close

• 关闭ODBC驱动隐式转换：打开Teradata ODBC数据源配置，进入「选项」页面，取消勾选Enable implicit conversion between character and numeric选项，禁用驱动层的自动类型转换逻辑。
• 改用ADODB.Command执行长SQL：避免RecordSet.Open方法解析长SQL时出现截断或元数据识别错误：

Dim cmd As New ADODB.Command
cmd.ActiveConnection = connection
cmd.CommandText = StrQuery
cmd.CommandType = adCmdText
' 禁用命令预编译，避免长SQL被截断
cmd.Prepared = False
Set ObjRecordSet = cmd.Execute

• 验证SQL完整性：在VBA执行查询前，将StrQuery输出到本地文本文件，和你直接在Teradata运行的SQL做逐行对比，确认没有截断、特殊字符转义错误的问题。
• 极端场景优化：如果SQL长度持续超过6万，可以将查询逻辑封装为Teradata存储过程，VBA侧仅调用存储过程获取结果，绕过长SQL传递的各类异常问题。

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