防止插入重复数据记录（3列作为1条记录）-vb.net

Question

我正在做一个插入功能，它允许管理员为课堂预订目的创建时间段。该列将是房间、时间和日期。如果我想防止重复插入数据怎么办？

例如：房间 1,1pm, 12 July 2014 可以插入两次。 我可以包括什么样的查询来防止它？ 这是我的代码：

    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    con.ConnectionString = 
    con.Open()
    cmd.Connection = con

    cmd.CommandText = "INSERT INTO [Room] ([room],[time],[date]) VALUES('" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Text & "' )"
    cmd.ExecuteNonQuery()
    MsgBox("Classroom and time is opened for student to book!")
    con.Close()

Answer 1

您可以像这样使用MERGE T-SQL 命令查询。 (Sql Server 2008)

cmd.CommandText = "MERGE INTO Room as Target " & _
      "USING (SELECT @rm as r, @tm as t, @dt as d) as Source " & _
      "ON Target.Room = Source.r AND Target.[time] = Source.t AND Target.[date] = Source.d " & _
      "WHEN NOT MATCHED THEN " & _
      "INSERT ([room],[time],[date]) VALUES (@rm, @tm, @dt);"

此查询在 Room 表中搜索您的输入与已存在的记录之间的完全匹配。如果没有匹配，则执行插入。如果有匹配，则什么也不做。

如您所见，此查询没有像上面的示例那样使用字符串连接。因此，您还需要更改代码以使用参数化查询

cmd.Parameters.AddWithValue("@rm", ComboBox1.Text)
cmd.Parameters.AddWithValue("@tm", ComboBox2.Text)
cmd.Parameters.AddWithValue("@dt", DateTimePicker1.Text)
Dim rowInserted = cmd.ExecuteNonQuery()
If rowInserted > 0 Then
   MessageBox.Show("Row inserted")
else
   MessageBox.Show("Already booked")
End If

但这种方法会引出另一个问题。
您确定您的字段 Time 和 Date（我建议更改这些名称）是 NVARCHAR 或其他文本类型吗？
它们似乎是 DateTime，因此您需要传递具有适当日期类型的参数。