编写vb.net代码,在form4窗体修改预约信息,填入修改后的信息,例如预约名、预约包厢,点击确定后覆盖sql server的表内原记录(对应的预约号不变)
时间: 2024-03-13 20:46:25 浏览: 23
请参考以下VB.NET代码实现:
在Form4窗体的确定按钮Click事件中添加以下代码:
```
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
'获取要修改的预约号
Dim appointmentID As Integer = Me.appointmentID
'执行更新操作
Dim sql As String = "UPDATE Appointment SET AppointmentName = @AppointmentName, RoomNumber = @RoomNumber WHERE AppointmentID = @AppointmentID"
Dim cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@AppointmentName", txtAppointmentName.Text)
cmd.Parameters.AddWithValue("@RoomNumber", cboRoomNumber.SelectedItem.ToString())
cmd.Parameters.AddWithValue("@AppointmentID", appointmentID)
cmd.ExecuteNonQuery()
'关闭窗体
Me.Close()
End Sub
```
在更新操作中,可以根据appointmentID查询到对应的记录并更新预约名和包厢号。更新完成后,关闭Form4窗体。请注意,这里的conn是一个已经初始化好的SqlConnection对象,需要在Form4的构造函数中传递进来或者在Form4中重新初始化。
以上代码仅为参考,请根据实际情况进行修改。