|
 |
| |
รบกวนพี่ช่วยด้วยครับ ผมทำระบบปิดใบสั่งงานส่งอาจารย์ครับ Code เอาที่บทเรียน เรื่องการแก้ไขข้อมูล |
| |
 |
|
|
 |
 |
|
ผมทำระบบปิดใบสั่งงานส่งอาจารย์ครับ Code เอาที่บทเรียน เรื่องการแก้ไขข้อมูล
นำมาทำครับโดยที่ฐานข้อมูลตรง ID ผมต้องเปลี่ยนรูปแบบจาก AutoNumber มาเป็น TEXT ครับ
และก็เป็น Key พอคลิ๊กที่ Edit ก็ Error ครับ ลองเปลี่ยนหลายรูปแบบมาหลายวันแล้วครับไม่ได้ครับอยากขอความกรุณาจากพี่ช่วยแก้ไขให้ด้วยครับ
..................................
Sample1.asp
<html>
<body>
<form name="form1" method="post" action="Sample1.asp">
ค้นหาจาก Description
<input type="text" name="keyword" value="<%=Request.Form("keyword")%>">
<input type="submit" name="Submit" value="ค้นหา">
</form>
<%
if Request.Form("keyword")="" then
Response.write("<br>กรุณากรอก Keyword เพื่อค้นหาจาก Field Description<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
sql ="Select * From product where description like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง !
<%Else%>
<table border="1">
<tr bgcolor="Silver">
<td>id</td>
<td>barcode</td>
<td>Description</td>
<td>Price</td>
<td>Page</td>
<td>writer</td>
<td>Edit</td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td><%= Rs("Id")%></td>
<td><%= Rs("barcode")%></td>
<td><%= Rs("description")%></td>
<td><%= Rs("price")%></td>
<td><%= Rs("page")%></td>
<td><%= Rs("writer")%></td>
<td><a href="Sample2.asp?id=<%=Rs("id")%>">Edit</a></td>
</tr>
<% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
</table>
<%
end if
%>
</body>
</html>
..............................................
Sample2.asp
<html>
<head>
<title>แก้ไขข้อมูล</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"><body bgcolor="#FFFFFF">
<form name="form1" method="post" action="Sample3.asp">
แก้ไขข้อมูล <br>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
sql ="Select * From product where id="&Request.QueryString("id")
Set Rs = Conn.Execute(sql)
%>
<input type="hidden" name="id" value="<%=Rs("id")%>">
<br>
<table width="28%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41%">Barcode</td>
<td width="59%">
<input type="text" name="barcode" value="<%=Rs("barcode")%>">
</td>
</tr>
<tr>
<td width="41%">Description</td>
<td width="59%">
<input type="text" name="description" value="<%=Rs("description")%>">
</td>
</tr>
<tr>
<td width="41%">Price</td>
<td width="59%">
<input type="text" name="price" size="10" value="<%=Rs("price")%>">
</td>
</tr>
<tr>
<td width="41%">Page</td>
<td width="59%">
<input type="text" name="page" size="10" value="<%=Rs("page")%>">
</td>
</tr>
<tr>
<td width="41%">Writer</td>
<td width="59%">
<input type="text" name="writer" value="<%=Rs("writer")%>">
</td>
</tr>
</table>
<br>
<input type="submit" name="Submit2" value="Submit">
<input type="reset" name="Reset" value="Reset">
</form>
</body>
</html>
.....................................................
Sample3.asp
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
sql ="Select * From product where id="&Request.Form("id")
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Rs("barcode") = Request.Form("barcode")
Rs("description") = Request.Form("description")
Rs("price") = Request.Form("price")
Rs("page") = Request.Form("page")
Rs("writer") = Request.Form("writer")
Rs.Update
Conn.Close
response.write("แก้ไขข้อมูลเรียบร้อยแล้ว")
%>
............................................................................
ขอบคุณครับ 
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
8 เม.ย. 2548 14:48:28 |
By :
MMCMWS |
View :
2484 |
Reply :
0 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
|
| |
|
 Load balance : Server 04
|
