Discussion :

[SergioMaster]

Bonsoir,

avant que je contourne le problème via une requête j'aimerais savoir créer un index sur une table
facile me direz vous :

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
26
27
 
 with WBons do
  repeat
      DatabaseName := 'Travail';
      TableName:='WABC'+FloatToStr(Int(Frac(now)*100000));
      Fic_ABC:=TableName;
      with FieldDefs do begin
        Clear;
        Add('CLIENT',ftString,4,true);
        Add('QTE',ftInteger,0,true);
        Add('PAYS',ftString,30,False);
        Add('VILLE',ftString,30,False);
      end;
      with IndexDefs do begin
        Clear;
        Add('','CLIENT',[ixPrimary,ixUnique]);
        Add('ABC_SORT','PAYS;QTE;CLIENT',[ixDescending]);
        Add('ABC_PAYS','PAYS;QTE;CLIENT',[]);  <<<<<<<<<<<<< ICI 
      end;
      try
        CreateTable;
        Result:=True;
      except
        Abandon:=MessageDlg('Erreur Création Fichier de Travail',
                              mtConfirmation,[mbRetry,mbAbort],0);
      end;
  until Result or(Abandon=mrAbort);

Sauf que je veux en ordre Ascendant sur PAYS et Descendant sur QTE (donc quelque chose de mixte), il me semble que c'est possible mais j'ai oublié comment faire
un petit coup de pouce pour mon Alzheimer serait apprécié
Comme il me faut un peu de temps pour coder via la requête

Code :

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

SELECT PAYS,QTE,CLIENT,VILLE FROM  TABLEABC ORDER BY PAYS,QTE DESC,CLIENT

je vous laisse la nuit pour me répondre

[SergioMaster]

Bonjour,

je n'ai pas retrouver le comment (sauf à créer des index pour chacun des champs et d'utiliser IndexFieldNames)
je suis donc passé par une requête . La chose étrange c'est que je fais la requête juste à la suite de la création de la table et que la requête fonctionne une fois sur deux
je m'explique :

première passe
une table temporaire est créée avec un nom unique
la requête se fait sur cette table
je produit mon état
je ferme la requête et détruit la table
deuxième passe
nouvelle table temporaire
modification de la requête pour le nouveau nom à l'ouverture erreur table inconnue ! (alors que celle-ci est bien sur le disque mais bien sur lorsque je vérifie le programme est fermé)
la table n'est pas détruite puisque erreur il y a eu
troisième passe
mêmes manipulations, même comportement que la première passe
etc....

je pense que cela doit avoir un rapport avec la mémoire tampon windows ou quelque chose du même genre mais comment contrer ça ?

P.S. j'ai oublié de dire que c'est un vieux programme D3 (donc pas de solutions miracles à base de tables en mémoires, SQLite) et comme je n'ai pas trop de temps (c'est déjà pour hier et je n'habite pas à Lourdes donc pas de miracles ) je veux faire le minimum syndical au niveau modifications

[mina24]

Bonjour essayer d'utiliser 2 requêtes différente en même temps au lieu de modifier une seul

[SergioMaster]

essayer d'utiliser 2 requêtes différente en même temps au lieu de modifier une seule

en quoi cela m'aiderait-il ? Chaque processus (passe) se ferme avant de passer au suivant

[cantador]

Bonjour,

stocker les données dans un TcxGrid et se servir de TDataSet, TDataSource
utiliser ensuite la propriété SortOrder du champ (soAscending, soDescending-> uses dxCore)
pour effectuer le tri désiré.

[SergioMaster]

Bonjour,

stocker les données dans un TcxGrid et se servir de TDataSet, TDataSource

je rappelle que c'est un programme D3 ancien et rajouter des composants ne fait pas partie des solutions.
j'ai oublié de noter que mon problème principal à savoir, produire la modification est fait (post du 16/12/2015), et ce via un SQL sur ma table temporaire (wbons) comme je n'arrivais pas à créer ces fichus index , je suis donc passé par un SQL sur cette table temporaire et donc avec un ORDER BY j'ai (ou plutôt l'utilisateur a) le tri comme souhaité.

non le seul truc qui bloque maintenant c'est le comportement décrit (à savoir fonctionne une fois sur deux)
le coupable : très certainement BDE ou Windows , comme l'utilisateur s'en contente c'est mis en standby jusqu'à ce que ça l'énerve