ลบบันทึก ADO
- หน้าก่อน ปรับปรุง ADO
- หน้าต่อไป การเพิ่มความเร็ว ADO
আমরা SQL-এর DELETE কমান্ড ব্যবহার করে ডাটাবেস টেবিলের কোনও রেকর্ড মুছে ফেলতে পারি
টেবিলের রেকর্ড মুছে ফেলা
আমরা নর্থউইন্ড ডাটাবেসের Customers টেবিলের একটি রেকর্ড মুছে ফেলতে চাই। প্রথমে আমাদের কিছু রেকর্ডগুলির তালিকা তৈরি করতে হবে যাতে Customers-এর সকল রেকর্ডগুলি উপস্থিত থাকে
<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" খুলবে। এই ফাইলটিতে ডাটাবেসের রেকর্ডের ক্ষেত্রগুলির ভিত্তিতে ইনপুট ডোমেইন তৈরি করার সোর্স কোড রয়েছে, এবং এটিতে বর্তমান রেকর্ডকে মুছে দেওয়ার "মুছে দিন" বুটনও রয়েছে:
<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>
- หน้าก่อน ปรับปรุง ADO
- หน้าต่อไป การเพิ่มความเร็ว ADO