Previous PageNext Page

9.8.14 Delete Method

Deletes the current record or a group of records.
 

Syntax

recordset.Delete AffectRecords

Parameters

AffectRecords
An optional AffectEnum value that determines how many records the Delete method will affect. Can be one of the following constants:

Constant Description
adAffectCurrent
 
Default. Delete only the current record.
 
adAffectGroup
 
Delete the records that satisfy the current Filter property setting. You must set the Filter property to one of the valid predefined constants in order to use this option. The Filter property is not currently supported on UNIX.
 

Remarks

Using the Delete method marks the current record or a group of records in a Recordset object for deletion. If the Recordset object doesn't allow record deletion, an error occurs. If you are in immediate update mode, deletions occur in the database immediately. Otherwise, the records are marked for deletion from the cache and the actual deletion happens when you call the UpdateBatch method. (Use the Filter property to view the deleted records.)
 
Retrieving field values from the deleted record generates an error. After deleting the current record, the deleted record remains current until you move to a different record. Once you move away from the deleted record, it is no longer accessible.
 
If you nest deletions in a transaction, you can recover deleted records with the RollbackTrans method. If you are in batch update mode, you can cancel a pending deletion or group of pending deletions with the CancelBatch method.
 
If the attempt to delete records fails because of a conflict with the underlying data (for example, a record has already been deleted by another user), the provider returns warnings to the Errors collection but does not halt program execution. A run-time error occurs only if there are conflicts on all the requested records.
 

Examples

This VBScript example uses the Delete method to remove a specified record from a Recordset.
 

<!-- #Include file="ADOVBS.INC" -->

<% Language = VBScript %>

<HTML>

<HEAD><TITLE>ADO 1.5 Delete Method</TITLE>

</HEAD><BODY>

<FONT FACE="MS SANS SERIF" SIZE=2>

<Center><H3>ADO Delete Method</H3>

<!--- ADO Connection Object used to create recordset-->

<%

'Create and Open Connection Object

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")

OBJdbConnection.Open "AdvWorks"

'Create and Open Recordset Object

Set RsCustomerList = Server.CreateObject("ADODB.Recordset")

RsCustomerList.ActiveConnection = OBJdbConnection

RsCustomerList.CursorType = adOpenKeyset

RsCustomerList.LockType = adLockOptimistic

RsCustomerList.Source = "Customers"

RsCustomerList.Open

%>

<!-- Move to designated Record and Delete It -->

<%

If Not IsEmpty(Request.Form("WhichRecord")) Then

`Get value to move from Form Post method

Moves = Request.Form("WhichRecord")

RsCustomerList.Move CInt(Moves)

If Not RsCustomerList.EOF or RsCustomerList.BOF Then

RsCustomerList.Delete 1

RsCustomerList.MoveFirst

Else

Response.Write "Not a Valid Record Number"

RsCustomerList.MoveFirst

End If

End If

%>

<!-- BEGIN column header row for Customer Table-->

<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0><TR>

<TD ALIGN=CENTER BGCOLOR="#008080">

<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Company Name</FONT>

</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">

<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Contact Name</FONT>

</TD>

<TD ALIGN=CENTER WIDTH=150 BGCOLOR="#008080">

<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Phone Number</FONT>

</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">

<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>City</FONT>

</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">

<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>State/Province</FONT>

</TD></TR>

<!--Display ADO Data from Customer Table Loop through Recordset

adding one Row to HTML Table each pass-->

<% Do While Not RsCustomerList.EOF %>

<TR><TD BGCOLOR="f7efde" ALIGN=CENTER>

<FONT STYLE="ARIAL NARROW" SIZE=1>

<%= RSCustomerList("CompanyName")%>

</FONT></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER>

<FONT STYLE="ARIAL NARROW" SIZE=1>

<%= RScustomerList("ContactLastName") & ", " %>

<%= RScustomerList("ContactFirstName") %>

</FONT></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER>

<FONT STYLE="ARIAL NARROW" SIZE=1>

<%= RScustomerList("PhoneNumber")%>

</FONT></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER>

<FONT STYLE="ARIAL NARROW" SIZE=1>

<%= RScustomerList("City")%>

</FONT></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER>

<FONT STYLE="ARIAL NARROW" SIZE=1>

<%= RScustomerList("StateOrProvince")%>

</FONT></TD>

</TR>

<!-Next Row = Record Loop and add to html table-->

<%

RScustomerList.MoveNext

Loop

%>

</Table></Center></FONT>

<!-- Do Client side Input Data Validation Move to named

record and Delete it -->

<Center>

<H4>Clicking Button Will Remove Designated Record</H4>

<H5>There are <%=RsCustomerList.RecordCount - 1%> Records in this Set</H5>

<Form Method = Post Action = "Delete.asp" Name = Form>

<Input Type = Text Name = "WhichRecord" Size = 3></Form>

<Input Type = Button Name = cmdDelete Value = "Delete Record"></Center>

</BODY>

<Script Language = "VBScript">

Sub cmdDelete_OnClick

If IsNumeric(Document.Form.WhichRecord.Value) Then

Document.Form.WhichRecord.Value = CInt(Document.Form.WhichRecord.Value)

Dim Response

Response = MsgBox("Are You Sure About Deleting This Record?", vbYesNo, "ADO-ASP Example")

If Response = vbYes Then

Document.Form.Submit

End If

Else

MsgBox "You Must Enter a Valid Record Number",,"ADO-ASP Example"

End If

End Sub

</Script>

</HTML>


Copyright © 2000 Chili!Soft

Previous PageTop Of PageNext Page