01.Imports System.Data
02.Imports System.Data.OleDb
03.Partial Class frm_edit2
04. Inherits System.Web.UI.Page
05. Dim objConn As New OleDbConnection
06. Dim objCmd As New OleDbCommand
07. Dim dtReader As OleDbDataReader
08. Dim strConnString, strSQL As String
09.
10. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
11. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/mydatabase.mdb") & ";Jet OLEDB:Database Password=;"
12. objConn.ConnectionString = strConnString
13. objConn.Open()
14.
15. If Not Page.IsPostBack() Then
16. ViewData()
17. End If
18.
19. Dim dtAdapter As OleDbDataAdapter
20. Dim dt As New DataTable
21. If Not Page.IsPostBack() Then
22.
23. Dim strSQL As String
24. strSQL = "SELECT *FROM tb_type"
25. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
26. dtAdapter.Fill(dt)
27. dtAdapter = Nothing
28. objConn.Close()
29. objConn = Nothing
30. With Me.listtype_id
31. .DataSource = dt
32. .DataTextField = "type_name"
33. .DataValueField = "type_id"
34. .DataBind()
35.
36. End With
37. listtype_id.SelectedIndex = listtype_id.Items.IndexOf(listtype_id.Items.FindByValue("type_id"))
38. End If
39. End Sub
40.
41. Sub ViewData()
42.
43. Dim dtAdapter As OleDbDataAdapter
44. Dim dt As New DataTable
45. strSQL = "SELECT * FROM tb_book WHERE book_id = '" & Request.QueryString("book_id") & "' "
46. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
47. dtAdapter.Fill(dt)
48.
49. If dt.Rows.Count > 0 Then
50. Me.txtbook_id.Text = dt.Rows(0)("book_id")
51. Me.txtbook_name.Text = dt.Rows(0)("book_name")
52. Me.txtbook_by.Text = dt.Rows(0)("book_by")
53. Me.txtbook_number.Text = dt.Rows(0)("book_number")
54. Me.txtbook_detail.Text = dt.Rows(0)("book_detail")
55. Me.txtbook_price.Text = dt.Rows(0)("book_price")
56. Me.listtype_id.SelectedItem.Value = dt.Rows(0)("type_id")
57. End If
58. End Sub
59.
60. Protected Sub save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles save.Click
61. strSQL = "UPDATE tb_book SET " & _
62. " book_id = '" & Me.txtbook_id.Text & "' " & _
63. " ,book_name = '" & Me.txtbook_name.Text & "' " & _
64. " ,book_by = '" & Me.txtbook_by.Text & "' " & _
65. " ,book_number = '" & Me.txtbook_number.Text & "' " & _
66. " ,book_detail = '" & Me.txtbook_detail.Text & "' " & _
67. " ,book_price = '" & Me.txtbook_price.Text & "' " & _
68. " ,type_id = '" & Me.listtype_id.SelectedItem.Value & "' " & _
69. " WHERE book_id = '" & Request.QueryString("book_id") & "' "
70.
71. objCmd = New OleDbCommand
72. With objCmd
73. .Connection = objConn
74. .CommandText = strSQL
75. .CommandType = CommandType.Text
76. End With
77.
78. Me.pnlAdd.Visible = False
79. Try
80. objCmd.ExecuteNonQuery()
81. Me.lblstatus.Text = "แก้ไขข้อมูลเรียบร้อยแล้ว"
82. Me.lblstatus.Visible = True
83. Catch ex As Exception
84. Me.lblstatus.Text = "ไม่สามารถแก้ไขข้อมูลได้"
85. End Try
86.
87. End Sub
88.
89. Sub Page_UnLoad()
90. objConn.Close()
91. objConn = Nothing
92. End Sub
93.End Class
