Interbase - DBExpress - relation mère/fille

Bonjour,
j'essaye actuellement de porter une application (perso/maison) de BDE à Interbase/DBExpress.
Mon application initiale comporte pas mal de relation mère-fille.
Après avoir absorbé les tutoriaux du site, je me lance... et ça ne marche absolument pas.
J'ai essayé plein de choses, entre autre de ne passer que par des SQLTable. Et là, pouf, ça marche. Par contre, impossible de le faire marcher avec des SQLQuery.
A bout de patience, j'essaye avec les composants natifs Interbase. Et là, tout est OK...
Bref, la seule chose que je n'arrive pas à faire fonctionner, c'est DBExpress quand la partie détail est encapsulée dans une SQLQuery.
J'ai pourtant la chaine complète DBExpress: SQLQuery, DataSetProvider, ClientDataSet, (DataSource).
Dans le ClientDataSet, je mets à jour les champs MasterSource, MasterFields, IndexFieldNames. Mais j'ai alors le message suivant: "Database Server Error: unassigned code".

Quelqu'un a-t-il une idée ?
Merci d'avance
Indiana

Bon, personne n'a d'idées.
Je crois que je n'ai plus qu'à coder en IB natif. Tant pis pour DBExpress.

Indiana

Dans ton SQLQuery, tu as renseigné la requete ?

Bonjour,

merci pour ton intérêt.
Qu'appelles-tu "renseigner la requête" ?

Tu as une propriété dans ton composant qui s'appelle SQL (parfois SQLinsert, SQLDelete etc...).
Si tu n'indiques pas de requete genre

Code:

---

1 2	Select * from matable

---

Il est normal que le ClientDataSet te retourne une erreur car il n'aura aucune table/ ensemble de tables sur le(s)quel rechercher.

Oui, évidemment, j'ai rempli la requête SQL.
Ce qui ne marche pas, ce n'est pas la requête, mais la relation mère-fille avec une autre requête. Si j'enlève la relation, j'ai tous mes enregistrements.
Mais ce que je voudrais, c'est suite à un déplacement dans la requête maître, me retrouver au bon endroit dans la requête fille.
Or si je remets cette relation, j'ai le message d'erreur que je cite plus haut.
Par contre, si les ClientDataSet sont liés à un SQLTable plutôt qu'à un SQLQuery, tout marche parfaitement...

Tu peux le faire à la main.

Dans le datasource de ta grid, dans l'évenement OnDataChange

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TfrmMain.DataSource1OnDataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).Dataset.State in [dsBrowse] then With MaRequeteFille do begin Close; SQL.clear; SQL.Add('Select * from latableFille'); SQL.Add('Where MonChamp = ' + TDataSource(Sender).Dataset.FieldByName('LeChampCommun').AsString); Open; end; end;

---

Au moins avec cela tu n'es quand même moins limité même si ca nécessite un peu plus de code.
Après il faut voir si l'appel à la 2em requete n'est pas trop longue.

Sinon, au lieu de faire une requete, tu peux utiliser le filtre sur la requete.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TfrmMain.DataSource1OnDataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).Dataset.State in [dsBrowse] then With MaRequeteFille do begin Filtered := False; Filter := 'MonChamp = ' + TDataSource(Sender).Dataset.FieldByName('LeChampCommun').AsString; Filtered := True; end; end;

---

Bien sur c'est des méthodes de remplacement, il y a peut être quelqu'un sur le forum qui pourra peut être te sortir une autre solution sortie de derriere les fagots ^^

Merci pour ta réponse.

Ca me plait bien, même si ça ne répond pas directement à ma demande.
Par contre, je n'ai pas besoin de modifier la requête. Tout ce que je veux, c'est simuler une relation mère fille, je n'ai donc besoin que d'un locate pour me placer sur le bon enregistrement.

Code:

---

1 2 3 4 5 6 7 8

procedure TfrmMain.DataSource1OnDataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).Dataset.State in [dsBrowse] then MaRequeteFille.Locate( 'ChampRelation', TDataSource(Sender).Dataset.FieldByName('ChampRelation').AsInteger, []); end;

---

Je teste ça ce soir et je te tiens au courant.

Bonjour Malatar,

la manip ne s'est pas révélée super efficace, mais je n'avais pas beaucoup de temps. Dans un premier temps, je vais terminer la version en IB natif pour avoir rapidement quelque chose qui refonctionne.
Lorsque j'aurai terminé (ça reste tout de même une petite appli), je regarderai à nouveau la version DBExpress avec ta proposition de contournement.

Encore merci pour ton aide.