修改系统时间后DateTimePicker自定义日期格式失效致SQL查询异常求助

我明白你遇到的这个日期格式问题有多头疼——明明设置了自定义格式，结果一运行就被系统格式带偏，导致SQL查询在不同系统环境下出问题。咱们一步步来解决这个核心问题：

问题根源分析 #

你当前的代码有两个关键隐患：

1. 用DTPTransAct.Text获取日期并拼接SQL，但Text属性会受Windows系统区域格式影响，哪怕你设置了CustomFormat，控件也可能优先输出系统默认格式的字符串，这就和SQL Server里存储的yyyy-MM-dd格式不匹配，自然查不到数据。
2. 直接拼接SQL字符串存在严重的SQL注入风险，这是个必须修复的安全漏洞。

解决方案：用参数化查询彻底解决问题 #

参数化查询会让数据库自行处理日期类型的转换，完全不用纠结字符串格式，既安全又靠谱，这是最推荐的方案。修改你的查询代码如下：

Private Sub BtnTransActDL_Click(sender As Object, e As EventArgs) Handles BtnTransActDL.Click
    Dim Exception = ""
    Dim DLConn As New MySqlConnection(connectionstring.text)
    Dim DLDA As New MySqlDataAdapter
    Dim DLDT As New DataTable
    Dim bsource As New BindingSource
    ' 使用参数化查询，避免格式问题和SQL注入
    Dim SQLString As String = "Select * From table where name like @Name and transactiondate = @TransDate Limit 5000;"

    Try
        DLConn.Close()
        DLConn.Open()
        ' 创建命令并添加参数
        Dim DLCmd As New MySqlCommand(SQLString, DLConn)
        ' 处理模糊查询的参数
        DLCmd.Parameters.AddWithValue("@Name", "%" & TxtTransAct.Text & "%")
        ' 直接传入DateTime类型的日期值，无需转换为字符串
        DLCmd.Parameters.AddWithValue("@TransDate", DTPTransAct.Value.Date) ' 仅取日期部分，忽略时间

        DLDA.SelectCommand = DLCmd
        DLDA.Fill(DLDT)
        bsource.DataSource = DLDT
        DGVTransAct.DataSource = bsource

    Catch ex As Exception
        Exception = "ExecQuery Error: " & vbNewLine & ex.Message
        ' 可在这里添加错误提示，比如 MessageBox.Show(Exception)
    Finally
        DLConn.Close()
        Dim RecordCount1 As Integer = DLDT.Rows.Count ' 用Rows.Count统计结果更准确
        TextBox16.Text = $"{RecordCount1} Record(s) Found!"
    End Try
End Sub

辅助优化：确保DateTimePicker显示格式生效 #

如果想优化控件的显示效果，你可以调整窗体加载时的代码顺序，先设置格式再赋值，避免格式被覆盖：

Private Sub Navs_Load(Sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' 先设置格式，再设置日期值
    DTPTransAct.Format = DateTimePickerFormat.Custom
    DTPTransAct.CustomFormat = "yyyy-MM-dd"
    DTPTransAct.Value = Today.AddDays(-1)
End Sub

临时替代方案（不推荐） #

如果暂时不想用参数化查询，也可以直接对Value属性指定格式转换字符串，跳过受系统影响的Text属性：

' 替换原SQL字符串拼接行
Dim targetDate As String = DTPTransAct.Value.ToString("yyyy-MM-dd")
Dim SQLString As String = "Select * From table where name like '%" & TxtTransAct.Text & "%' and transactiondate BETWEEN '" & targetDate & "' AND '" & targetDate & "' Limit 5000;"

⚠️ 注意：这种方式依然存在SQL注入风险，仅作为临时过渡方案，最终建议替换为参数化查询。

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