SSMS可执行的SQL查询在VB.NET中执行失败：日期转换溢出

我来帮你搞定这个头疼的问题！你遇到的错误本质是VB.NET向ODBC传递日期参数时，类型推断或格式处理不当，导致SQL Server无法正确解析成datetime类型。咱们一步步拆解解决：

问题根源分析 #

1. 在SSMS里直接用字符串'2020/05/12'能正常执行，是因为SQL Server会根据当前会话的日期格式自动解析；但ODBC驱动对参数类型的处理更严格，AddWithValue的自动类型推断可能把Date值错误转换成nvarchar，或者用了数据库不识别的格式。
2. 你注释掉的字符串拼接代码里，把日期拼成了Day/Month/Year格式（比如12/05/2020），如果数据库默认是美式日期格式（Month/Day/Year），就会把12/05/2020当成“12月5日”，如果实际要查的是5月12日，就会触发“值超出范围”的错误——这也是字符串拼接日期的典型坑，绝对不推荐。

正确解决方案 #

1. 坚持参数化查询，明确指定参数类型 #

别再用AddWithValue了，它的类型推断在ODBC场景下不稳定。直接指定OdbcType.DateTime类型，确保参数以原生日期类型传递，而非字符串：

If Fecha IsNot Nothing Then
    cmd.Parameters.Add("@Fecha", OdbcType.DateTime).Value = Fecha.Value
End If

2. 优化SQL语句，彻底避免类型转换问题 #

你的datediff(day, [Fecha], ?) = 0写法不仅会让Fecha字段的索引失效（函数包裹字段导致索引无法被利用），还容易触发类型转换错误。改成范围查询既高效又安全：

Dim SQL = "SELECT [Consecutivo], [Detalle], [MetodoPago], [Fecha], [Concepto], [Monto], [Recuperacion], [Usuario], [UsuarioNombre] 
           FROM [BD_RentaEquipos].[dbo].[Cierres]" & 
           IIf(Fecha IsNot Nothing, " WHERE [Fecha] >= ? AND [Fecha] < DATEADD(day, 1, ?)", "")

然后添加两个参数（对应当天的起始和结束时间）：

If Fecha IsNot Nothing Then
    cmd.Parameters.Add("@FechaStart", OdbcType.DateTime).Value = Fecha.Value.Date '只保留日期部分，去掉时间
    cmd.Parameters.Add("@FechaEnd", OdbcType.DateTime).Value = Fecha.Value.Date.AddDays(1)
End If

这种写法查询的是Fecha字段在[指定日期00:00:00, 指定日期+1天00:00:00)范围内的数据，完美匹配当天所有记录，还能利用Fecha字段的索引，性能拉满，也彻底规避了类型转换问题。

3. 额外检查点 #

• 确认数据库中Fecha字段的类型是datetime或datetime2，没有存储0001-01-01这类SQL Server不支持的无效日期。
• 如果一定要保留datediff的写法，只要确保参数用OdbcType.DateTime指定类型，也能解决转换问题，但还是推荐范围查询的写法。

完整修正后的函数示例 #

Public Function C_Cargar(Optional Fecha As Date? = Nothing) As DataTable
    Dim LeTable As New dsTablas.CierresDataTable
    AbrirConexion()
    
    ' 使用范围查询的SQL语句
    Dim SQL = "SELECT [Consecutivo], [Detalle], [MetodoPago], [Fecha], [Concepto], [Monto], [Recuperacion], [Usuario], [UsuarioNombre] 
               FROM [BD_RentaEquipos].[dbo].[Cierres]" & 
               IIf(Fecha IsNot Nothing, " WHERE [Fecha] >= ? AND [Fecha] < DATEADD(day, 1, ?)", "")
    
    cmd = New OdbcCommand(SQL)
    cmd.Connection = CN
    
    If Fecha IsNot Nothing Then
        ' 明确指定参数类型为DateTime
        cmd.Parameters.Add("@FechaStart", OdbcType.DateTime).Value = Fecha.Value.Date
        cmd.Parameters.Add("@FechaEnd", OdbcType.DateTime).Value = Fecha.Value.Date.AddDays(1)
    End If
    
    Try
        ' 使用Using自动释放DataReader资源
        Using data As OdbcDataReader = cmd.ExecuteReader()
            While data.Read
                ' 用强类型的NewCierresRow创建行更规范
                Dim newRow = LeTable.NewCierresRow()
                newRow.Consecutivo = data("Consecutivo")
                newRow.Detalle = data("Detalle").ToString()
                newRow.MetodoPago = data("MetodoPago").ToString()
                newRow.Fecha = data("Fecha")
                newRow.Concepto = data("Concepto").ToString()
                newRow.Monto = data("Monto")
                newRow.Recuperacion = data("Recuperacion")
                newRow.Usuario = data("Usuario")
                newRow.UsuarioNombre = data("UsuarioNombre")
                LeTable.Rows.Add(newRow)
            End While
        End Using
    Catch sqlerror As SqlException
        MsgBox($"{sqlerror.Message}{Chr(13)}{sqlerror.Procedure}", MsgBoxStyle.Critical, $"Excecion de Base de datos #{sqlerror.Number}")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, $"Excecion de Base de datos #0x{Hex(ex.HResult)}")
    Finally
        CerrarConexion()
    End Try
    Return LeTable
End Function

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