Discussion :

[Jeankiki]

Bonjour à tous,

Pourriez-vous me dire comment faire pour trouver le nombre d'enregistrement différent dans une table en sachant que le même enregistrement peut revenir plusieurs fois dans la table.
J'utilise FireBird.
Exemple:
JEAN
TOTO
JO
ALAIN
JEAN
JO
ISABELLE
NADIA
ISABELLE
ISABELLE

L'application devrait me dire qu'il y a 6 personnes différentes dans l'exemple ci-dessus.
Quelqu'un pourrait il me donner un exemple de code.
Merci à vous.

Jeankiki

[Barbibulle]

Un simple select ??

Code :

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

select count(distinct NOM) from MATABLE

[NoisetteProd]

Juste en passant, merci de resperter les regles que tu peux trouver ==>ici<==

extrait, rien que pour toi :

NI URGENCE, NI SOS

Les expressions : "Urgent" "au secours" "!!!!!!" et toutes les combinaisons que vous pouvez imaginer contenant ces expressions sont formellement interdites !
En voici les raisons :
Il s'agit la d'une information qui n'intéresse personne et qui énerve ...

C'est purement et simplement égoïste (dites-vous que vous n'êtes pas plus prioritaire que n'importe quel autre membre).

Cela a un petit air "autoritaire", un air de dire "tu va me la donner la réponse bouffon !" (si ,si, je vous assure que c'est tout l'effet que cela nous fait...). Malheureusement pour vous, ici on ne donne pas d'ordre. On demande gentillement si quelqu'un veux bien nous aider.

Si on n'est pas satisfait du temps de réponse on peut toujours chercher soi-même...

Merci pour tous

[Jeankiki]

heu merci effectivement, je n'y avais pas penser

Maintenant, je fais la query dans une fonction, peux-tu me dire comment renvoyer le résultat, mon code ressemble à ceci.
Comment puis-je avoir le résultat de la requête en faisant Result := ....

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
 
lblNbrePersonneResultat.Caption := IntToStr(GetCountNbrePersonne);
...
...
 
function GetCountNbrePersonne : integer;
begin
  with frmUcm do
  begin
    IBQueryFichProu.Close;
    IBQueryFichProu.SQL.Clear;
    IBQueryFichProu.SQL.Add('SELECT COUNT(DISTINCT NOM) FROM FICHPROU');
    IBQueryFichProu.Open;
  end;
end;

Merci d'avance pour ton aide.

Jeankiki

[Jeankiki]

Le problème est résolu, voici comment j'ai procédé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function GetCountNbrePersonne : integer; 
var
  CountPersonne : integer;
begin 
  with frmUcm do 
  begin 
    IBQueryFichProu.Close; 
    IBQueryFichProu.SQL.Clear; 
    IBQueryFichProu.SQL.Add('SELECT COUNT(DISTINCT NOM) AS CountPersonne FROM FICHPROU'); 
    IBQueryFichProu.Open;
    Result := IBQueryFichProu.FieldByName('CountPersonne').AsInteger; 
  end; 
end;

[Jeankiki]

Le problème est résolu, voici comment j'ai procédé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function GetCountNbrePersonne : integer; 
var
  CountPersonne : integer;
begin 
  with frmUcm do 
  begin 
    IBQueryFichProu.Close; 
    IBQueryFichProu.SQL.Clear; 
    IBQueryFichProu.SQL.Add('SELECT COUNT(DISTINCT NOM) AS CountPersonne FROM FICHPROU'); 
    IBQueryFichProu.Open;
    Result := IBQueryFichProu.FieldByName('CountPersonne').AsInteger; 
  end; 
end;

Merci et sorry Noisette mais malgré l'urgence de ma demande je pense avoir été poli, je pense avoir le droit de m'exprimer malgré tout comme je l'entends, si effectivement se genre de titre ne t'intéresse pas et t'énerve, rien ne t'oblige à aller voir le contenu et à y répondre.
Je ne connais pas non plus par coeur le contenu des règles, donc encore une fois désolé et sans rancune.

Jeankiki

[NoisetteProd]

no comment...