[interbase6]liste en fonction d'un dbgrid

bonjour,
j ai deux tables:une table patient avec toutes ses données(num_patient,nom,prenom,...)et une autre prescription avec(num_prescription,code_prescription,num_patient,...)ces tables sont reliées entre elles par num_patient.
j ai un dbgrid comprenant les données patient et quand je selectionne un patient dans le dbgrid je voudrai que toutes les prescriptions de ce patient soient visibles dans une liste.
Pour la liste quel composant dois je utiliser:tdblookuplistbox,tdblistbox,...?
Doit je utiliser un tibquery pour relier les deux tables? si oui comment remplir la liste avec le resultat de la requete du tibquery?
Dans mon ibquery je pense mettre la requete suivante:

Code:

---

select * from prescription,patient where prescription.num_patient=patient.num_patient

---

je suppose que je doit remplir la propriété oncelllclick du dbgrid avec la requete et l affecter a la liste?

merci d'avance

Salut,

Pour relier des requêtes en maître-détail, consultes la FAQ.
:arrow: http://delphi.developpez.com/faq/?page=SQL#maitredetail

Ensuite tu pourras utiliser les résultats de la seconde requête (qui donne le détail) pour alimenter le composant de ton choix.

A+

donc si j ai bien compris,je doit ajouter un ibsql au datamodule dans lequel je met la requete

Code:

---

select * from prescription,patient where prescription.num_patient=patient.num_patient

---

mais comment faire pour alimenter ma liste avec cette requete?
merci

bon alors suite a la lecture de la faq
voila le code que j ai fait mais il ne marche pas:

Code:

---

1 2 3 4 5 6 7 8 9 10

datamodule.DataModule1.IBQuery1.Close; datamodule.DataModule1.IBQuery1.SQL.Text:='select *'; datamodule.DataModule1.IBQuery1.SQL.Text:='from prescription '; datamodule.DataModule1.IBQuery1.SQL.Text:='where nopatient = : nopatient ';   datamodule.DataModule1.IBQuery1.Param[0].AsString:=dbgrid1.SelectedRows.Items[0]; datamodule.DataModule1.IBQuery1.Open; //dblistbox1.Field.AsString:= datamodule.DataModule1.IBQuery1; datamodule.DataModule1.IBQuery1.Close;

---

il me met en message d'erreur quand je clique sur une colonne du dbgrid :list index out of bound(0); [/code]
Est ce que quelqu un pourrait aussi me dire comment affecter le résultat de cette requete a un dblistbox?
merci

Pourquoi utiliser une requete dynamique et en plus paramétrée ??
En plus votre requete est mal paramétrée les : doivent coller le nom de la variable.

Code:

---

datamodule.DataModule1.IBQuery1.SQL.Text:='where nopatient = :nopatient ';

---

Et il faut éviter d'utiliser des select * et préférer ne rammener que les colonnes necessaires (si elles sont toutes necessaires alors les nommer toutes).

Enfin si vous faites un close à la fin, vous ne risquez pas de pouvoir exploiter le résultat.

En plus au vu de votre requete (affichage de toutes les prescriptions faites à un patient) je n'ai pas l'impression que c'est un DBListBox qu'il vous faut. Mais plutot un DBGrid.
Le TDBListBox c'est comme un TDBComboBox mis à part que la liste est affichée tout le temps et pas seulement quand on appuit sur la fleche.
La liste contenu dans le TDBListBox n'est pas faite pour être le résultat d'une requete (il y a le TDBLookupListBox pour ça). Et ces composants sont fait pour pouvoir selectionner UN élément de cette liste. Bref utiliser un DBGrid pour afficher le résultat de votre requete.

ok merci si j ai essayé avec une requete parametrée c'est parce que je pensais que c'etait avec ca que je devais le faire.
je vais essayer avec un dbgrid,je voulais seulement qu on puisse visualiser les prescription d'un patient et je trouvais cela plus beau dans une liste que dans une dbgrid.

encore une petite question,
pour affecter ma requete au dbgrid y a t il moyen de mettre ma requete dans le datasource du dbgrid,car quand j essaye je ne vois pas le tquery dans le datasource,je ne vois que que des datasource
merci

TIBQuery->TDataSource->DBComposant

une derniere petite chose,
sur mon datamodule j utilise des ibdataset, la propriete dataset de mes datasource est mise sur leur ibdataset correspondant.
Si je veux ajouter un ibquery en plus sur le datasource y a t il moyen de le faire ou vaut il mieux choisir de tout faire avec des ibquery(même les insertions,modifications,insertion)?
en fait j utilise les ibdataset pour l insertion,modif,update,suppression et je voudrais utiliser des ibquery pour le reste(pour les dbgrid,...)

Je ne comprend pas ce qui vous pose probleme ?

Sur votre datamodule vous mettez ce dont vous avez besoin.
Le IBDataSet pour les ensembles de données que vous souhaitez pouvoir modifier et les ibquery (ou un indataset avec que le select de renseigné) pour les ensembles de données que vous voulez afficher seulement.

en fait mon probleme est simple mais c'est moi qui m'emmele.
Je voudrais avoir un dbgrid avec les patients et un deuxième qui affiche seulement les prescriptions en fonction du patient sélectionné dans le premier dbgrid.
Je pensais donc utiliser une requete qui recevrait en parametre le patient selectionné dans le premier dbgrid et qui afficherais le résultat dans le deuxieme(les prescriptions).
Mais a mon avis il y a plus simple et je suis en train de réinventer la roue.

merci de votre patience

c' est bon merci pour tout j'ai trouvéla solution

http://delphi.developpez.com/faq/?page=SQL#maitredetail
Tout est là, ca fonctionne parfaitement.