Comparaison de deux tables selon leur clé primaire

**tomy29** · 23/08/2006, 16h02

Bonjour,

sous delphi et access peut-on faire une jointure entre deux tables (ou comparer deux tables) uniquement sur leur clé primaire, MAIS sans connaitre le nom de ces champs clé primaire. (je dois faire cette opération sur un nb de couple de tables important et je le fais dans une procédure générique en passant en parametre le nom des deux tables à chaque fois)

J'espère avoir été clair........

Merci pour vos réponses.

**Yurck** · 23/08/2006, 16h16

Bonjour,
Pour delphi pas de problème tu devras construire ta requête mais il te faut connaître la clé primaire des deux tables. Or si je sais que c'est faisable avec Interbase (ou fireBird) je ne sais pas pour acces.
Tu pourrais chercher du côté du TTable (et de son code) qui sait charger la propriété IndexName, à partir de là peut être que ta base à une convention de nommage pour pouvoir repérer parmis ces index lequel correspond à la clef primaire.
enfin bon...

**tomy29** · 23/08/2006, 16h46

D'apres ce que je vois dans l'aide Delphi. Si je prends un ADOTable, je devrais pouvoir jouer avec IndexDefs, IndexFieldNames, IndexFields, IndexName, etc....

Il faut que je récupère la liste des champs composant l'index de la table en fait.

**tomy29** · 23/08/2006, 16h56

ca commence mal,
quand je lui fais afficher l'indexname de la table (test avec un nom de table en dur dans la propriété tablename de ADOTable), j'ai rien à l'ecran

ou que je lui fais afficher le indexfieldcount j'ai 0...

**Yurck** · 23/08/2006, 17h06

et quand tu ouvres sous delphi en conception le propriété IndexName ?

**Yurck** · 23/08/2006, 17h11

TADODataSet.GetIndexNames

avec ça tu devria trouver ton bonheur maintenant il te faudra repérer de ces index lequel tu veux.

**Yurck** · 23/08/2006, 17h24

Allez j'en remets une couche et je vais me coucher.
Ne devrais-tu pas poster dans le forum acces une question du type :

Comment peut-on obtenir les index d'une table et les champs de ceux-ci ?
N'existe-t-il pas une requête dui le permettrait ?

enfin un truc du genre.
a+ et bonne chance

**tomy29** · 23/08/2006, 22h51

Merci pour vos réponses.

Je me suis dit que sur le forum access ils me diraient tout de suite : va voir dans le forum Delphi. Car c'est plus un probleme de trouver la bonne propriété/méthode d'un composant Delphi.

J'essaierai GetIndexname demain matin a mon arrivée au boulot.

Merci

**tomy29** · 24/08/2006, 09h23

Getindexname marche, il me retourne bien l'index PrimaryKey. Merci Yurck!

Mais je n'arrive pas a partir de cet index a récuperer les champs de l'index.
Apres avoir affecté PrimaryKey comme index de mon ADOTABLE, la propriété Indexfieldname est vide, et pourtant Indexfieldcount = 1.

**Cl@udius** · 24/08/2006, 10h12

Salut,

Je me trompe peut-être, mais je pense que les champs composant l'index sont stockés dans IndexFields.

Tu dois pouvoir les énumerer ainsi:

Code :

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

1
2
3
 
  for i := 0 to IndexFieldCount - 1 do
    MyField := IndexFields[i];

@+

**Yurck** · 24/08/2006, 10h18

Tu dois pouvoir y parvenir.
Sur un TTAble lorsqu'on valorise TableName alors la propriété IndexDefs se trouve être renseignée avec le nom des index et les champs de ceux-ci.
En conséquence de quoi si tu cherches dans le source du TTAble sur l'affectation de la propriété TableName tu dois pouvoir suivre le chemin te permettant de trouver les méthodes qui te sont utiles.

a+

**tomy29** · 24/08/2006, 10h47

Envoyé par Claudius40

Salut,

Je me trompe peut-être, mais je pense que les champs composant l'index sont stockés dans IndexFields.

Tu dois pouvoir les énumerer ainsi:

Code :

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

1
2
3
 
  for i := 0 to IndexFieldCount do
    MyField := IndexFields[i];

@+

Le probleme c'est que quand je fais :
showmessage(Adotable1.IndexFields[0].asstring);
il me dit : indice de liste hors limite.

**Bloon** · 24/08/2006, 18h22

Il faut parcourir les index via IndexDefs :

Code :

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

1
2
3
4
5
6
7
var
  i : integer;
begin
  ADOTable1.Open;
  for i := 0 to ADOTable1.IndexDefs.Count - 1 do
    showMessage(ADOTable1.IndexDefs[i].Name + ' / ' + ADOTable1.IndexDefs[i].Fields);
end;

Par contre je crois que ça merde si la clé est composée de plusieurs zones (à vérifier).

Bloon

**dj_techno** · 25/08/2006, 11h55

