ล่าสุดการพัฒนาเว็บบทเรียน
×

ASP เกี่ยวกับการสอน

ASP บ้าน ASP บทนำ ASP ติดตั้ง ASP วากยสัมพันธ์ ASP ตัวแปร ASP ขั้นตอน ASP ฟอร์ม ASP Cookies ASP เซสชั่น ASP ใบสมัคร ASP #ประกอบด้วย ASP Global.asa ASP ส่งอีเมลล์

VBScript เกี่ยวกับการสอน

VB บ้าน VB ตัวแปร VB ขั้นตอน VB เงื่อนไข VB วนลูป VB ตัวอย่าง VB ฟังก์ชั่น VB คำสำคัญ

ASP วัตถุ

ASP คำตอบ ASP ขอร้อง ASP ใบสมัคร ASP เซสชั่น ASP เซิร์ฟเวอร์ ASP ผิดพลาด ASP FileSystem ASP TextStream ASP ขับรถ ASP ไฟล์ ASP โฟลเดอร์ ASP พจนานุกรม ASP AdRotator ASP BrowserCap ASP การเชื่อมโยงเนื้อหา ASP Rotator เนื้อหา ASP Ref ด่วน

ADO เกี่ยวกับการสอน

ADO แนะนำ ADO สัมพันธ์ ADO ระเบียน ADO แสดง ADO สอบถาม ADO ประเภท ADO เพิ่ม ADO ปรับปรุง ADO ลบ ADO การสาธิต ADO เร่งความเร็ว

ADO วัตถุ

ADO คำสั่ง ADO สัมพันธ์ ADO ผิดพลาด ADO สนาม ADO พารามิเตอร์ ADO คุณสมบัติ ADO บันทึก ADO ระเบียน ADO กระแส ADO ประเภทข้อมูล

ASP and AJAX

AJAX แนะนำ AJAX ASP AJAX ฐานข้อมูล

ASP ตัวอย่าง

ASP ตัวอย่าง ASP ทดสอบ


 

ADO ลบประวัติ


เราอาจใช้ SQL คำสั่งลบเพื่อลบระเบียนในตารางในฐานข้อมูล


ลบบันทึกในตาราง

เราต้องการที่จะลบระเบียนในตารางลูกค้าในฐานข้อมูล Northwind ครั้งแรกที่เราสร้างตารางที่แสดงระเบียนทั้งหมดในตารางลูกค้าดังนี้

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM customers",conn
%>

<h2>List Database</h2>
<table border="1" width="100%">
<tr>
<%
for each x in rs.Fields
  response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<% do until rs.EOF %>
<tr>
<form method="post" action="demo_delete.asp">
<%
for each x in rs.Fields
  if x.name="customerID" then%>
    <td>
    <input type="submit" name="customerID" value="<%=x.value%>">
    </td>
  <%else%>
    <td><%Response.Write(x.value)%></td>
  <%end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
conn.close
%>
</table>

</body>
</html>

หากผู้ใช้คลิกที่ปุ่มในส่วน "customerID" คอลัมน์ที่เขาหรือเธอจะถูกนำไปเป็นไฟล์ใหม่ที่เรียกว่า "demo_delete.asp" "demo_delete.asp" ไฟล์มีรหัสที่มาเกี่ยวกับวิธีการสร้างช่องใส่ขึ้นอยู่กับเขตข้อมูลจากหนึ่งระเบียนในตารางฐานข้อมูล นอกจากนี้ยังมี "Delete record" ปุ่มที่จะลบระเบียนปัจจุบัน:

<html>
<body>

<h2>Delete Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

cid=Request.Form("customerID")

if Request.form("companyname")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'",conn
  %>
  <form method="post" action="demo_delete.asp">
  <table>
  <%for each x in rs.Fields%>
  <tr>
  <td><%=x.name%></td>
  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>
  <%next%>
  </tr>
  </table>
  <br><br>
  <input type="submit" value="Delete record">
  </form>
<%
else
  sql="DELETE FROM customers"
  sql=sql & " WHERE customerID='" & cid & "'"
  on error resume next
  conn.Execute sql
  if err<>0 then
    response.write("No update permissions!")
  else
    response.write("Record " & cid & " was deleted!")
  end if
end if
conn.close
%>

</body>
</html>