Récupération de données dans une DBGrid

Version imprimable

Bonjour à toutes et à tous.
Je vais encore solliciter votre expertise.
Versions : Lazarus 2.0.6; FPC 3.0.4; Postgresql 11.5 et Windows 10 famille.
Voici le contexte : une DBGrid peuplée au moyen d'une requête qui récupère deux colonnes ref_id et ref_nom, ref_id n'est pas visible, seul ref_nom apparaît dans la grille.
Je désirerais récupérer directement ref_id. Pour l'instant je me suis contenté de récupérer ref_nom pour alimenter une requête afin obtenir ref_id. Voici le code :
Code:

1 2 3 4 5 6 7 cellule_selectionnee : TBookMarkList; ... cellule_selectionnee := DBGrille_Accueil.SelectedRows; Requete_Accueil.Close; Requete_Accueil.SQL.Text := 'SELECT ref_id FROM s_ent.t_e_reference_ref WHERE ref_nom = :NOM;'; Requete_Accueil.Params.ParamByName('NOM').AsString := IntToStr(cellule_selectionnee); selection_id := Requete_Accueil.Fields[0].AsInteger;
qui génère l'erreur suivante :

Citation:

Error: Incompatible type for arg no. 1: Got "TBookmarkList", expected "QWord"

Je n'ai pas trouvé de transtypage qui permettrait de supprimer cette erreur.
Existe-t-il une autre solution pour obtenir ref_id directement à partir d'une fonction de DBGrid?

Merci pour vos conseils éclairés et pour le temps que vous allez passer pour me dépanner.
Michel.

22/04/2022, 11h23
Miflon

Il me semble que j'ai compris d'où vient mon soucis. Il faut que je décompose le TBookMarkList en items avec les types qui vont bien et récupère la valeur que je recherche. Je rendrai compte.
Michel.
22/04/2022, 11h47
anapurna

Salut

Il faut surtout lancer la requête pour pouvoir récupérer les valeurs.

Avant cette ligne

Citation:

selection_id := Requete_Accueil.Fields[0].AsInteger;

tu devrais faire un truc du genre :

Code:

Requete_Accueil.open
24/04/2022, 08h31
Miflon

Oh, là, là. Pas les yeux en face des trous.
Bonne journée. Michel.

Pourtant c'est pas bien difficile. Pour debugger le code j'affiche les données collectées dans trois TLabel :

Code:

1
2
3
4
5
6
7
8
procedure TFiche_Accueil.DBGrille_AccueilCellClick(Column: TColumn);
 
begin
  LCellule.Caption := DBGrille_Accueil.SelectedField.AsString;
  LColonne.Caption := DBGrille_Accueil.SelectedField.FieldName;
  LRef_ID.Caption := DBGrille_Accueil.DataSource.DataSet.FieldByName('ref_id').AsString;
// ouverture d'une nouvelle fiche qui affiche un certain nombre de données récupérées par une requête à partir de ref_id
end;

Donc résolu. Merci à tous, Michel.