Discussion :

[chris78320]

Bonjour,

il est possible de créer une table avec la méthode CreateTable du composant, je supposais donc qu'il y avait un équivalent pour détruire une table ou au moins la vider (genre DeleteTable ou DropTable) mais je n'ai rien trouvé en fouillant dans le code source ...

J'ai donc essayé avec du SQL (Delete, Drop, Truncate, ...) mais impossible : au mieux il ne se passe rien, au pire une exception !

Mon but : retrouver la table vide comme lors de sa création.
Si quelqu'un a la solution.

Cordialement.
Christian

[tourlourou]

As-tu essayé (SQLite 3.7) :
1) DELETE FROM database.table // devrait supprimer tous les enregistrements
2) DROP TABLE (IF EXISTS) table // devrait effacer une table construite avec CREATE TABLE
L'aide de SQLite.org est en anglais mais peut fournir des pistes : le SQL de SQLite

[chris78320]

Mon souci est que je veux vider ma table à l'intérieur d'un programme Lazarus en utilisant le composant Sqlite3Dataset.

Je viens de faire un programme de test pour essayer de comprendre le comportement : un composant Sqlite3Dataset (SaveonClose à True, FileName et TableName ('matable') renseignés), un Datasource et un dbgrid pour voir ce qui se passe ...

J'exécute tout d’abord le code :

Code :

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

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

Tout est OK, la base et la table sont créées.
Les en-têtes de colonnes apparaissent dans le grid avec une ligne vide.

Puis :

Code :

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

1
2
3
4
5
6
 
Open;
    Dataset.Append;
    Dataset.FieldByName('Prénom').AsString:= 'Gérard';
    Dataset.FieldByName('Nom').AsString:= 'Jugnot';
    Dataset.Post;

l'enregistrement est ajouté (apparaît dans le grid)

Enfin :

Code :

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

1
2
3
4
 
    Close;
    Sql:= 'delete from matable';
    Open;

le ou les enregistrements disparaissent (a priori ce à quoi je m'attendais) mais le grid n'affiche plus les en-têtes ... pourtant delete est censé vider la table mais conserver sa structure ?!

A ce moment, si je relance le code permettant l'ajout d'un enregistrement, j'ai l'exception suivante : Field not found "Prénom"

Tout se passe comme si la table n'existait plus ! A noter que si je quitte le programme, je peux vérifier (dans un programme style SqliteSpy) que la table existe bien et est vide ...

Si je relance le code de création de la table, il n'est pas exécuté, preuve que TableExists renvoie True ... donc la table existe mais les champs ont disparu !

Je dois fermer le programme et le rouvrir pour voir réapparaître les en-têtes dans le grid et pouvoir à nouveau ajouter un enregistrement ...
J'ai ajouté 'ApplyUpdates' après le code du 'delete' mais cela ne change rien.

[chris78320]

Autre approche : au lieu de vider ma table, j'essaie de la détruire avec 'DROP' en exécutant :

Code :

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

1
2
 
ExecSql('Drop table if exists matable');

suivi ou non de ApplyUpdates (cela ne change rien).

la table est bien détruite (si je relance le code de création, il est bien exécuté). Mais les enregistrements sont toujours visibles dans le grid (j'ai essayé DBGrid1.Refresh ? mais cela n'a pas d'effet), je peux même en ajouter des nouveaux (id s'incrémente !). Même après voir recréé la table !

J'ai donc une solution à mon problème :
1) détruire la table avec 'DROP'
2) faire Dataset.Close
3) recréer la table (cette fois elle est vide)

mais tout ceci est bien mystérieux ! ...

[tourlourou]

Je ne pourrai t'aider sur l'utilisation de tous ces composants bien mystérieux et compliqués pour moi... Je n'utilise SQLite que directement.

[chris78320]

Merci quand même pour ton aide.

Cela veut dire quoi utiliser SQLite directement ? En ligne de commande ?

[tourlourou]

Grâce à son API/interface en C pour laquelle il existe des wrappers.

J'en ai écrit un (très dépouillé) qui s'interface avec Lazarus, et une encapsulation dans un objet, qui me permet d'exécuter des requêtes et de récupérer les résultats dans des TStrings ou TStringGrid : ceci suffit pour mes besoins basiques.