salut
sous delphi tu n'a pas besoin d'une clé primaire bon pour la jointure des tables d'aprés se que j'ai compris tu peux utiliser la liaison MAITRE/DETAIL avec adotable c de joindre des tables détails à une table maitre qui ont des champs clés identique par exemple dans la table maitre tu mets nom,prénom,numéro et aussi dans la table détail tu mets les même champs ainsi des champs détail date naissance, adresses, etc...et dans master source de adotabledétail tu mets la table maitre ou il y'a les références et dans masterfields tu joins entre les champs identique donc aprés execution tu va selection par exemple avec dbloockupcombo le nom et il te donne les détail de la table détail
fais une visite au help delphi relation maitre/détail tu va trouver se que tu veux avec exemple

**tomy29** · 25/08/2006, 14h35

Envoyé par Bloon

Il faut parcourir les index via IndexDefs :

Code :

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

1
2
3
4
5
6
7
var
  i : integer;
begin
  ADOTable1.Open;
  for i := 0 to ADOTable1.IndexDefs.Count - 1 do
    showMessage(ADOTable1.IndexDefs[i].Name + ' / ' + ADOTable1.IndexDefs[i].Fields);
end;

Par contre je crois que ça merde si la clé est composée de plusieurs zones (à vérifier).

Bloon

Le probleme c'est que je ne peux pas accéder à ADOTable1.IndexDefs[0] (indice de liste hors limite), donc je ne peux pas utiliser cette méthode.

**tomy29** · 25/08/2006, 14h39

Envoyé par dj_techno

salut
sous delphi tu n'a pas besoin d'une clé primaire bon pour la jointure des tables d'aprés se que j'ai compris tu peux utiliser la liaison MAITRE/DETAIL avec adotable c de joindre des tables détails à une table maitre qui ont des champs clés identique par exemple dans la table maitre tu mets nom,prénom,numéro et aussi dans la table détail tu mets les même champs ainsi des champs détail date naissance, adresses, etc...et dans master source de adotabledétail tu mets la table maitre ou il y'a les références et dans masterfields tu joins entre les champs identique donc aprés execution tu va selection par exemple avec dbloockupcombo le nom et il te donne les détail de la table détail
fais une visite au help delphi relation maitre/détail tu va trouver se que tu veux avec exemple

Je ne connais pas le nom des champs clé et je ne peux pas les choisir a la main, tout doit être transparent pour l'utilisateur. Je ne peux donc pas specifier quel(s) champ(s) sont contenus dans les clés dans les deux tables.

Si seulement delphi pouvait me donner le nom de ces champs ca irait tout de suite beaucoup mieux!

**Bloon** · 25/08/2006, 15h43

Envoyé par tomy29

Le probleme c'est que je ne peux pas accéder à ADOTable1.IndexDefs[0] (indice de liste hors limite), donc je ne peux pas utiliser cette méthode.

Dans ce cas, c'est que tu n'as pas d'index sur ta table.

Ou alors tu as un problème ADO, essaye en BDE+ODBC

Avec l'explorateur SQL (donc le BDE) est-ce que tu vois ton index ?

Bloon

**Yurck** · 25/08/2006, 16h14

Bonjour,

Bien nous sommes donc dans une impasse.
Il faut donc remettre certaines choses à plat.

Version Delphi ?

Ensuite tu souhaites lier deux tables entre elle via l'index primaire de chacune d'entre elle.
Il existe donc un principe de normage sur ta base qui te permettrait de faire le lien entre une table et une autre.
Quel est ce principe ?

En effet je m'explique, il est possible qu'en listant les champs de chacune des deux tables tu puisses en déduire la liaison par des champs de même nom comme une génération de base par AMC te l'aurait fait.

Et enfin es-tu sur que le nom de l'index n'est pas suffisant pour obtenir les champs de celui-ci; mais pas avec une méthode d'un composant Delphi, plutôt avec une requete ACCES comme :
SELECT * from Table_index where nom_index='Mon_nom'
Tu devrais posé cette question sur le forum acces.

a+

**dj_techno** · 26/08/2006, 12h09

voici un exemple que j'ai déja utiliser pour parcourir une table et calculer la diff entre deux date il peux t'aider

adotableetat.First;
while not ADOTableetat.Eof do begin
adotableetat.edit;
date1:=adotableetat.fields[6].AsDateTime;
date2:=adotableetat.fields[5].AsDateTime;
adotableetat.fields[4].AsCurrency:=date1-date2+1;
adotableetat.post;
ADOTableetat.Next;

**dj_techno** · 26/08/2006, 12h15

ahhh
mais avec delphi tu peux avoir les nom des champs, pour les relation maitre/detail tu peux faire la liaison entre les champs avec masterfields et tu fais une relation entres les deux tables ou si tu ne veux pas des relation il suffit de cliquer deux fois sur ton adotable et faire bouton droit et ajouter tous les champs et aussi par programmation les champs sont identifier par leurs numéro avec fields[num champs] et les num commencent par 0 qui référence le 1er champs etc...

Comparaison de deux tables selon leur clé primaire

Bases de données Delphi

Discussions similaires

Partager

Partager