Auslassung der Aufzeichnung von der Tabelle in der Datenbank verwendeten wir Löschungmethode in den ActiveX Daten-Gegenständen (ADO). Für diese Notwendigkeit können wir den SQL LÖSCHUNG-Befehl verwenden, eine Aufzeichnung in einer Tabelle in einer Datenbank zu löschen.

Eine Aufzeichnung in einer Tabelle löschen

Wenn wir eine Aufzeichnung in der Angestellttabelle in der dataone Datenbank löschen möchten. Wir stellen zuerst eine Tabelle her, die alle Aufzeichnungen in der Angestellttabelle verzeichnet:

<html>
<body>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/database/dataone.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM employee",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="employeeID" then%>
<td>
<input type="submit" name="employeeID"
value="<%=x.value%>">
</td>
<%else%>
<td><%Response.Write(x.value)%></td>
<%end if
next

%>

</form> <%rs.MoveNext%>
</tr>

<%

loop
conn.close

%>

</table>
</body>
</html>

Wenn der Benutzer an die Taste in der „employeeID“ Spalte er klickt oder sie wird zu einer neuen Akte genommen, die „demo_delete.asp“ genannt wird. Die „demo_delete.asp“ Akte enthält das Quellenprogramm auf, wie man Eingang auffängt gegründet auf auffängt von einer Aufzeichnung in der Datenbanktabelle verursacht. Sie enthält auch eine „Löschungrekord“ Taste, die die gegenwärtige Aufzeichnung löscht:

<html>
<body>

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

cid=Request.Form("employeeID")

if Request.form("companyname")="" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM employee WHERE employeeID='" & 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 employee"
sql=sql & " WHERE employeeID='" & 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>

Schlüsselwörter: AUFHEBEN Löschung, Aufhebennetzlöschung, Aufheben recordset Löschung, adodb recordset Löschung, recordset Löschung, grundlegendes sichtlichaufheben, Aufheben speicherte Verfahren, Aufhebenanschlußzeichenkette, sql Bedienerlöschung

HTML Quizes

XML Quizes