การลบข้อมูลในบทเรียน เอาบทเรียนการลบข้อมูลมาใช้พอถึงตอนกด Del จะขึ้นข้อความ Error Type:
จะลองบอกเท่าที่รู้นะครับ บังเอิญก็ไม่ค่อยเก่ง
อย่างงี้เท่าที่เคยเจอเนี่ย ค่าที่คุณเก็บเอาไว้นี่คงเป็น type ประเภทtext ใช่ป่ะครับ เวลาที่เราจะเทียบค่าเนี่ย
มันอาจจะต้องเป็น number ลองเปลี่ยน type ในฟิลล์นั้นเป็นnumber ดูครับ
Date :
13 ก.พ. 2548 22:19:07
By :
gototon
ขอดูโค้ดหน่อยได้หรือเปล่าครับ
Date :
14 ก.พ. 2548 09:58:16
By :
วัลลภ
ก็ประมาณนี้อ่ะนะครับ คือให้ลบจังหวัด จากที่อยู่รหัสจังหวัดที่ได้รับค่ามา
<%
Conn.Execute "DELETE * FROM province where province_id="&Request.QueryString("province_id")
Response.write("ลบข้อมูลแล้ว")
Conn.Close
%>
Date :
14 ก.พ. 2548 12:41:22
By :
gototon
ฐานข้อมูลทุกตัวเป็น TEXT ยกเว้น MHกับMC เป็น Number
Code ที่ใช้
Sample1.asp
<html>
<body>
<form name="form1" method="post" action="Sample1.asp">
<font size="2">ค้นหาจาก Dcode
<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 เพื่อค้นหาจาก Dcode<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 Dcode like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง !
<%Else%>
</font>
<table width="100%">
<tr bgcolor="Silver">
<td><font size="2">id</font></td>
<td><font size="2">barcode</font></td>
<td><font size="2">Description</font></td>
<td><font size="2">Price</font></td>
<td><font size="2">Page</font></td>
<td><font size="2">writer</font></td>
<td><font size="2">Del</font></td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td><font size="2"><%= Rs("Dcode")%></font></td>
<td><font size="2"><%= Rs("Order_No")%></font></td>
<td><font size="2"><%= Rs("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"><a href="Sample2.asp?Dcode=<%=Rs("Dcode")%>">Del</a></font></td>
</tr>
<% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
</table>
<%
end if
%>
</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 Dcode="&Request.QueryString("Dcode")
Response.write("ลบข้อมูลแล้ว")
Conn.Close
%>
...................................................
ช่วยด้วยครับทำมาเป็นอาทิตย์แล้วครับไม่ได้เลยจริงๆถ้าจะกรุณาเขียนโค๊ดให้ด้วยจะขอบพระคุณอย่างยิ่งครับ
Date :
14 ก.พ. 2548 13:29:01
By :
mmcmws
ม่ายอาว
บอกว่า MH กับ MC เป็น Number เท่านั้นใช่ไหมครับที่เหลือเป็น text
แล้ว Dcode ล่ะครับ ไม่เปลี่ยนเป็น number ถ้าเป็น Number น่าจะได้นะครับ
Date :
14 ก.พ. 2548 14:29:59
By :
gototon
โปรแกรมนี้มีส่วนที่เชื่อมโยงตารางหลายตารางครับคือทีแรกเขียนเป็นโปรแกรม Access เอาเก็บใว้ใน Server ของแผนกเพื่อให้หน่วยงานแต่ละหน่วยทำงานครับทีนี้ปัญหาคือมันช้าครับ ถ้าแก้ส่วนอื่นต้องไล่กันใหม่ครับ
Date :
22 ก.พ. 2548 11:51:49
By :
mmcmws
Load balance : Server 03