Faire et défaire dynamiquement une relation maître - détail

Version imprimable

Bonjour,
Voilà j'ai trouvé ce code pour Faire et défaire dynamiquement une relation maître - détail:

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure SupprimerRMD(Table: TIBTable); 
begin 
   with Table do 
   begin 
      Active:= False; 
      MasterSource:= nil; 
      MasterFields:= ''; 
      IndexFieldNames:= ''; 
      Active:= True; 
   end; 
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure CreerRMD(Table: TIBTable; MSource: TDataSource; MChamp: String; Index: String); 
begin 
   SupprimerRMD(Table); 
   with Table do 
   begin 
      Active:= False; 
      MasterSource:= MSource; 
      MasterFields:= MChamp; 
      IndexFieldNames:= Index; 
      Active:= True; 
   end; 
end;

mais le problème est qu'il m'affiche pleins d'erreurs car ils ne reconnais pas:TIBTable ni les autres!!????

Merci+++++++++++

06/10/2008, 12h50
Invité1

TTABLE

Bonjour

TIBTABLE sont des tables Interbase

Toi tu utilises des tables BDE

Alors tu remplaces TIBTABLE par TTABLE est ça doit marcher

a +++++++++++++
06/10/2008, 12h54
souminet

Citation:

Envoyé par samy larson

Bonjour

TIBTABLE sont des tables Interbase

Toi tu utilises des tables BDE

Alors tu remplaces TIBTABLE par TTABLE est ça doit marcher

a +++++++++++++

Oui, je ne suis quand même pas nulle à ce point, j'ai essayé avec le TTAble et idem
06/10/2008, 13h02
Invité1

Citation:

mais le problème est qu'il m'aafiche pleins d'erreurs car ils ne reconnais pas:TIBTable ni les autres!!????

desolé :hola:, mais c'est ce que tu as écrit
06/10/2008, 13h06
evarisnea

:salut:

Citation:

Envoyé par souminet

mais le problème est qu'il m'affiche pleins d'erreurs car ils ne reconnais pas:TIBTable ni les autres!!????

as-tu ajouté les unités IBTable et DB dans les uses de ton unité ?

j'ai essayé chez moi ton code est ça marche trés bien

les unités utilisées

Code:

1
2
3
 
uses 
DB, DBTables;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure SupprimerRMD(Table: TTable); 
begin 
   with Table do 
   begin 
      Active:= False; 
      MasterSource:= nil; 
      MasterFields:= ''; 
      IndexFieldNames:= ''; 
      Active:= True; 
   end; 
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure CreerRMD(Table: TTable; MSource: TDataSource; MChamp: String; Index: String); 
begin 
   SupprimerRMD(Table); 
   with Table do 
   begin 
      Active:= False; 
      MasterSource:= MSource; 
      MasterFields:= MChamp; 
      IndexFieldNames:= Index; 
      Active:= True; 
   end; 
end;

utilisation

Code:

1
2
 
CreerRMD(Table1, datasource2,'champ1', '' )

bonne chance

06/10/2008, 13h17
Just-Soft

Salut;

1. j'ai un petit doute sur l'appel de la fonction de création de la relation donc peux-tu stp faire voir le code appelant.
2. regardes ce qui se passe dans le OnDataChange ou OnStateChange si tu as posé du code dedans.

Bon codage.
06/10/2008, 13h20
ALWEBER

La relation maitre-détail que tu décris est au niveau de la fiche et non pas au niveau des tables. Il est important que tes tables soient elles mêmeq dans une relation similaire et que les clés primaire et secondaires soient bien positionnées.
07/10/2008, 10h09
souminet

Bonjour,

En fesant tout ce qu'il fallait, il m'affiche LIAISON CIRCULAIRE NON AUTORISEE

JE n'ai pas compris pourquoi?? mais je me souviens qu'une fois j'ai eu un problème similaire a cause des DBLookUpComboBox, non??????????,

Merci
07/10/2008, 10h32
Invité1

bonjour,

pour savoir si c'est le DBLookUpComboBox qui est a l'origine du probleme

tu le desactives, et tu executes ton programme.

mais je pense, que le probleme est que tu as une liaison circulaire

c.à.d soit tu as fait

table1.MasterSource:= datasource2;
table2.mastersource:= datasource1;

c'est circulaire

ou alors tu as mis

table1.MasterSource:= datasource1; la table liée avec elle meme

bonne chance
07/10/2008, 10h39
Just-Soft

Salut;

Très juste ce que tu penses. en fait, regardes les propriétés du DBLookUpCombBox si par hasard la ListSource n'est pas la même que le DataSource.

Bon Codage.
07/10/2008, 12h17
souminet

Citation:

Envoyé par Kelloucheaeh

Salut;

Très juste ce que tu penses. en fait, regardes les propriétés du DBLookUpCombBox si par hasard la ListSource n'est pas la même que le DataSource.

Bon Codage.

Oui effectivement c'était ça, la ListSource été identique à la datasource, j'ai pu régler le problème,
Mais maintenant , il m'affiche : pas d'index pour les champs ...
en fait je dispose d'une table : Articles avec comme clé le champs: Ref_Interne
quant à la 2ème table : Table Livraison, avec pour clé secondaire : Ref_Interne (A travers le module base de données) car je ne pouvais pas la mettre en tant que clé , car plusieurs livraisons du même articles sont prévues, bref, à la création de cette clé secondaire on me demande de saisir un nom d'index , j'ai mis: MonIdex

Justement je l'ai repris ainsi:

Code:

CreerRMD(DataModule2.TablLivraison, DataModule2.DataSArticcle,'Ref_Interne','MonIndex' )
07/10/2008, 12h33
Just-Soft

Re;

ce que je te propose c'est de faire tout ça en mode conception car apparemment tout semble dans l'ordre.

sauf peut être que tes index ne sont pas du même type ce qui est une condition dans le cas des relations maîtres / détails.

Bon codage.
07/10/2008, 12h40
Invité1
slt

essaies de mettre la valeur de l'index à nil ''
Code:

1 2 CreerRMD(DataModule2.TablLivraison, DataModule2.DataSArticcle,'Ref_Interne','' )
bonne chance
07/10/2008, 12h45
souminet

Citation:

Envoyé par Kelloucheaeh

Re;

ce que je te propose c'est de faire tout ça en mode conception car apparemment tout semble dans l'ordre.

sauf peut être que tes index ne sont pas du même type ce qui est une condition dans le cas des relations maîtres / détails.

Bon codage.

Mais justement je ne veux pas que ça soi en mode conception, a cause des DBLookUpCombox...