|
 |
| |
ลบข้อมูลไม่ได้ ทำตามบทเรียนครับ Sample1.asp sql ="Select * From awh where carlender |
| |
 |
|
|
 |
 |
|
Sample1.asp
<html>
<body>
<form name="form1" method="post" action="Sample1.asp">
<font size="2">วันที่ทำงาน
<input type="text" name="keyword" value="<%=Request.Form("keyword")%>">
<input type="submit" name="Submit" value="ค้นหา">
</font>
</form>
<font size="2">
<%
if Request.Form("keyword")="" then
Response.write("<br>กรุณากรอก Keyword เพื่อค้นหาจาก Field data work<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../main_database.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
sql ="Select * From awh where carlenderD like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง
<%Else%>
</font>
<table width="100%" border="1">
<tr bgcolor="Silver">
<td><font size="2">วันที่</font></td>
<td><font size="2">เลขใบสั่งงาน</font></td>
<td><font size="2">รหัสเครื่องจักร</font></td>
<td><font size="2">รหัสกลุ่มงาน</font></td>
<td><font size="2">เลขประจำตัว</font></td>
<td><font size="2">ชม.ปกติ</font></td>
<td><font size="2">รหัสโอที</font></td>
<td><font size="2">Ncode</font></td>
<td><font size="2">check delete</font></td>
<td><font size="2">วันที่บันทึก</font></td>
<td><font size="2">choliday</font></td>
<td><font size="2">ลบ</font></td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td><font size="2"><%= Rs("carlenderD")%></font></td>
<td><font size="2"><%= Rs("ono")%></font></td>
<td><font size="2"><%= Rs("group_code")%></font></td>
<td><font size="2"><%= Rs("work_group_code")%></font></td>
<td><font size="2"><%= Rs("employee_no")%></font></td>
<td><font size="2"><%= Rs("mh")%></font></td>
<td><font size="2"><%= Rs("tcode")%></font></td>
<td><font size="2"><%= Rs("ncode")%></font></td>
<td><font size="2"><%= Rs("check_delete")%></font></td>
<td><font size="2"><%= Rs("date")%></font></td>
<td><font size="2"><%= Rs("choliday")%></font></td>
<td><font size="2"><a href="Sample2.asp?calenderD=<%=Rs("calenderD")%>">Del</a></font></td>
</tr>
<% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
</table>
<font size="2">
<%
end if
%>
</font>
</body>
</html>
....................................
Sample2.asp
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../main_database.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
Conn.Execute "DELETE * FROM awh where calenderD="&Request.QueryString("calenderD")
Response.write("ลบข้อมูลแล้ว")
Conn.Close
%> 
................................................
เนื่องจากเป็นโปรแกรมที่ต้องใช้ทำงานด้วยจึงไม่สามารถแก้ไขฟิลท์ไดๆของโปรแกรมได้
1.CarlenderD และ Date ฟิลท์ เป็น Date/Time
2.MH และ MC ฟิลท์เป็น Number
3.นอกจากที่ข้อ1-2 ฟิลท์อื่นจะเป็น Text ครับ
4.ไม่ฟิลท์ไหนเป็น Key
ขอบคุณมากครับ
|
 |
 |
 |
 |
| Date :
6 พ.ค. 2548 12:37:12 |
By :
mmcmws |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|
| |
|
 Load balance : Server 00
|
