Discussion :

[ovni76]

Bonjour,
Petit à petit je fais mon petit trou avec lazarus et les tables sous sqlite.
Je sais maintenant créer une base et des tables, écrire dans une table, la vider

Code :

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

1
2
3
4
5
6
7
MQ:='Delete from '+MTABLE;
  Sqlite3.SQL:=MQ;
  Sqlite3.ExecSQL;
  Sqlite3.ApplyUpdates;
  Sqlite3.SQL:='Select * from '+MTABLE;
  Sqlite3.ExecSQL;
  Sqlite3.RefetchData;

et dernière trouvaille effacer un enregistrement lais là je ne suis pas sur que j'utilise la bonne méthode, mais surtout la suite qui me préoccupe.
Pour effacer un enregistrement j'utilise le numéro de l'enregistrement qui est égal à la clé primaire

Code :

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

1
2
3
4
5
6
7
8
MENCOURS:=Sqlite3.RecNo;
  MQ:='Delete from '+MTABLE+' WHERE K_AUTOMAT='+IntToStr(MENCOURS);
  Sqlite3.SQL:=MQ;
  Sqlite3.ExecSQL;
  Sqlite3.ApplyUpdates;
  Sqlite3.SQL:='Select * from '+MTABLE;
  Sqlite3.ExecSQL;
  Sqlite3.RefetchData;

K_AUTOMAT étant ma clé primaire et est au départ égale au numéro de l'enregistrement dans ma table.
Mais après l'effacement je voudrais bien pouvoir réorganiser ma table pour que cette clé soit toujours égale au numéro d'enregistrement.
deuxième question sous lazarus et sqlite y a-t-il une commande de compactage et de réindexation comme avec les fichiers dbase ?
Merci de bien vouloir me conseiller.

[SergioMaster]

Mais après l'effacement je voudrais bien pouvoir réorganiser ma table pour que cette clé soit toujours égale au numéro d'enregistrement.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
MENCOURS:=Sqlite3.RecNo;
  MQ:='Delete from '+MTABLE+' WHERE K_AUTOMAT='+IntToStr(MENCOURS);
  Sqlite3.SQL:=MQ;
  Sqlite3.ExecSQL;
  Sqlite3.ApplyUpdates;
  // Decrémenter les numéros supérieurs 
  MQ:='UPDATE '+MTABLE+' SET K_AUTOMAT=K_AUTOMAT - 1 WHERE K_AUTOMAT>'+IntToStr(MENCOURS);
  Sqlite3.SQL:=MQ;
  Sqlite3.ExecSQL;
  Sqlite3.ApplyUpdates;
  Sqlite3.SQL:='Select * from '+MTABLE;
  Sqlite3.ExecSQL;
  Sqlite3.RefetchData;

deuxième question sous lazarus et sqlite y a-t-il une commande de compactage et de réindexation comme avec les fichiers dbase ?

Aucune idée !

[ovni76]

Merci SergioMaster,
La mise à jour de la clé fonctionne très bien, encore un petit pas de plus pour moi.

[SergioMaster]

en cherchant un peu , car je suis curieux , j'ai trouvé ceci à propos du compactage

Simply execute the "VACUUM" Sql statement ...

using (SQLiteCommand cmd = conn.CreateCommand())
{
cmd.CommandText = "VACUUM";
cmd.ExecuteNonQuery();
}

te reste à le traduire puis a cliquer sur avec un peu de chance , après , bien sur, nous avooir indiqué ce que tu as fait

[ovni76]

Oui, j(ai aussi trouvé cette valeur, mais comme moi et l'anglais nous ne sommes pas copains, je n'ai pas encore trouvé la bonne syntaxe.
Mais je chercherais et je donnerais le résultat.
Merci encore

[chris37]

Bonjour "ET",

Pourquoi veux tu que ton numéro de clé soir identique au numéro d'enreg ? c'est inutile et risque un jour de te gêner dans certains cas !

L'utilisation d'un identifiant unique (pas forcement ta clé primaire) permet justement de te positionner sur le bonne enregistrement pour pouvoir le modifier et ou le supprimer...

Bonne apprentissage
Cordialement,

[ovni76]

Salut Chris37,
Je dirais, je réalise des opérations programmées de lecture d'une table que j'appelle import et je recopie dans une autre table que j'appelle bank les informations non encore inscrites de la première et non vérifiées, si je trouve des informations déjà vérifiées je supprime l'enregistrement de la table import.
A la fin ma table import doit être vide.
Je fais de même pour la mise en archive des informations anciennes de bank.
Alors avec des tables dbase et delphi sous xp, j'avais trouvé cette solution du numéro d'enregistrement, mais je n'avais pas de champ kley primary dont je n'ai pas encore bien compris la raison et pensant qu'il n'était pas bon d'avoir cette clé avec des valeurs "aléatoires", j'ai raisonné comme pour une réindexation sous dbase.
Comme apprenti je suis ouvert à tout conseil que je pourrais comprendre.
Je le rappelle je suis un amateur autodidacte.
Merci pour ton aide.
Une remarque, je regrette le ton et la réactivité de ton ancien forum et sa spécialisation.

[ovni76]

Pour SergioMaster,
J'ai trouvé la formule pour utiliser VACUUM

Code :

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

Sqlite3.SQL:='VACUUM LCL';

Il faut lui donner à la commande juste le nom de la base et pas comme sous dbase le nom de chaque table à compacter.
Donc pour la commande de compactage c'est résolu.
Merci

[ovni76]

Le sujet pour moi est clos
Merci pour l'aide