VB.NET执行查询遇ORA-01722无效数字错误，SQL Developer可正常运行

我来帮你拆解这个问题的根源和解决方案：

为什么会触发ORA-01722错误？ #

当你把'12566, 13234, 244555'作为单个参数传给:pValList时，ODP.NET会把整个字符串当作一个单独的值发送给Oracle数据库。而你的VAL列是数字类型，Oracle尝试把这个包含逗号的完整字符串转换成数字，自然会失败——毕竟'12566, 13234, 244555'根本不是合法数字。

而你直接硬编码或者在SQL Developer里运行时，数据库会把逗号分隔的内容解析成多个独立的数字值，这两种处理逻辑完全不同，所以后者能正常运行。至于VAL = :pVal能工作，是因为单个参数对应单个值，Oracle可以正确完成类型转换。

推荐的解决方案 #

这里提供几种规范且安全的解决方法，按优先级排序：

1. 使用ODP.NET数组绑定（最推荐）

这是ODP.NET官方支持的多值参数传递方式，既符合参数化查询的规范，性能也最优，还能避免SQL注入风险。

' 先把逗号分隔的字符串拆分成整数数组
Dim valArray As String() = pValList.Split({", "}, StringSplitOptions.RemoveEmptyEntries)
Dim intValArray As Integer() = Array.ConvertAll(valArray, Function(s) Integer.Parse(s))

' 修改SQL语句，用TABLE()函数把数组转成表
sql = "SELECT * FROM REQUESTS 
       WHERE VAL IN (SELECT COLUMN_VALUE FROM TABLE(:pValList)) 
       AND STATUS NOT IN (0, 2, 9, 10)"

da = New OracleDataAdapter(sql, conn)
da.SelectCommand.BindByName = True

' 创建数组类型的参数
Dim param As New OracleParameter("pValList", OracleDbType.Int32)
param.Value = intValArray
param.CollectionType = OracleCollectionType.PLSQLAssociativeArray
param.Size = intValArray.Length ' 必须指定数组长度

da.SelectCommand.Parameters.Add(param)
da.Fill(dsData, "RequestHistory")

2. 动态生成独立参数（适合值数量较少的场景）

把每个值拆分成独立的参数，避免直接拼接SQL字符串（防止SQL注入）：

Dim valItems As List(Of String) = pValList.Split({", "}, StringSplitOptions.RemoveEmptyEntries).ToList()
Dim paramPlaceholders As New List(Of String)()

' 动态构建IN子句的参数占位符
sql = "SELECT * FROM REQUESTS WHERE VAL IN ("
For i As Integer = 0 To valItems.Count - 1
    Dim paramName As String = $"pVal{i}"
    paramPlaceholders.Add($":{paramName}")
    ' 为每个值添加独立参数
    da.SelectCommand.Parameters.Add(New OracleParameter(paramName, Integer.Parse(valItems(i))))
Next
' 拼接完整SQL
sql = $"{sql}{String.Join(", ", paramPlaceholders)}) AND STATUS NOT IN (0, 2, 9, 10)"

da = New OracleDataAdapter(sql, conn)
da.SelectCommand.BindByName = True
da.Fill(dsData, "RequestHistory")

3. 使用字符串拆分函数（不推荐，仅适合小数据集）

如果以上两种方式都无法使用，可以用Oracle的正则拆分函数，但这种方式会导致VAL列的索引失效，性能较差：

SELECT * FROM REQUESTS 
WHERE VAL IN (
    SELECT TO_NUMBER(REGEXP_SUBSTR(:pValList, '[^,]+', 1, LEVEL)) 
    FROM DUAL 
    CONNECT BY REGEXP_SUBSTR(:pValList, '[^,]+', 1, LEVEL) IS NOT NULL
)
AND STATUS NOT IN (0, 2, 9, 10)

对应的VB.NET代码和你原来的类似，只是SQL语句变了，但要注意确保拆分后的字符串能正确转成数字。

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