IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bases de données Delphi Discussion :

aide sur TTable


Sujet :

Bases de données Delphi

  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    Avril 2011
    Messages
    177
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations forums :
    Inscription : Avril 2011
    Messages : 177
    Points : 111
    Points
    111
    Par défaut aide sur TTable
    Bonjour,
    mon programme utilise une TTable, après le filtrage par nom que j'ai fait avec cette procédure
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Expert éminent sénior

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Points : 19 101
    Points
    19 101
    Par défaut
    Avec un TTable tu ne peux pas.

    Avec un Query et une requète du genre :
    Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    SELCT MAX(NOM) AS NOM, COUNT(NOM) AS NOMBRE
    FROM MATABLE
    GROUP BY NOM
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  3. #3
    Expert confirmé
    Avatar de Ph. B.
    Homme Profil pro
    Freelance
    Inscrit en
    Avril 2002
    Messages
    1 784
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2002
    Messages : 1 784
    Points : 5 915
    Points
    5 915
    Par défaut
    Query à simplifier, la fonction d'agrégation MAX est inutile :
    Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    SELECT NOM, COUNT(*) AS NOMBRE
    FROM MATABLE
    GROUP BY NOM
    --
    Philippe.
    Philippe.

  4. #4
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 935
    Points
    40 935
    Billets dans le blog
    62
    Par défaut
    Bonjour,

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

    Préférez un TQuery paramétré au Filtre :
    Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    SELECT NOM,CHAMP1,CHAMP2 FROM MATABLE WHERE NOM=:N
    un et code du style
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  5. #5
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 429
    Points : 24 794
    Points
    24 794
    Par défaut
    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 !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  6. #6
    Membre actif
    Homme Profil pro
    Programmeur Delphi
    Inscrit en
    Octobre 2006
    Messages
    183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : Belgique

    Informations professionnelles :
    Activité : Programmeur Delphi
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2006
    Messages : 183
    Points : 227
    Points
    227
    Par défaut
    Essaye en utilisant un TQuery.

    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
     
    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.

  7. #7
    Expert éminent sénior

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Points : 19 101
    Points
    19 101
    Par défaut
    Citation Envoyé par Ph. B. Voir le message
    Query à simplifier, la fonction d'agrégation MAX est inutile :
    Pas pour tous les SGBD. C'est une vielle habitude qui me reste.
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  8. #8
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 429
    Points : 24 794
    Points
    24 794
    Par défaut
    É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 : Sélectionner tout - Visualiser dans une fenêtre à part
    Table1.Filter := 'NOM=' + QuotedStr(Edit1.Text);
    en SQL, cela formule comme le propose SergioMaster

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 data : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    DUPONT Alain
    DUPONT Jean
    DUPONT Patrick

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



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

    pour obtenir

    Code data : Sélectionner tout - Visualiser dans une fenêtre à part
    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 Voir le message
    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 !

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  9. #9
    Expert éminent sénior

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Points : 19 101
    Points
    19 101
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    É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.
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Aide sur TTable
    Par yacinew dans le forum Bases de données
    Réponses: 2
    Dernier message: 21/02/2012, 10h01
  2. [CR] besoin d'aide sur les formules
    Par GuillaumeDSA dans le forum Formules
    Réponses: 4
    Dernier message: 10/07/2003, 13h19
  3. Réponses: 2
    Dernier message: 27/02/2003, 02h33
  4. [Kylix] Aide sur BitBlt
    Par mic006 dans le forum EDI
    Réponses: 1
    Dernier message: 10/12/2002, 23h54
  5. Aide sur une fenetre
    Par Ray-j dans le forum Autres éditeurs
    Réponses: 4
    Dernier message: 29/11/2002, 09h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo