Discussion :

[xeak2008]

Bonjour,

Voici mon problème, je voudrais faire une recherche à l'aide de combobox pour la saisie.

Exemple: j'ai un numéro de grade 1 ( ce qu'on recherche) qui correspond à jaune (sélectionné dans un combobox) pour une couleur de ceinture et 0 (sélectionné dans un combobox) pour le nombre de barrette.

voilà je suis un peu dans le flou pour faire ça, alors merci d'avance pour vos réponses.

[Just-Soft]

Salut;

l'ami tu es vraiment dans le flou.

Tu utilises quelle base de données, quels composants pour accéder?

le problème n'est pas dans le combobox car de ce composant tu tire le numéro d'ordre de l'élément à rechercher ou son texte mais la recherche se fait dans une base de données ou si tu veux table de données.

donc tu sais ce que nous attendons comme explication.

[xeak2008]

ha ouais oops j'ai oublié de préciser ce "petit point", j'utilise une base sql server

[popo]

SI j'ai bien compris, tu veux trouver "1" quand tu sélectionne "jaune" dans ta combo.

En supposant que le numéro que tu cherche et la couleur sont stockés dans la même table (même enregistrement c'est mieux quand même) il suffit d'une simple requête SQL paramétrée.

Ceci devrait fonctionner pour un TADOQuery
Dans la propriété SQL du Query:

Code SQL :

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

SELECT GRA_NUMERO FROM GRADE WHERE GRA_COULEUR=:UneCouleur

Dans le code Delphi :
Je suppose également que la valeur jaune est stockée sous forme de texte.

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
 
function RechNumeroGrade ( const stCouleur : string) : integer;
var stTemp : string;
begin
   stTemp := '';
   With DataModuleADO.QueryGrade do
   begin
      Active := False;
      Parameters.ParamByName('UneCouleur').Value := stCouleur;
      Active := True;
      First;
      While not (eof) do
      begin
         stTemp := FieldValues['GRA_COULEUR'];
         Next;
      end;
   end;
   Result := stTemp;
end;

Edit si ta couleur est stockée en format de type Entier, il suffit de changer le type des variable stCouleur et stTemp.

[xeak2008]

en faire ma recherche se base sur une couleur et sur un nombre de barrette qui donne ensuite un grade, ce n'est pas juste une couleur qui correspond à un num de grade.

mais merci quand même ça m'aide :-)

[popo]

Comme je te l'ai écrit, tous dépend de comment est structurée ta base. J'aurais fait les chose comme cela.

Données de la Table GRADE

Code :

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

1
2
3
4
5
6
7
8
GRA_BARRETTE | GRA_COULEUR | GRA_LIBELLE
-----------------------------------------------
1          | Jaune            | Grade 1
2          | Jaune            | Grade 2
3          | Jaune            | Grade 3
1          | Bleu              | Grade 4
....
5          | Rouge            | Grade n

Ensuite la requete Paramétrée

Code :

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

SELECT GRA_LIBELLE FROM GRADE WHERE GRA_BARRETTE=:UnNombre AND GRA_COULEUR=:UneCouleur

Le code Delphi

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
function RechGrade (const stCouleur : string; const intBarrette : integer) : string;
var stTemp : string;
begin
   stTemp := '';
   With DataModuleADO.QueryGrade do
   begin
      Active := False;
      Parameters.ParamByName('UnNombre').Value := intBarrette;
      Parameters.ParamByName('UneCouleur').Value := stCouleur;
      Active := True;
      First;
      While not (eof) do
      begin
         stTemp := FieldValues['GRA_LIBELLE'];
         Next;
      end;
   end;
   Result := stTemp;
end;