Discussion :

[SmileSoft]

Bonjour,

on m'a proposé ce code dans l'événement AfterScroll de la table maitre (ici c'est customer) pour créer une relation maitre/détails avec SQL mais ça n'a pas marché

Code :

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

1
2
3
4
5
Query1->SQL->Clear();
 
Query1->SQL->Add("SELECT * FROM customer, orders WHERE ");
Query1->SQL->Add("customer.CustNo=orders.CustNo  ");
Query1->Open();

j'utilise pour cet exemple le SGBD: paradox, la base de donnée: BCDEMOS, la table maitre: customer.db et la table détails: orders.db.

Merci pour votre aide

[DjmSoftware]

Salut
ton code est parfaitement valide
ou affiche tu le résultat de ta requête ?
cdlt

[SmileSoft]

Salut,
j'affiche le résultat dans un DBGrid.

Merci

[cedni]

Dans ton evenement , ajoutes une sorte de trace avec un message box ou un texte dans un memo par exemple , juste pour voir que çà vient pas de là .

[SmileSoft]

salut,

merci cedni pour l'idée, j'ai ajouté deux messages box le code s'exécute bien mais la relation ne s'établit pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::maitreAfterScroll(TDataSet *DataSet)
{
Query1->SQL->Clear();
ShowMessage("verifier le parcours");
Query1->SQL->Add("SELECT * FROM customer, orders WHERE ");
Query1->SQL->Add("customer.CustNo=orders.CustNo  ");
Query1->Open();
ShowMessage("est ce que ça vient de là?");
// apparemment non! 
}

[sam83]

bonjour à tous voilà SmileSoft je te propose ce code j l'ai testé et il marche parfaitement.

Code :

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

1
2
3
4
5
Query1->SQL->Clear();
Query1->SQL->Add("SELECT * FROM customer, orders WHERE ");
//TatableMaitre c'est le composant Table relié à ta table maitre
Query1->SQL->Add("CustNo="+TatableMaitre->FieldByName("CustNo")->AsString); 
Query1->Open();

Bon courage

[SmileSoft]

salut,
merci sam pour la 2eme solution mais je n'ai pas le résultat désiré, dans mon inteface j'ai deux DBgrid associés aux tables customer et orders, ce que je cherche l'ors de l'exécution en cliquant sur un enregistrement de la table maitre customer j'aurai tous les enregistrements associés de la table orders.

[sam83]

re,
voilà je suppose que tu a 2 composant Table(Table1--->Customer ; Table2--->orders) et un composant Query1 et 2 DBGrid(DBGrid1------->Table1 ; DBGrid2------->Query1)

je cherche l'ors de l'exécution en cliquant sur un enregistrement de la table maitre customer j'aurai tous les enregistrements associés de la table orders.

alors dans l'événement OncellClick de DBGrid1 tu mis ce code

Code :

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

1
2
3
4
5
Query1->SQL->Clear();
Query1->SQL->Add("SELECT * FROM  orders WHERE ");
//TatableMaitre c'est le composant Table relié à ta table maitre
Query1->SQL->Add("CustNo="+Tatable1->FieldByName("CustNo")->AsString); 
Query1->Open();

sinon si tu veux avoir ces enregéstrement lorsque tu choisis un enregistrement dans ta table maitre tu mis le code dans OnAfterScroll.
Bon courage.

[SmileSoft]

re,
voilà je suppose que tu a 2 composant Table(Table1--->Customer ; Table2--->orders) et un composant Query1 et 2 DBGrid(DBGrid1------->Table1 ; DBGrid2------->Query1)

grand merci sam , mon erreur était au niveau du DBGrid2 qui pointait sur Table2 aulieu de Qury1.