Purpose
Used to insert a new record into the database.
Syntax (Method)
object.InsertRec
Key, Data, Index
| Key
(String) |
|
The
new record's key is assigned this value. |
| Data
(String) |
|
The
new record's data is assigned this value. |
| Index
(Long) |
|
The
new record is inserted just before the existing record having
this record number. |
Notes
This method allows duplicate keys to exist in the database.
Hence, if this method is called with a key (Key)
that already exists in the database, a new record will still be
inserted with the specified key (Key).
Error
Values
After calling this method, the property ErrorNumber
will report one of the following values:
rtCDP_ErrNoError
rtCDP_ErrKeyTooLong
rtCDP_ErrDataTooLong
rtCDP_ErrRecordNotFound
rtCDP_ErrDatabaseFull
Example
Objective:
Insert some records into the database.
'Create
the object
Dim CDP As
rtCDP.rtCompactDataPak
Set CDP = New
rtCDP.rtCompactDataPak
'Append a new record
CDP.Append "", "Melissa"
This
is the current state of the database:
'Insert
a new record
CDP.InsertRec "", "Susan", 0
This
is the current state of the database:
| Rec |
Key |
Data |
| 0 |
. |
Susan |
| 1 |
. |
Melissa |
'Insert
a new record
CDP.InsertRec "", "Debbie", 1
This
is the current state of the database:
| Rec |
Key |
Data |
| 0 |
. |
Susan |
| 1 |
. |
Debbie |
| 2 |
. |
Melissa |
'Insert
a new record
CDP.Insert "", "Tina", 3
'The
database is unchanged because record 3 does not exist
'In
this case, ErrorNumber returns rtCDP_ErrRecordNotFound
Version
History
1.0 2/2/2001 Tested
See
Also
Insert,
InsertB, InsertArray, InsertArrayB, InsertRecB