Bonjour à toutes et à tous.
Dans une fiche j'ai besoin à partir d'un DBLookupComboBox de sélectionner une valeur (act_valeur) et de récupérer son identifiant (act_id) dans la table t_e_action_act dans le schéma s_ent d'une base de données Postgresql. Le composant DBLookupComboBox est-il le mieux adapté sachant qu'il n'y aura pas de modification dans la base de données?
Le peuplement de DBLookupComboBox (Label : Valeur) ne se fait pas. J'ai déposé une DBGrid sur la même fiche qui elle se peuple correctement. Voici le bout de code inclus dans le .create de la fiche :
Voici les paramètres du DBLookupComboBox que j'ai modifiés
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 RequeteCoupon.Close; RequeteCoupon.SQL.Text := 'SELECT a.act_id, act_valeur FROM s_ent.t_e_action_act a '; RequeteCoupon.SQL.Add('JOIN s_ent.t_j_compte_action_cma c ON a.act_id = c.act_id '); RequeteCoupon.SQL.Add('WHERE cpt_id = :NUMCOMPTE '); RequeteCoupon.SQL.Add('ORDER BY act_valeur ASC;'); RequeteCoupon.Params.ParamByName('NUMCOMPTE').AsInteger := Fiche_Accueil.Compte; RequeteCoupon.Open; DBLCBValeur.KeyField := RequeteCoupon.Fields[0].AsString; DBLCBValeur.ListField := RequeteCoupon.Fields[1].AsString;
Dans RequeteCoupon j'ai une requete passe partout pour vérifier les connexions des composants entre eux :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 KeyField : act-id ListField : act_valeur ReadOnly : true ScrollListDataset : true Style : csDropDownList
Que me manque-t-il pour que cela fonctionne?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 SELECT act_id, act_valeur FROM s_ent.t_e_action_act;
Merci d'avance pour l'aide que vous ne manquerez pas de m'apporter.
Michel.
Partager