01.Imports System.Data
02.Imports System.Data.SqlClient
03.Partial Class FormEditAppointment
04. Inherits System.Web.UI.Page
05. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
06. If Not Page.IsPostBack() Then
07. Dim ConnString = "Server=localhost;Initial Catalog=SaleMarketing;Integrated Security=True"
08. Dim Conn = New SqlConnection(ConnString)
09. Conn.Open()
10.
11.
12.
13. Dim SQLstr = "SELECT * FROM APPOINTMENT where APPOINTMENT_ID='" & Request.QueryString("APPOINTMENT_ID") & "'"
14. Dim com = New SqlCommand(SQLstr, Conn)
15. Dim da = New SqlDataAdapter(com)
16. Dim dt = New DataTable()
17. da.Fill(dt)
18.
19. TextBox1.Text = dt.Rows(0)("APPOINTMENT_NAME")
20. TextBox2.Text = dt.Rows(0)("APPOINTMENT_DESC")
21. txtDate.Text = dt.Rows(0)("APPOINTMENT_START_TIME")
22. txtDate1.Text = dt.Rows(0)("APPOINTMENT_NOTICE_DATE")
23. DropDownList1.Text = dt.Rows(0)("APPOINTMENT_STATUS")
24. DropDownList3.Text = dt.Rows(0)("APPOINTMENT_ASSIGN")
25.
26. End If
27. End Sub
28. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
29. Dim ConnString = "Server=localhost;Initial Catalog=SaleMarketing;Integrated Security=True"
30. Dim Conn = New SqlConnection(ConnString)
31. Conn.Open()
32. Dim sqlstr = "update APPOINTMENT set APPOINTMENT_NAME='" & TextBox1.Text & "',APPOINTMENT_DESC='" & TextBox2.Text & "',APPOINTMENT_START_TIME='" & txtDate.Text & "',APPOINTMENT_NOTICE_DATE='" & txtDate1.Text & "',APPOINTMENT_STATUS='" & DropDownList1.Text & "',APPOINTMENT_ASSIGN='" & DropDownList3.Text & "' where APPOINTMENT_ID='" & Request.QueryString("APPOINTMENT_ID") & "'"
33.
34. Dim com = New SqlCommand(sqlstr, Conn)
35. com.ExecuteNonQuery()
36.
37. MsgBox("บันทึกข้อมูล 'เรียบร้อย'", MsgBoxStyle.Information, "เรียบร้อย")
38. Response.Redirect("Appointment.aspx")
39.
40. End Sub
41.End Class
