Combobox et "keyvalue" ?

Bonjour,

Si j'ai bien compris les livebindings on peut faire l'équivalent d'un VCL.DBCombobox de la manière suivante :

On pose un comboxbox , on lie le comboxbox aux données qui nous intéresse et la messe est dite .
Sauf que , s'il s'agit de récupérer le texte sélectionné c'est facile , mais comment récupérer la 'SelectedValue' (cette propriété semble bien exister puisque l'on peut faire la liaison) et pourtant , de base, impossible (propriété inconnue) . Comment accède t-on à cette valeur (la fameuse keyvalue d'un VCL.DBCombobox) ?

Question subsidiaire en livebindings le combobox propose par défaut les liaisons :

1. SelectedValue (objet de ma première question)
2. Synch
3. Item.Text
4. Item.LookData

si je n'ai aucun problème à comprendre Item.text, qu'est-ce que les deux autres ?

en fait mon objectif est simple : faire sélectionner dans ma combobox et récupérer la "keyvalue' comme paramètre d'une query (là aussi , serait-il possible de "livebinder", je doute ?)

Finalement , je suis revenu a des 'classiques' , un combobox sans livebindings (et donc chargé par programme) .
pour en faire un 'DBCombobox' du coup , j'ai du faire appel a mes vieilles bases "Delphiesque"

une classe pour définir l'objet

Code:

---

1 2 3 4 5 6 7

TKey = class private fCode: string; public property Code : string read fCode; constructor Create(const Code : string) ; end;

---

un bout de code pour 'charger'

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

if Datas.LignesProduits.Active then with LPBox do begin Items.Clear; Items.AddObject('pas de ligne de produit',TLigneProduit.Create('')); datas.LignesProduits.First; while not Datas.LignesProduits.Eof do begin Items.AddObject(Datas.LignesProduitsLIBELLE_LIGNE.AsString,TLigneProduit.Create(Datas.LignesProduitsCODE_LIGNE.AsString)); Datas.LignesProduits.Next; end; if Datas.LignesProduits.Locate('CODE_LIGNE',Node.Attributes['ligneproduit'],[]) then ItemIndex:=Items.IndexOf(Datas.LignesProduitsLIBELLE_LIGNE.asString) else ItemIndex:=0; end; Datas.LignesProduits.Active:=False;

---

et on récupère la keyvalue par exemple via l’événement onChange de la combobox

Code:

---

1 2	CodeLigne.Text:=TLigneProduit(LPbox.Items.Objects[LPBox.ItemIndex]).Code;

---

:( j'ai l'impression de régresser

salut Mr SergioMaster j'ai le même problème que vous avez rencontrez mais vu votre solution je suis un peu troublé :calim2:

Pouvez vous expliquer votre solution à un jeune Delphiste qui à un niveau moyen :calim2::calim2:

Bonjour,

Citation:

---

Envoyé par alves1993

j'ai le même problème que vous avez rencontrez mais vu votre solution je suis un peu troublé :calim2:
Pouvez vous expliquer votre solution à un jeune Delphiste qui à un niveau moyen :calim2::calim2:

---

en fait , difficilement et ce n'est qu'un contournement , il doit certainement y avoir un moyen plus simple , mais les livebindings je ne les maitrise certainement pas assez .
le seul 'truc' que j'ai trouvé à été d'utiliser une liste d'objet . L'objet est défini dans le premier code , ajouté (via une boucle sur la table) dans la liste des Items (donc au lieu d'utilisé le Items.Add('un libellé'); j'utilise Items.addObject) en simplifiant (en ôtant les fioritures nécessaires à mon programme c.a.d. ôter le cas ou il n'y a pas de ligne de produits (objet 0) et le positionnement fait après remplissage)

soit table une table composée d'une CLE et un LIBELLE

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var tobjet : Tkey; // c'est peut être ça qui manquait ? .... Datas.table.Active:=True; with combobox do begin while not Datas.table.Eof do begin Items.AddObject(Datas.tableLIBELLE.AsString,TObjet.Create(Datas.TableCLE.AsString)); Datas.table.Next; end; end; Datas.Table.Active:=False;

---

Bonjour Serge,

Je ne sais pas si tu l'as remarqué mais lorsque tu rajoutes un lien ( visuellement avec LiveBinding ), il crée un composant qui gère le lien, par exemple pour un combobox :

Code:

---

1 2 3

ComboBox1: TComboBox; LinkFillControlToField1: TLinkFillControlToField;

---

Après on peut utiliser LinkFillControlToField1 pour récupérer certaines valeurs, par exemple pour récupérer le nom de la colonne liée :

Code:

---

LinkFillControlToField1.FillDisplayFieldName;

---

Je ne sais pas si cela peut t'aider mais il y a aussi d'autres propriétés de TLinkFillControlToField qui sont peut être être intéressantes ( à voir )

Bonjour,


Je viens de me poser, la même question et je viens de trouver une solution. Je me permets donc de la proposer ici, car je suis tombé sur votre poste.


Le binding sur la combo propose 4 propriétés :
- SelectedValue
- Synch
- Item.Text
- Item.LookupData


Si l'on veut charger la combo et qu'elle change de valeur comme pour une DBCombo nous devons avoir :
- Une source de données contenant la liste "DataListe"
- Une source de données contenant une référence à l'item de la liste "DataGeneral"


On va connecter DataGeneral.idDataListe sur la propriété SelectValue. Cette propriété va déterminer quel indice de la liste il faut sélectionner.
Ensuite on va connecter DataListe.idDataListe sur la propriété Item.LookupData. Cette propriété contient la clé de l'item
Et enfin on va connecter DataListe.TextDataListe sur la propriété Item.Text. Cette propriété contient le texte à afficher dans la combo.


Je suppose que depuis le temps vous aviez trouvé une solution, mais ça pourra peut-être aider quelque d'autre.

Bonjour,

Citation:

---

Envoyé par joc02

Je suppose que depuis le temps vous aviez trouvé une solution, mais ça pourra peut-être aider quelque d'autre.

---

Oui, le sujet était d'ailleurs résolu. J'ai surtout changé de versions et fait un peu plus attention à certains "pièges" du livebinding.
Je crois que j'ai indiqué comment faire dans un autre sujet