Jetzt fügen wir noch eine DELETE-Funktion ins Datagrid ein. Ziel: rechts neben den Recordsets soll, ein Löschen-Button platziert werden. Dieser löscht das davorstehende Recordset.

Ich erweitere die Seite "datagrid.asp" mit einen löschen Button "x"

datagrid.asp

... ' --- in der DO LOOP füge diese Zeile ein. hier wird für jedes Recordset ' --- ein Button erzeugt. jeder Button linkt auf die Seite "datadelete.asp ' --- zusätzlich wird jedem Button die ID des davorstehenden Recordsets ' --- übergeben(z.B. href='datadelete.asp?id=2) Response.Write "<td width=10><INPUT type=button value=X language=javascript onclick=location.href='datadelete.asp?id=" & rs.Fields("customerid") & "' id=btnDelete name=btnDelete></td></tr>"

Dazu erzeuge ich eine neue ASP-Datei "datadelete.asp".
Der Code für diese Seite ist sehr klein.(hier komplett abgebildet)

datadelete.asp

<%@ Language=VBScript %> <% '------------ Connection-Objekt instanziieren set conn = server.CreateObject("ADODB.Connection") '------------ öffnen der Connection des Recordsets conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" _ & Server.MapPath("./db/") & "\dbcustomer.mdb;" '------------ Löschen des gewählten Recordset mit DELETE FROM strSQL = "DELETE FROM Customers where CustomerID = " & Request.QueryString("ID") conn.Execute strSQL '------------ Objekt zerstören set conn = nothing Response.Redirect "datagrid.asp" %>

Den Kompletten Code für das Projekt(Datagrid 1-4) mit Datenbank und Email-Formular finden ihr unten zum Download