Discussion :

[ovni76]

Bonjour,

J'utilise les composants natifs Sqlite3 sous Lazarus, mais habituellement je crée ma base et ses tables et champs avec Squilte browser ; mais voilà, je voudrais au lancement de mon application initialiser différents paramètres qui seront utilisés ensuite.
Exemple : j'ai une base Sqlite principale qui se trouve dans un répertoire particulier /tables mais au premier démarrage de l'application ce répertoire n'est pas connu et naturellement les propriétés filename ne sont pas renseignées ou sont erronées.
Donc je souhaite créer une table INIT.sdb au premier lancement pour y inscrire cette valeur filename et d'autres informations.
Par le passé, il y avait un site ayant ces informations mais depuis il a disparu et je ne retrouve pas ces infos et en particulier le type de variable à déclarer pour cette table INIT.sdb ainsi que le test de présence de cette table après l'initialisation.

J'ai bien trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
if not TableExists then
    begin
      FieldDefs.Clear;
      FieldDefs.Add('Id', ftAutoInc);
      FieldDefs.Add('Prénom', ftString);
      FieldDefs.Add('Nom', ftString);
      CreateTable;
    end;
    Open;;

Mais je n'arrive pas au résultat escompté.
Alors un petit coup de main me ferait du bien.
Merci d'avance

[Nullosse]

hello ovni76,
moi j'utilise les composants TSQLite3Connection, TSQLQuery, , TSQLTransaction (SQLdb) pour gérer les bases sqlite3. J'utilise le SQL pour créer les tables comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var LesTables: TStringList;
begin
  LesTables := TStringList.Create();
  ForceDirectories(ExtractFilePath(application.ExeName));
  uDM.Sqlite3Tournois.DatabaseName :=
    ExtractFilePath(application.ExeName) + 'epreuves\' + NomTournoi.Text + '.db3';
  uDM.SQLite3Tournois.Open;
  uDM.SQLTransTournois.StartTransaction;
  uDM.SQLite3Tournois.GetTableNames(LesTables);
 
  if LesTables.IndexOf('tournoi') = -1 then
  begin
    uDM.SQLite3Tournois.ExecuteDirect('CREATE TABLE tournoi' +
      ' (Id  INTEGER PRIMARY KEY , Epc BOOL_INT ,' +
      'Epreuve VARCHAR(255) , Nom VARCHAR(255) , ' +
      'Description VARCHAR(255) , Lieu VARCHAR(255) ,' +
      'Date VARCHAR(255) , NbParties INTEGER , ' +
      'TypePartie BOOL_INT , PartieOriginale BOOL_INT , ' +
      'Lock BOOL_INT , Fini BOOL_INT, PeC INTEGER, ' +
      'Tarif1 INTEGER, Tarif2 INTEGER , Tarif3 INTEGER,Tarif1 INTEGER, ' +
      'TopP1 INTEGER,TopP2 INTEGER,TopP3 INTEGER, ' +
      'TopP4 INTEGER,TopP5 INTEGER,TopP6 INTEGER, ' + 'TopP7 INTEGER)');
  end;             
  uDM.SQLTransTournois.Commit;
  LesTables.Free;

avec uDM.SQLite3Tournois : TSQLite3Connection
uDM.SQLTransTournois : TSQLTransaction

amicalement, nullosse

[tourlourou]

On peut aussi faire systématiquement un 'CREATE TABLE IF NOT EXISTS tournoi' + ...

[ovni76]

Bonjour,
Merci pour vos réponses, mais je n'arrive pas au résultat souhaité.
Déjà les instructions avec en tête uDM. ne sont pas reconnues par mon installation, j'utilise les composants natifs et naturellement je ne peux suivre le raisonnement proposé.
En cherchant j'ai trouvé qu'un clic droit sur le composant Sqlite3Dtaset ouvre une fenêtre avec le choix create/edit, donc le composant peut créer une table ou base ?
Mais c'est la peut-être mon problème, connaissant mieux le système Dbase que Sqlite, le premiers à des tables le second à une ou des bases comprenant des tables...
J'ai trouvé avec ce composant une commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sqlite3Dataset1.CreateTable('/home/j/Bureau/laz-linux/test/sources/INIT.sdb');

