VB.NET按指定日期迁移SQL指定患者表行失败，求解决方案

原代码的核心问题 #

• 直接拼接SQL字符串存在SQL注入风险，同时日期字符串格式可能与数据库期望的格式不兼容，导致CAST转换失败。
• 未对输入的日期文本做有效性验证，若文本框内容不是合法日期，会直接引发数据库错误。

可行的解决方法 #

使用参数化查询替代字符串拼接，这既能避免SQL注入，又能让数据库自动处理日期类型的转换，无需手动CAST：

' 先验证输入的日期是否合法
Dim resetDate As DateTime
If Not DateTime.TryParse(txtInsReset.Text, resetDate) Then
    MessageBox.Show("请输入有效的日期格式")
    Return
End If

' 使用参数化查询执行迁移
Using cmd As New OleDbCommand()
    cmd.Connection = conn
    cmd.CommandText = "INSERT INTO TblArchive SELECT * FROM TblServiceLog WHERE PatientID = ? AND DateOfService < ?"
    
    ' 添加参数，数据库会自动处理类型转换
    cmd.Parameters.AddWithValue("PatientID", txtPatientID.Text)
    cmd.Parameters.AddWithValue("ResetDate", resetDate)
    
    ' 执行操作
    cmd.ExecuteNonQuery()
End Using

额外优化建议 #

1. 不要使用SELECT *，明确指定需要迁移的列名，避免两张表结构变化时出现错误：

   INSERT INTO TblArchive (PatientID, DateOfService, Column1, Column2)
   SELECT PatientID, DateOfService, Column1, Column2 
   FROM TblServiceLog 
   WHERE PatientID = ? AND DateOfService < ?
   

2. 执行迁移后，若需要清理原表数据，可以添加删除操作：

   ' 执行完插入后，删除原表的对应行
   cmd.CommandText = "DELETE FROM TblServiceLog WHERE PatientID = ? AND DateOfService < ?"
   cmd.ExecuteNonQuery()
   

3. 确保TblArchive和TblServiceLog的表结构完全匹配（如果用SELECT *），否则会因列数/类型不匹配报错。

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