VB.NET窗体提交数据至SQL Server 2014时重复存储问题排查

核心问题：重复执行INSERT命令 #

你的代码中存在两次执行INSERT语句的情况：

• sda.Fill(dt)：SqlDataAdapter的Fill方法会执行关联的SqlCommand，即使INSERT不会返回数据，它仍然会完成插入操作。
• cmd.ExecuteNonQuery()：再次执行同一个INSERT命令。

这直接导致每次提交都会插入两条完全相同的数据，是你看到重复记录的根本原因。

其他关键问题 #

1. SQL注入风险：通过字符串拼接用户输入构建SQL语句，极易被攻击者利用注入恶意代码，同时也会引发数据类型解析错误（比如日期、特殊字符处理异常）。
2. 未指定插入列：INSERT语句没有明确指定目标列，依赖于表的列顺序，一旦表结构变更，代码会直接失效。
3. 缺乏异常处理：没有捕获主键/唯一键冲突的异常，无法及时发现数据重复的深层原因（比如当修复重复执行后，若仍有重复提交，会抛出异常提醒）。

修正后的代码 #

' 确保连接已打开（根据你的连接管理逻辑调整）
conn.Open()

' 使用参数化查询，明确指定目标列
Dim cmdText As String = "INSERT INTO VisitorsRegister (sn_col, mn_col, ln_col, gender_col, comboDay_col, date5_col, pur_col, ici_col, ico_col, ti_col, tmo_col, fn_col, ra_col, fu_col) " &
                        "VALUES (@sn, @mn, @ln, @gender, @comboDay, @date5, @pur, @ici, @ico, @ti, @tmo, @fn, @ra, @fu)"

Dim cmd As New SqlCommand(cmdText, conn)

' 添加参数，替换参数名和数据类型为你的表实际列名与类型
cmd.Parameters.AddWithValue("@sn", sn.Text)
cmd.Parameters.AddWithValue("@mn", mn.Text)
cmd.Parameters.AddWithValue("@ln", ln.Text)
cmd.Parameters.AddWithValue("@gender", gender)
cmd.Parameters.AddWithValue("@comboDay", comboDay.Text)
' 日期类型建议用DateTime.Parse转换，避免格式错误
cmd.Parameters.AddWithValue("@date5", DateTime.Parse(date5.Text))
cmd.Parameters.AddWithValue("@pur", pur.Text)
cmd.Parameters.AddWithValue("@ici", ici.Text)
cmd.Parameters.AddWithValue("@ico", ico.Text)
cmd.Parameters.AddWithValue("@ti", ti.Text)
cmd.Parameters.AddWithValue("@tmo", tmo.Text)
cmd.Parameters.AddWithValue("@fn", fn.Text)
cmd.Parameters.AddWithValue("@ra", ra.Text)
cmd.Parameters.AddWithValue("@fu", fu.Text)

Try
    ' 仅执行一次插入操作
    cmd.ExecuteNonQuery()
    MsgBox("数据插入成功", vbInformation, "成功")
Catch ex As SqlException
    ' 捕获主键/唯一键冲突异常
    If ex.Number = 2627 Or ex.Number = 2601 Then
        MsgBox("数据已存在，无法重复插入", vbExclamation, "警告")
    Else
        MsgBox("插入失败：" & ex.Message, vbCritical, "错误")
    End If
Finally
    ' 确保连接关闭
    conn.Close()
End Try

重要说明 #

• 替换代码中的sn_col、mn_col等为你VisitorsRegister表的实际列名。
• 日期字段建议使用DateTime.Parse或DateTime.TryParse确保正确转换为SQL Server的日期类型，避免因格式问题导致的数据异常。
• 移除了冗余的SqlDataAdapter和DataTable，因为INSERT操作不需要返回数据。
• 添加了异常处理，当主键/唯一键冲突时会给出明确提示，避免静默重复插入。
• 若修复后仍出现重复数据，请检查你的唯一键约束是否正确覆盖了需要唯一标识访客的字段组合（比如姓名+证件号等），确保数据库层面能阻止真正的重复数据插入。

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