Discussion :

[stefano]

salut a tous,

Par quel type de commande puis-je recuperer la valeur d'une cellule d'une base de donnée comportant plusieur colonne ?

J'ai sur une Form une DBGrid en relation avec une Table.
Je souhaiterai recuperer la valeur des 2 premieres cellules de la ligne qui a le focus afin de les utiliser pour nommer une fiche avec ses 2 elements.

Code :

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

1
2
3
4
5
6
 
procedure TFiche.FormCreate(Sender: TObject);
begin
Label2.Caption := Form2.Table.FieldByName('Nom').Value;
Label3.Caption := Form2.Table.FieldByName('Prenom').Value;
end;

Par ce type de commande je ne recupere que les 2 elements de la premiere ligne.


merci pour votre aide

[Cl@udius]

Salut,

Là dans la cas présent, tu définis les captions de tes 2 Labels uniquement à la création de ta Form.

Il faut mettre tes deux lignes de code dans l'évènement AfterScroll de ta table, ainsi tes 2 labels seront actualisés à chaque déplacement dans ta table.

Code :

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

1
2
3
4
5
6
 
procedure TFiche.TableAfterScroll(DataSet: TDataSet);
begin 
     Label2.Caption := DataSet.FieldByName('Nom').Value; 
     Label3.Caption := DataSet.FieldByName('Prenom').Value; 
end;

Voilou !
@+

[stefano]

merci pour ta reponse,

Mais ça ne fonctionne pas dans le cadre de mon projet.

J'ai 3 form dans ce projet
Dans la 1ere, j'ai une TDBGrid mis en relation avec une table Paradox
Dans cette fenetre j'ai tout le systeme d'enregistrement de personne (nom, prenom, service.......)
La table de donnée visible dans le TDBGrid apres un systeme de recherche se possitionne sur un enregistrement.
Apres action sur un bouton une nouvelle Form apparait avec comme entete le "Nom" et "Prenom" de la personne selectionner dans la fenetre precedente.

C'est pour cela que j'avais place l'evenement en OnCreate.

Par ton conseil , je suppose que la table d'enregistrement doit etre sur la meme form que l'evenement AfertScoll non ??

a plus

[Cl@udius]

Re-Salut,

OK je comprends mieux ton problème. Je n'avais saisi que tu souhaitais alimenté l'en-tête d'une autre fiche !

Donc ce que je ferais: Dans l'évenement BouttonClick (Celui qui ouvre la nouvelle fiche qui contiendra l'en-tête Nom/Prénom (nommée Fiche dans le code ci-dessous), j'écrirais ce code:

Code :

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

1
2
3
4
5
6
7
8
 
procedure Form2.MonBoutonClik(Sender: TObject);
begin
   // Création de ta fiche si nécessaire...
   Fiche.Label2.Caption := Table.FieldByName('NOM').AsString;
   Fiche.Label3.Caption := Table.FieldByName('PRENOM).AsString;
   Fiche.Show; // ou showModal svt ton cas.
end;

tu disais plus haut:

Par ce type de commande je ne recupere que les 2 elements de la premiere ligne.

Cela vient surement du fait que ta fiche est créée au démarrage de l'appli, et de ce fait ta Table pointe sur le premier enregistrement au moment du create.

Ainsi par cette méthode tu transmettras bien le nom et le prénom de l'enregistrement actuellement sélectionné.

En espérant t'avoir aidé davantage.
@+ Claudius

[stefano]

Ok merci,

Je vais tester ça et je te dit ce que ça donne. Dans tous les cas c'est sympa de ta part pour ton aide

a plus


Edit : Genial ça marche du tonnere merci encore une fois pour ton aide