<%@ Page Language="VB" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.OleDb" %> <script runat="server"> Dim objConn As New OleDbConnection Dim objCmd As New OleDbCommand Dim dtReader As OleDbDataReader Dim strConnString, strSQL As String Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database/db_news.mdb") & ";Jet OLEDB:Database Password=;" objConn.ConnectionString = strConnString objConn.Open() If Not Page.IsPostBack() Then ViewData() End If End Sub Sub ViewData() '*** DataTable ***' Dim dtAdapter As OleDbDataAdapter Dim dt As New DataTable strSQL = "SELECT * FROM tb_user WHERE u_id = '" & Request.QueryString("u_id") & "' " dtAdapter = New OleDbDataAdapter(strSQL, objConn) dtAdapter.Fill(dt) If dt.Rows.Count > 0 Then Me.u_id.Text = dt.Rows(0)("u_id") Me.txtUsername.Text = dt.Rows(0)("Username") Me.txtPassword.Text = dt.Rows(0)("Password") End If End Sub Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) strSQL = "UPDATE tb_user SET " & _ " ,Username = '" & Me.txtUsername.Text & "' " & _ " ,Password = '" & Me.txtPassword.Text & "' " & _ " WHERE u_id = '" & Request.QueryString("u_id") & "' " objCmd = New OleDbCommand With objCmd .Connection = objConn .CommandText = strSQL .CommandType = CommandType.Text End With Me.pnlAdd.Visible = False Try objCmd.ExecuteNonQuery() Me.lblStatus.Text = "บันทึกข้อมูลเรียบร้อย" Me.lblStatus.Visible = True Response.Redirect("Show.aspx") Catch ex As Exception Me.lblStatus.Text = "ไม่สามารถบันทึกข้อมูลได้ (" & ex.Message & ")" End Try End Sub Sub Page_UnLoad() objConn.Close() objConn = Nothing End Sub </script> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>Edit</title> </head> <body> <form id="form1" runat="server"> <asp:Panel id="pnlAdd" runat="server"> <table width="353" border="1"> <tbody> <tr> <td width="102"> <asp:Label id="lblu_id" runat="server" text="รหัส"></asp:Label> </td> <td width="235"> <asp:Label ID="u_id" runat="server" Text="u_id"></asp:Label></td> </tr> <tr> <td style="height: 28px"> <asp:Label id="lblUsername" runat="server" text="ชื่อผู้ใช้"></asp:Label> </td> <td style="height: 28px"> <asp:TextBox ID="txtUsername" runat="server"></asp:TextBox></td> </tr> <tr> <td> <asp:Label id="lblPassword" runat="server" text="รหัสผ่าน"></asp:Label> </td> <td> <asp:TextBox ID="txtPassword" runat="server"></asp:TextBox></td> </tr> </tbody> </table> <br /> <asp:Button id="btnSave" onclick="btnSave_Click" runat="server" Text="Save"> </asp:Button> <br /> </asp:Panel> <asp:Label id="lblStatus" runat="server" visible="True"></asp:Label> </form> </body> </html>
Quote:" ,Username = '" & Me.txtUsername.Text & "' " & _
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
Quote:
