Discussion :

[Miflon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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.

[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.

[anapurna]

Salut

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

Avant cette ligne

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

tu devrais faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Requete_Accueil.open

[Miflon]

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

[Miflon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.