01.
02. Dim Conn As New OleDbConnection
03. Dim Cmd As New OleDbCommand
04. Dim cmdtext As String
05.
06. Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dormitory.mdb;"
07.
08. cmdtext = "UPDATE EmpDetail "
09. cmdtext = cmdtext & " SET EmpType = '" & lblType.Text & "',"
10. cmdtext = cmdtext & " Reson = '" & lblReson.Text & "', "
11. cmdtext = cmdtext & " Asset = '" & lblAsset.Text & "',"
12. cmdtext = cmdtext & " Reservation = '" & lblReservation.Text & "',"
13. cmdtext = cmdtext & " Roomnumber = '" & lblRoom.Text & "',"
14. cmdtext = cmdtext & "StatusId = " & cmbApp.SelectedValue & "'" มันติดตรงนี้แหละครับทุกท่าน
15. cmdtext = cmdtext & "WHERE ( EmpId =" & CInt(lblId.Text) & ")"
16.
17. Conn.ConnectionString = Cnnstring
18. Cmd.Connection = Conn
19. Conn.Open()
20. Cmd.CommandText = cmdtext
21. Cmd.CommandType = CommandType.Text
22.
23. Cmd.ExecuteNonQuery()
24. Conn.Close()
25.
26. MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ผลการบันทึก", MessageBoxButtons.OK, MessageBoxIcon.Question)
27.
28.
29.
30. MessageBox.Show("กรอกข้อมูลไม่ถูกต้อง กรุณาตรวจสอบอีกครั้ง", "เกิดข้อผิดพลาดเกี่ยวกับระบบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
31.
32.
33.
34. Dim sql As String
35.
36. sql = "SELECT Emp.EmpId,Emp.Prefix,Emp.EmpName,Emp.EmpLastname,Emp.Depertment,Emp.Address,Emp.District,Emp.Province,EmpDetail.EmpType,EmpDetail.Reson,EmpDetail.Asset,EmpDetail.Reservation,EmpDetail.Roomnumber FROM Emp INNER JOIN EmpDetail ON Emp.EmpId = EmpDetail.EmpId WHERE EmpDetail.StatusId = 3"
37.
38. Dim adapter As New OleDbDataAdapter(sql, Cnnstring)
39.
40. Dim dt As New DataTable("Emp")
41. adapter.Fill(dt)
42.
43. DataGridView1.DataSource = dt
