编写vb.net代码来取消餐厅包厢预订。这将涉及从数据库中删除与预订相关的数据

以下是一个简单的 VB.NET 代码示例，用于取消餐厅包厢预订并从数据库中删除相关数据。

' 数据库连接字符串
Dim connString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
' 预订表格名称
Dim tableName As String = "Reservations"

' 输入参数 - 包间号和预订时间
Dim roomNumber As Integer = 1
Dim reservationTime As DateTime = DateTime.Parse("2021-08-01 18:00:00")

' 取消预订并删除预订信息
DeleteReservation(roomNumber, reservationTime, connString, tableName)

' 提示用户取消预订成功
MessageBox.Show("您已成功取消包间 #" & roomNumber & " 在 " & reservationTime.ToString("yyyy-MM-dd HH:mm:ss") & " 的用餐预订。")


' 删除预订信息的函数
Private Sub DeleteReservation(ByVal roomNumber As Integer, ByVal reservationTime As DateTime, ByVal connString As String, ByVal tableName As String)
    ' 创建数据库连接
    Using conn As New SqlConnection(connString)
        ' 创建 SQL 删除语句
        Dim sql As String = "DELETE FROM " & tableName & " WHERE RoomNumber = @RoomNumber AND ReservationTime = @ReservationTime"

        ' 创建命令对象
        Using cmd As New SqlCommand(sql, conn)
            ' 添加参数
            cmd.Parameters.AddWithValue("@RoomNumber", roomNumber)
            cmd.Parameters.AddWithValue("@ReservationTime", reservationTime)

            ' 打开连接并执行删除
            conn.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using
End Sub

请注意，该示例仅提供了一个简单的框架，您需要根据您的具体情况进行修改和扩展。另外，您需要将数据库连接字符串和表格名称替换为您自己的值。