lien entre deux dbcombobox

bonjour

J'ai deux dbcombobox reliés à une table. Le problème: je n'arrive pas à filtrer le deuxième dbcombobox car le premier se remplie du champ département et le deuxième du client.
Ce que je veux c'est filtrer le deuxième en fonction du premier en sélectionnant dans le premier le département et le deuxième affichant uniquement les clients qui résident dans le département sélectionné.

Merci de votre aide.

Citation:

---

Envoyé par meziane00

bonjour

J'ai deux dbcombobox reliés à une table. Le problème: je n'arrive pas à filtrer le deuxième dbcombobox car le premier se remplie du champ département et le deuxième du client.
Ce que je veux c'est filtrer le deuxième en fonction du premier en sélectionnant dans le premier le département et le deuxième affichant uniquement les clients qui résident dans le département sélectionné.

Merci de votre aide.

---

Bonjour,

Pour commencer, franchement à la première lecture de ton poste j'ai rien compris !!! Utilise des ponctuations s'il te plait...

A la deuxième lecture, il nous manques quelques infos importantes :

- Quel type de base de donnée?
- Quel type de source ? Table ? Query ?

Ensuite si c'est une Table, tu peux utiliser le Filter := xxxx, si c'est un Query, il faut jouer avec la clause Where...

;)

Citation:

---

Envoyé par BuzzLeclaire

Bonjour,

Pour commencer, franchement à la première lecture de ton poste j'ai rien compris !!! Utilise des ponctuations s'il te plait...

A la deuxième lecture, il nous manques quelques infos importantes :

- Quel type de base de donnée?
- Quel type de source ? Table ? Query ?

Ensuite si c'est une Table, tu peux utiliser le Filter := xxxx, si c'est un Query, il faut jouer avec la clause Where...

;)

---

merci beaucoup pour votre répance et d'avoir corrigé mon texte . Ma base de donnée est de type paradox et ma source est table

Il faut utiliser 2 tables (ou Tquery). Une pour chaque DBCombo.
Dés que ton dbcombo du département change (evnmt OnCloseUp), tu places un filtre sur la deuxième table qui ne contiendra, alors, que les clients du département.

Façon maitre-détail. Tu peux, aussi, utiliser un TQuery qui récupèrera, seulement, les clients du département sélectionné.

Bon, au vue de ta demande par MP je vais de donner un exemple avec 2 DBLookupComboBox (a toi de voir pour tes DBCombobox)

Necessaires :
1 ADOConnection
2 ADOTables qui seront lié à la ADOConnection
2 DataSources qui seront lié à chaque ADOTable
2 DBLookupCombobox qui seront lié dans la propriété listsource à chaque DataSources.

Je pars par exemple d'une table Client avec (Code, Nom) et un table Devis avec (Code, CodeClient, MontantHT),... la je fais super simple.
Le but récupérer les codes de la table devis selon le code de la table client, textuellement liste des numéro de devis pour un client...

Nomme tes ADOTables comme ceci : ADOTblDevis et ADOTblClient (t'es pas obligé mais tu comprendras mieux la suite)
Nomme tes DataSources : DataSourceDevis, DataSourceClient

Dans le DBLookupComboBox1 (pour la table client), propriété listSouce lié à Source des clients (soit DataSourcesClients), dans la propriété KeyField tu choisi Code.

Dans le DBLookupComboBox2 (pour la table Devis), propriété listSouce lié à Source des Devis (soit DataSourcesDevis), dans la propriété KeyField tu choisi Code également. (quand je dis tu choisi c'est que normalement tu as accès à la liste des champs de la table si ta connection est établie pendant la conception, au pire tu peux faire cette affectation dans ton unité)

Ensuite dans l'évenement CloseUp de ton DBLookupCombobox1

Code:

---

1 2 3 4 5 6

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject); begin ADOTblDevis.Filtered := false; ADOTblDevis.Filter := 'CodeClient ='+QuotedStr(TDBLookupComboBox(Sender).Text); ADOTblDevis.Filtered := true; end

---

J'espere que ce petit exemple t'aidera a avancer.

Bye.

PS : C'est pas moi qui est corrigé ton text, c'est notre denrée...euh... :mouarf: Claudius. J'avais même pas vue :mrgreen: