VB.NET WinForm用户模块：提取SQL日期范围记录报错求助

这个错误我太熟悉了——十有八九是你直接把日期字符串拼进SQL语句里了，SQL Server没法正确解析你的日期格式，尤其是不同地区的日期格式（比如MM/DD/YYYY和DD/MM/YYYY）冲突的时候。别慌，用参数化查询就能彻底解决这个问题，还能顺带避免SQL注入风险。

核心解决方案：用参数化查询替代字符串拼接 #

直接拼接日期字符串是大忌，你应该把日期值作为参数传递给SQL命令，让ADO.NET自动处理类型转换。下面给你一个完整的示例：

' 假设你用的是SqlConnection和SqlDataAdapter
Using conn As New SqlConnection("你的数据库连接字符串")
    conn.Open()
    ' 定义带参数的SQL语句，注意参数名前面的@符号
    Dim sql As String = "SELECT * FROM 用户表 WHERE 日期列1 BETWEEN @StartDate AND @EndDate"
    
    Using cmd As New SqlCommand(sql, conn)
        ' 添加参数，指定参数类型为SqlDbType.Date，确保类型匹配
        cmd.Parameters.Add("@StartDate", SqlDbType.Date).Value = dtpStart.Value.Date ' dtpStart是你的DateTimePicker控件
        cmd.Parameters.Add("@EndDate", SqlDbType.Date).Value = dtpEnd.Value.Date
        
        Using da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet()
            da.Fill(ds) ' 这里应该不会再报错了
            
            ' 接下来把DataSet的数据绑定到ListView
            ListView1.Items.Clear()
            For Each row As DataRow In ds.Tables(0).Rows
                Dim item As New ListViewItem(row("用户ID").ToString())
                item.SubItems.Add(row("用户名").ToString())
                item.SubItems.Add(Convert.ToDateTime(row("日期列1")).ToString("yyyy-MM-dd"))
                ' 继续添加其他列...
                ListView1.Items.Add(item)
            Next
        End Using
    End Using
End Using

额外需要检查的点 #

• 确保你的DateTimePicker控件的Value属性是有效的日期，不要手动转成字符串再传递。如果是手动输入的日期文本框，一定要先验证并转换成Date类型：

  Dim startDate As Date
  If Not Date.TryParse(txtStartDate.Text, startDate) Then
      MessageBox.Show("请输入有效的开始日期！")
      Return
  End If
  

• 确认SQL表中的三个Date列确实是Date类型（不是DateTime或者Varchar），如果是DateTime类型，参数类型可以用SqlDbType.DateTime，但参数值还是用Date类型的.Date属性来忽略时间部分。
• 不要依赖数据库的默认日期格式，参数化查询完全避开了这个问题，所以不用纠结格式字符串的问题。

为什么之前的写法会报错？ #

当你写类似"WHERE 日期列 >= '" & txtStart.Text & "'"的语句时，VB会把日期转成当前区域的字符串格式，而SQL Server可能用的是另一种格式（比如你输入的是"05/06/2024"，SQL可能当成6月5日或者5月6日，甚至直接解析失败）。参数化查询直接传递日期的二进制值，完全没有格式转换的问题。

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