Purpose
Used to delete all records from the database.
Syntax (Method)
object.DeleteAll
Notes
If records exist, they are all deleted.
If
no records exist, nothing changes.
Error
Values
This function does not change the state of the ErrorNumber
property.
Example
Objective: Append some records and then delete them all.
'Create
a database
Dim CDP As
rtCDP.rtCompactDataPak
Set CDP = New rtCDP.rtCompactDataPak
'Add
some records to the database
CDP.Data("Name") = "Kathy"
CDP.Data("Address") = "123 Main St"
This
is the current state of the database:
| Rec |
Key |
Data |
| 0 |
Name |
Kathy |
| 1 |
Address |
123
Main St |
'Now,
delete a record in the database
CDP.DeleteAll
This
is the current state of the database:
Version
History
1.0 1/15/2000 Tested
See
Also
Delete, DeleteArray,
DeleteRec