Discussion :

[lepeule]

Bonjour

J'ai une form sur laquelle j'ai placé un ComboBox1 et je veux que dans l'évenement ComboBox1Change il m'affiche les différents libelles Pour cela j'utilise une table à deux(02) champs .1er champ=CODE_TYPE et 2eme Champ=LIBELLE_TYPE

Voilà ce que j'ai fait mais pas de resultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TF_CorrectionVersement.ComboBox1Change(Sender: TObject);
var i:integer;
begin
ComboBox1.Items.Clear;
DM.ADOQuery53.open;
DM.ADOQuery53.First;
     while not DM.ADOQuery53.eof do
      begin
       ComboBox1.items.add(inttostr(i)+'/'+DM.ADOQuery53.fieldbyname   
        ('LIBELLE_type').asstring);
   DM.ADOQuery53.next;
        end;
DM.ADOQuery53.close;
end;

Ce qui est Dans la requête ADOQuery53 :

Code :

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

1
2
select *
from TYP_ETABLE

je demande de l'aide SVP !! Merci

[ShaiLeTroll]

ADOQuery53 ? tu as de 1 à 53 ? Tu devrais les nommer si c'est pour un projet qui sera maintenu plusieurs années par la suite !
Perso, je trouve cela horrible, le seul intéret d'avoir 50 Query dans un DataModule c'est qu'il y a besoin d'un Prepare des 50 requêtes si elles sont paramètrées pour augmenter les performances de 50 requêtes les plus utilisées par le programme !

Tu n'es pas obligé d'avoir 53 Query, tu peux aussi changer le SQL à la volée d'une seule Query posée via l'IDE ou elle-même instanciée à la volée (encore mieux à mon gout) !
Delphi ce n'est qu'un simple clicodrome !

Pourquoi sur le OnChange, à chaque fois que tu vas rentrer une valeur, cela va recalculer la liste ?
Tu voulais pas le faire sur le OnDropDown ?

Voir si le TDBLookupComboBox ne serait pas encore plus utile tu pourrais lier un champ d'une table directement avec une liste issu d'une seconde table

[lepeule]

Bonjour ChaiLeTroll

OUI avec le DropDown ça marche . j'ai pas utilsé le DBLookupComboBox2 parceque je n'arrive pas à lui affecter une donnéé de type "Varchar" le champ LIBELLE_TYPE.
voici mon code

Code :

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

1
2
if DM.type_etable.locate('CODE_TYPE',DM.Q_choix_Elev_CorrectVerstm.fieldbyname('CODE_TYPE').Asinteger, [loCaseInsensitive	]) then                 
                     F_CorrectionVersement.DBLookupComboBox2.Text:=DM.Q_choix_Elev_CorrectVerstm.fieldbyname('LIBELLE_type').asstring;

Voilà pourquoi suis passé par le comboBox et la reqête
merci

[ShaiLeTroll]

TDBLookupComboBox ne doit pas manipuler manuellement, il faut utiliser le ListSource !
Je n'aime pas trop non plus ce composant, il y a chez TMS et DX des ComboLookup nettement plus pratique !