aide sur TTable

Bonjour,
mon programme utilise une TTable, après le filtrage par nom que j'ai fait avec cette procédure

Code:

---

1 2 3

Table1.Filtered := False; Table1.Filter := 'NOM=' + QuotedStr(Edit1.Text); Table1.Filtered := True;

---

après l’exécution il y a des champs qui ce répète ,je veux maintenant calculer le nombre des noms identiques et l’afficher sous forme :
Noms nombre de répétition
nom1 5
nom2 2 ..etc
Comment je peux faire ça "conter le nombre répétitive aprés le filtrage et afficher le résultats sur un DBgrid, est ce que avec les méthodes de TTable au par sqlqrey
merci

Avec un TTable tu ne peux pas.

Avec un Query et une requète du genre :

Code:

---

1 2 3

SELCT MAX(NOM) AS NOM, COUNT(NOM) AS NOMBRE FROM MATABLE GROUP BY NOM

---

Query à simplifier, la fonction d'agrégation MAX est inutile :

Code:

---

1 2 3

SELECT NOM, COUNT(*) AS NOMBRE FROM MATABLE GROUP BY NOM

---

--
Philippe.

Bonjour,

Chaque fois que je vois 'Filtre' j'ai tendance a voir :furax: rouge

Préférez un TQuery paramétré au Filtre :

Code:

---

1 2	SELECT NOM,CHAMP1,CHAMP2 FROM MATABLE WHERE NOM=:N

---

un et code du style

Code:

---

1 2 3 4 5

TQuery.DisableControls; TQuery.Active:=False; TQuery.ParamByName('N').asString:=Edit1.Text; TQuery.Active:=True; TQuery.EnableControls;

---

Si les filtres peuvent encore se comprendre sur de petites tables locales (paradox) ils sont a proscrire sur des tables importantes et/ou dans le cas de BDD Client/Serveur

Il me semble que yacinew utilise du DBF !
Le SQL et DBF, je crois que cela ne fait pas très bon ménage !

D'ailleurs pour DBF, Apollo DB Engine de Vista Software offre des performances nettement meilleure que le BDE et fournisse un système de filtrage (Scope) natif au DBF !
Apollo DB Engine étant intégré à l'EXE, il n'y a plus de problématique de déploiement du BDE sur Seven !

@yacinew, Pense à toujours spécifier la DB que tu utilises le BDE et TTable\TQuery fonctionne avec du Paradox, DBase mais aussi SQL Server, Oracle, la réponse varie en fonction !

Essaye en utilisant un TQuery.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

ssql := 'SELECT NOM, COUNT(*) AS NOMBRE FROM MATABLE GROUP BY NOM';   qry := TQuery.Create(nil); qry.DatabaseName := 'nomDuDatabase'; qry.SQL.Text := ssql; qry.Prepare; qry.Open; qry.First;   while not qry.Eof do begin ShowMessage(qry.FieldByName('NOM').AsString + ' : ' + IntToStr(qry.FieldByName('NOMBRE').AsInteger)); qry.Next; end;   qry.Close; qry.Free;

---

Petite explication du code
Tu crées un TQuery dynamiquement, ou tu déposes le composant sur la fiche
Tu le connectes à un TDatabase.
Tu ouvres le TQuery.
Tu le forces à se positionner sur le 1er élément.
Ensuite tu boucles tant que tu n'es pas à la fin du query (not EOF).

Mtn, tu peux connecter le Tquery à un Tdatasource
Et le Tdatasource au TDBGrid, si je ne me trompe pas.

Citation:

---

Envoyé par Ph. B.

Query à simplifier, la fonction d'agrégation MAX est inutile :

---

Pas pour tous les SGBD. C'est une vielle habitude qui me reste.

Étrange ce MAX ! Nono40, tu as expérimenté de curieux SGBD !

Je pense surtout que yacinew, tu es parti sur une mauvaise piste avec ton Filter

Code:

---

Table1.Filter := 'NOM=' + QuotedStr(Edit1.Text);

---

en SQL, cela formule comme le propose SergioMaster

Code:

---

Query1.SQL.Text := 'SELECT * FROM MATABLE WHERE NOM = ' + QuotedStr(Edit1.Text);

---

Avoir si il faut utiliser ' ou " pour le filter, n'en ayant pas fait depuis 10 ans, je suis un peu rouillé !
Le ParamByName résoud ce problème !

Code:

---

1 2	Query1.SQL.Text := 'SELECT * FROM MATABLE WHERE NOM = :ParamNom'; Query1.ParamByName('ParamNom').AsString := Edit1.Text;

---

cela ne va renvoyer QUE le Nom concerné !
Exemple avec DUPONT

Code:

---

1 2 3

DUPONT Alain DUPONT Jean DUPONT Patrick

---

Même en comptant, tu n'aurais que cela

Code:

---

DUPONT 3

---

Si tu voulais faire un comptage par Nom, il faut le faire sur TOUTE la table !

pour obtenir

Code:

---

1 2 3

DUPONT 3 DURAND 2 DUBOIS 4

---

Surtout pas de WHERE ni de Filter sur NOM dans ce cas !
Ou alors un LIKE pour compter les noms commençant par "DU%" par exemple !

Citation:

---

Envoyé par yacinew

après l’exécution il y a des champs qui ce répète ,je veux maintenant calculer le nombre des noms identiques

Comment je peux faire ça "conter le nombre répétitive aprés le filtrage et afficher le résultats sur un DBgrid, est ce que avec les méthodes de TTable au par sqlqrey

---

Il est possible de le faire manuellement avec une TStringList ayant comme Objects[] un compteur et pour l'affichage un TStringGrid !
C'est moche mais avec DBF, il y a un risque que cela soit plus performant de le coder en Delphi ! :aie:

La proposition de jaduta étant la bonne, il te faut juster associer le TDataSource et un TDBGrid

Code:

---

Query1.SQL.Text := 'SELECT NOM, COUNT(*) as Occurrence FROM MATABLE GROUP BY NOM';

---

Ensuite, yacinew n'est pas venu lire nos réponses, avant de surcharger ce topic, attendons plus de précision !

Citation:

---

Envoyé par ShaiLeTroll

Étrange ce MAX ! Nono40, tu as expérimenté de curieux SGBD !

---

Je ne saurais pas te dire où j'ai eu le problème mais j'ai gardé cette habitude.