Discussion :

[misquinetata]

Bonjour a tous je suis debutant
mon probleme est que je n'ai pas pus relier un combobox avec une listbox pour que lorsque je change un item du combobox la listebox affiche les donnes corespond a cet item

par exemple

j'ai une base de donnee qui contient 2 tables
1table s'appele categuories et contient id,categuorie
2table s'appele listeproduit et contient ref,libproduit,idcateguorie
je veus remplir le combobox par la table categuorie et lorsque je selectionne un item du combobox la listebox affiche les details du listproduit
merci d'avance

[MickSou]

Bonjour,
Il me semble que la liaison se fera nécessairement aux niveau des composant base de données que vous utilisez. Il faudra très certainement définir une relation maitre-détail entre les deux composants basée sur le champ idcatégorie.

[MIWAN]

change la table1 par votre table catégorie

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
20
 
 
procedure TForm1.combobox1Change(Sender: TObject);
var s : String;
begin
    if combobox1.ItemIndex > -1 then begin
     listbox1.Items.Clear; 
     S := combobox1.Items[combobox1.ItemIndex]; 
     with Table1,listbox1.Items do begin
       if not(active) then open;
       first;
       while not(eof) do begin
         Add(FieldByName(S).AsString + #9+ Fields[0].AsString);
         next;
       end;
     end;
     listbox1.ItemIndex := 0;
 
    end;
end;

[ShaiLeTroll]

Quelle Lib ? BDE ? ADO ? DBExpress ?
Quelle DB ? Paradox ? ACCESS ? MySQL ?

Si tu utilises une DB, pense que tu peux utiliser un TDBListBox relié à une TQuery avec un SQL paramètré dont la valeur est fournie par Combo.Text


Avec TTable sur Paradox, un Filter\Filtered peut aussi être très pratique !

[misquinetata]

change la table1 par votre table catégorie

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
20
 
 
procedure TForm1.combobox1Change(Sender: TObject);
var s : String;
begin
    if combobox1.ItemIndex > -1 then begin
     listbox1.Items.Clear; 
     S := combobox1.Items[combobox1.ItemIndex]; 
     with Table1,listbox1.Items do begin
       if not(active) then open;
       first;
       while not(eof) do begin
         Add(FieldByName(S).AsString + #9+ Fields[0].AsString);
         next;
       end;
     end;
     listbox1.ItemIndex := 0;
 
    end;
end;

merci bien mon ami j'utilise db access et j'ai fait une relation master detail je suis reussi a remplir le combobox avec un query par ce code

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 TForm1.Button1Click(Sender: TObject);
begin
 DM.Query2.Close;
 
 DM.Query2.Open;
DM.Query2.First;
 
  while not DM.Query2.Eof do
  begin
    ComboBox1.Items.Add(DM.Query2.FieldByName('categuorie').AsString);
    DM.Query2.Next;
  end;
 
end;

mais lorsque je click sur un item du combobox malgres que j'ai mis le code suivant dans l'evenement onchange du combobox

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
procedure TForm1.ComboBox1Change(Sender: TObject);
var s : String;
begin
    if combobox1.ItemIndex > -1 then begin
     listbox1.Items.Clear;
     S := combobox1.Items[combobox1.ItemIndex];
     with DM.table1,listbox1.Items do begin
       if not(active) then open;
       first;
       while not(eof) do begin
         Add(FieldByName(S).AsString + #9+ Fields[0].AsString);
         next;
       end;
     end;
     listbox1.ItemIndex := 0;
 
    end;
end;

rien ne ce passe, malgres que table1 est relieé a mon 2 table produit
aider moi stp et merci une 2 fois

[MickSou]

Je pense que tu te fatigues pour rien.
Essaye un peu d'utiliser les composants DBLookupCombobox et DBlookUplistBox.
Reliés sur des composants d'accès aux bases de données correctement configurés en Maitre6détail tu ne devrais pas avoir à gérer toutes ces listes. Le lien entre les deux devrait se faire automatiquement.

Ensuite je pense qu'il faudrait si tu veux déboguer ton code mettre un point d'arrêt dans la méthode ComboBox1Change et suivre ce que fait ton programme lorsqu'il s’exécute.
Bon courage

[ShaiLeTroll]

@misquinetata, as-tu lu le code MIWAN, es-tu sûr qu'il te convient, il utilise le contenu de la ComboBox comme nom de champ d'un autre Query !
C'est assez douteux comme méthode !
Si tu copies le code sans le comprendre, cela ne sert pas à grand chose et ne nous encourage pas à t'aider !
Espérons que c'était une mauvaise passe temporaire !

Pense à la documentation en Ligne du TTable et TQuery, je te conseil de t'y plonger sérieusement !

Attention pour le Maitre-Détail, dans le cas présent, il n'est pas le bon choix puisque la ComboBox n'est pas associé à un DataSource mais sert plutôt comme assistant de recherche !

Il manque effectivement dans la VCL un TComboBox avec juste un ListSource mais sans DataSource
Le TDBLookupCombobox utilise DEUX Query différentes, il n'est pas applicable dans ce cas (sauf avec une bidouille avec un CDS bidon)

@misquinetata, remplace ton TListBox par un TDBListBox connecté sur un TTable contenant l'ensemble de listeproduit
D'ailleurs, évite de laisser ComboBox1, ListBox1, Table1, Query2 essaye des noms plus utilise comms ComboBoxSelectCategorie, ListBoxListeProduit, TableProduits, TableCategories, QueryCategories ...
Pour mon exemple, ListBoxListeProduit remplace listbox1, c'est un TDBListBox

le SELECT dans Query2 doit fournir id et categuorie de la table categuories

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
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s : String;
begin
  if combobox1.ItemIndex > -1 then
  begin
    if DM.Query2.Locate('categuorie', combobox1.Items[combobox1.ItemIndex], []) then
    begin
 
      ListBoxListeProduit.DataSource.DataSet.Filtered := False;
      ListBoxListeProduit.DataSource.DataSet.Filter := 'idcateguorie = ' + DM.Query2.FieldByName('id').AsString;
      ListBoxListeProduit.DataSource.DataSet.Filtered := True;
    end;
  end;
end;

On pourrait stocker ID dans Objects[] de la Combo, cela éviterait le locate !
Sinon, il faudrait utiliser une requête à la place d'un TTable et faire une jointure !


Pour en revenir au Maître-Détail, en utilisant deux TDBListBox, c'est une solution totalement différente, celle à laquelle pensait MickSou qui est impossible avec un TCombobox.
la première TDBListBox est connectée sur la table Categories, la seconde sur Produits
Ensuite, en mettant Categories comme MasterSource de Produits, ID comme MasterField, enfin dans IndexFieldNames, tu mets idcateguorie

A lire impérativement : Comment faire de la table la partie détail d'un autre ensemble de données

Tout peut se faire via l'IDE et même l'Expert de Fiche DB si ça existe dans ta version
A toi de voir si tu veux le faire en code !