avec laquelle j'ai tenté de créer une base INIT.sdb mais la commande semble liée à la création de table, donc si je raisonne correctement il faudrait déjà créer la base puis les tables avec leurs composants, mais comment faire ?
A+

[Nullosse]

hello ovni76,

oops désolé j'ai un peu compliqué mon exemple car udm est un Tdatamodule. Fais comme si il n'existait pas. Si les composants SQLDB sont sur la fiche où tu fais les traitements tu mets directement Sqlite3Tournois.DatabaseName par exemple.


voici ce qui est écrit concernant le Tsqlite3DataSet dans le wiki database de lazarus :

Créer une Table (jeux de donnée)
Double cliquez sur l’icône du composant ou employer l'item 'Create Table' du menu automatique qui apparaît en cliquant le bouton de souris droit . Un simple éditeur de table parlant de lui-même sera montré.

Je ne sais pas si on peut créer directement le fichier de base de données avec le composant tsqlite3dataset.


Amicalement, nullosse

[ovni76]

Merci pour ta réponse, j'ai vu le messagedu wiki mais cela est valable à la conception de l'appli, mon besoin est que j'ai des petites applications de gestion de données sous sqlite que je veux pouvoir donner par exemple à mes petits enfants, ces applications que j'utilise sous linux sont développées aussi sous linux et je les adapte pour les utilisateurs potentiels sous windows. Jusque la pas de problème sauf que j'utilise un datamodule avec une base sqlite contenant plusieurs tables qui ont un Filename qui est lié à l'installation de l'appli que j'organise ainsi répertoire d'installation avec le nom de l'appli qui a plusieurs sous répertoire s au même niveau /sources, /tables, et des tables de sauvegarde, de plus je vais importer des informations dans un répertoire de téléchargement.
Ces informations sont donc variables dans leur forme entre linux et windows et dans leur lieu
(disque répertoire). C'est ces informations que je veux pouvoir initialiser à la première utilisation de l'appli après installation.
Mon idée est de créer une base avec une table ayant les champs suivant : chemin du répertoire tables pour initialiser le filenanme de mes tables principales, chemin pour l(importation des données, champ indiquant que l'initialisation a été effectuée ou pas, donc c'est cette table que je veux pouvoir créer au 1er lancement de l'appli car elle aussi a besoin d'un filename, valeur que je peux connaître facilement au démarrage de l'appli.
Le problème, pour moi vient du fait qu'une base de données sqlite à une base qui peut avoir un nom du genre INIT.sdb et contenir une ou plusieurs tables du genre initialisation.
Je n'ai pas trouvé de commande permettant en cours de fonctionnement de l'appli de créer une base et une table associée à cette base.
Je devrais peut-être me tourner vers une table dbase qui de mémoire se crée plus facilement.
Mais je persiste à penser que ce qui peut se réaliser en conception avec sqlite3dataset devrait pourvoir se réaliser à l'éxecution et de plus ce serait dommage d'utiliser 2 types de tables mais pas impossible.
merci et A+

[tourlourou]

En simplifiant le code de Nullosse, je suis parvenu à écrire le code suivant, qui crée bien une base et la table voulue et la peuple (je la lis autrement, car jusqu'à il y quelques minutes, je ne connaissais pas ces composants !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  SQLite3Connection1.DatabaseName:='c:\userfiles\test3.bdd'; // fichier inexistant
  SQLite3Connection1.Transaction := SQLTransaction1; // si pas défini en conception
  SQLite3Connection1.Open; // ou SQLite3Connection1.Connected:=True; // crée la base
 
  SQLTransaction1.DataBase := SQLite3Connection1; // si pas défini en conception
  SQLTransaction1.StartTransaction;
  SQLite3Connection1.ExecuteDirect('CREATE TABLE employes ( id INTEGER PRIMARY KEY , nom TEXT , age INTEGER )');
  SQLTransaction1.Commit; // crée la table
 
  SQLTransaction1.StartTransaction;
  SQLite3Connection1.ExecuteDirect('INSERT INTO employes ( nom , age ) VALUES ( ''toto'' , 50 )');
  SQLTransaction1.Commit; // ajoute un enregistrement
 
  SQLite3Connection1.Connected:=False;

[ovni76]

Merci toulourou, ça marche.
Donc problème résolu.
A+