Base de données CPDB
Un article de Wikipedia.
Sommaire |
Base de données CPDB
But
Disposer d'une base de données sous Palm.
Introduction
La nécessité de pouvoir stocker des données entre deux lancements d'un programme nécessite de disposer d'une base de données.
Résultats
Le choix s'est porté sur la base de données CPDB (voir Ressources).
Préambule
Elle s'utilise en installant la base de données (voir Ressources) et en important la liaison avec Pascal (voir Ressources) via :
{$i PalmAPI.pas}
{$i CPDBSTD4PP.pas}
Initialisation
L'initialisation de la librairie s'effectue au début du programme par :
CPDB_OPENLIB;
Existence d'une base de données
Le test de l'existence d'une base de données se réalise de la manière suivante :
var bd : String;
...
bd = 'databaseCPDB';
...
if CPDB_DatabaseExist(bd)= CPDB_ERR_NOEXIST then
begin
// Creation de la base de donnees
end
else
begin
// Ouverture et utilisation de la base de donnees
end;
Création d'une base de données
La création d'une base de données se réalise par :
var bd : String;
...
bd = 'databaseCPDB';
...
Error:=CPDB_CreateDatabase(0,bd,DBCreator,'DATA1=INT;DATA2=SHORTINT;');
...
Le dernier argument de CPDB_CreateDatabase décrit les enregistrements de la base de données.
Ouverture d'une base de données
L'ouverture d'une base de données se réalise ainsi :
var Error : Err;
iHandle :UInt8;
bd : String;
...
bd = 'databaseCPDB';
...
Error:=CPDB_Open(0,bd,dmModeReadWrite,iHandle);
...
Avec les modes suivants de PalmAPI.pas
- dmModeReadOnly
- dmModeWrite
- dmModeReadWrite
Fermeture d'une base de données
La fermeture d'une base de données se réalise ainsi :
var Error : Err;
iHandle :UInt8;
...
Error:=CPDB_Close(iHandle);
...
Terminaison
Il faut clore la librairie en utilisant la commande :
CPDB_CLOSELIB;
Conclusions
Ressources
- Base de données CPDB sur site de PP Compiler
- Base de données CPDB standard Media:CPDBSTD120.prc
- Liaison Pascal avec la base de données CPDB Media:CPDBSTD4PP.pas.pdb
- Source CPDBSTD4PP.pas
Catégories: Logiciel | Pascal | Palm