The steps involved to search and delete records from the database are as follows:-
Create a form that contains a search option
Create an ASP file named searchdelete.asp that contains the following code:-
Step 1 : Open a connection to the database
<%
DIM CONNECT,SQL
SET CONNECT=SERVER.CreateObject("ADODB.CONNECTION")
STR="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MapPath("customerdata.MDB") (NOTE: customerdata.mdb is the name of the access database)
CONNECT.Open STR
%>
Step 2: create a recordset and retrieve the search textbox value
<%
DIM RECORD,searchid
searchid=Request.form("txtsearch")
searchid=" ' " & searchid & " ' " (NOTE: if idno is a string,then enclose it in quotes)
SET RECORD=SERVER.CreateObject("ADODB.RECORDSET")
sqlsearch="select * from member where memberid=" & searchid
RECORD.Open sqlsearch,CONNECT,2,3
%>
Step 3:- Retrieving records from the table and displaying the record
<%
if Record.EOF then
response.write "No matching records found"
else
Response.write "MemberID is" & record("memberid")
Response.write "Membername is" & record("membername")
Response.write "Member address is" & record("address")
session("id")=record("memberid") (Note:-Information on sessions)
%>
<%
end if
%>
Create another ASP file named delete.asp that contains the following code:-
<%
DIM CONNECT,SQL
SET CONNECT=SERVER.CreateObject("ADODB.CONNECTION")
STR="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MapPath("customerdata.MDB") (NOTE: customerdata.mdb is the name of the access database)
CONNECT.Open STR
DIM RECORD,searchid
searchid=session("id")
searchid=" ' " & session("id") & " ' " (NOTE: if idno is a string,then enclose it in quotes)
dim strdelete
strdelete="delete from member where memberid=" & searchid
connect.execute(strdelete)
response.write "record deleted"
end if
%>