Discussion :

[Invité]

Pour Serge,

Bonjour,

Voici le petit programme pour la gestion des indexes directement sur les dbGrids (i.e. sans modifier les requêtes d'affichage).
La base SQLite se crée automatiquement (le répertoire, le fichier.db vide et les enregistrements).
Elle est en VCL avec les drivers SQLite 3.8.7 Win32 et Win64 (fournis dans le zip - par défaut 32). Téléchargement : ici.

Quelques remarques
La base est en VARCHAR

• la gestion des accents est correcte au niveau du tri (voir les prénoms)
• la gestion des NOMS est un tri par NOM et PRENOM (voir le code)

PS

• Fonctionne en mode debug même si la base est déjà créée. Mais pas en release car dans ce cas là :
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  except
     {$IFDEF DEBUG}
      on E: EFDDBEngineException do
        Showmessage(E.Errors[0].Message);
      {$ELSE}
        Close;
        MessageDlg( 'Création des tables internes impossible. ' +
                    'Le programme va s''arrêter.',
                    TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0);
        Application.Terminate;
      {$ENDIF}
    end;

• A tester -> Sur une grande base, comment cela-fonctionne-t-il ? Impact ou non de l'utilisation de la propriété CachedUpdate signalée par Thierry Laborde dans une autre discussion.
• En ToDo List -> Comment fait-on cela en FireMonkey (la flèche incrustée dans l'entête indiquant le sens de la colonne triée) ? Avec les styles ? J'ai fait l'équivalent en Lazarus avec un champ de recherche également intégré dans l'entête... Mais sans rapport aucun avec FMX On étudiera cela aux prochaines vacances.
  

[SergioMaster]

Bonjour Gilles (et les autres lecteurs)

j'ai donc repris ton code avec les seules autres contraintes ma base existante (Firebird) et FMX (suite à ton TODO)

Constations : j'ai réussi a utiliser les index , après m'être heurté au message 'object not found' pendant quelques temps , j'ai fin par trouver que qu'il fallait mettre les indexs actif méa culpa , méa maxima culpa . Avec une table que je connais bien (pratique car petite et uniquement varchar)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with Adquery1 do
 begin
    Active:=true; // avant ou après la définition des indexs ? 
    Indexes.Clear;
    AddIndex('col0_asc','CODE_APPOSE','CODE_APPOSE',[soNoCase]);
    AddIndex('col0_desc','CODE_APPOSE','CODE_APPOSE',[soNoCase, soDescending]);
    AddIndex('col1_asc','LIBELLE_APPOSE','LIBELLE_APPOSE',[soNoCase]);
    AddIndex('col1_desc','LIBELLE_APPOSE','LIBELLE_APPOSE',[soNoCase, soDescending]);
    IndexesActive:=true;   // c'est ça qu'il me manquait !!!
 end;

nonobstant (j'adore ce mot) il n'en reste pas moins que lors d'un changement d'index je suis toujours obligé de faire un rafraichissement du dataset (soit un close/open)
ayant gardé mon radiogroup , cela donne :

Code :

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

1
2
3
4
5
6
procedure TForm4.CheckBox1Change(Sender: TObject);
begin
ADQuery1.active:=false;
if (Sender as TRadioButton).IsChecked then ADQuery1.IndexName:='col0_asc';
ADQuery1.Active:=True;
end;

du coup , interrogation, n'est-ce point pareil au changement du SQL de la Query (avec la clause Order by) ?
Pour y répondre il faudrait que je fasse un monitoring de la Base (bref pousser davantage les choses mais le temps est le facteur ennemi , une mauvaise analyse de besoin ou plutôt un oubli utilisateur me donne un surcroit de boulot cette semaine commence mal) . Faire le monitoring sur une grosse base (et j'en ai une de la vie réelle , locale ou "déportée") répondrai également au questionnement sur le CacheUpdate .

passons à quelques remarques sur ton code

Code :

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

1
2
3
4
5
6
7
{Connexion à la base}
with ConnHD do begin
    if Connected then Connected := false;
    with Params do begin
      Values['Database']  := gBaseName;
    end;
end;

pour moi le "if Connected" est inutile , et je vais également chipoter sur 2 IncludetrailingPathDelimiter inutiles

Code :

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

1
2
3
4
5
6
7
8
9
10
 
{Présence du driver sqlite3.dll}
gExeDriver := ExtractFilePath(Application.ExeName);
gExeDriver := IncludeTrailingPathDelimiter(gExeDriver) + 'sqlite3.dll';  //<< ICI
...
{Création du fichier de la base à la volée}
gBaseExists := False;
gExeDataBase := ExtractFilePath(Application.ExeName);
gExeDataBase := IncludeTrailingPathDelimiter(gExeDataBase) + 'DataBase'; //<< ET LÀ
gBaseName := IncludeTrailingPathDelimiter(gExeDataBase) + 'AppBase.db';

Passons au TODO , là je ne sais pas , lors de mes essais l'excellente TMSFMXGrid me soulageant de ça j'ai laissé de côté (au passage comme c'était des essais j'ai effacé ces tests et du coup il me faudra les reprendre)

Je m'arrête , la suite au prochain Week End , entre 2 phases de rédaction de tutoriel(s)

Serge

[free07]

Il faut que je retrouve mon utilitaire pour lire les bases SQLite. Il y a l'add-on Mozilla, mais j'ai (j'avais) un exe qui faisait cela très bien

Bonjour,

Sinon il y a sqlite expert avec une édition personnel qui est gratuite.

[donnadieujulien]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
try 
    [...]
    Open;
    if isEmpty then begin
      Close; 
      Exit;
    end;
    First;
    [...]
  except
 
  end;

Je ne comprend pas pourquoi toujours chercher des choses compliquées, source de bugs.

Pourquoi ne pas écrire quelque chose de simple, fiable, robuste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
try
Open();
while not eof do
begin
if isEmpty then
break;
Next();
end;
finally
Close();
end;

De plus si tu commences à coder par rapport à une gauge c'est mort!
La gauge n'est pas un élément essentiel, après selon les besoins je peux comprendre que ça aie son utilité, notamment pour le ressenti de l'utilisateur, mais pour des requêtes SQL un peu longues tu peux mettre une roue, quelque chose de pas figé...
Si tu choisis de faire 100 000 requêtes SQL au lieu d'une juste pour mettre une gauge la je pense que tu es dans l'erreur!
Cela dépend des applications mais pour un transfert de base, j'ai du mal à croire que ca soit vital.