Discussion :

[liazidf]

[Delphi 7- ADO]
Bonsoir,
Je voudrais savoir pourquoi les méthodes(Next,prior et autres) ne fonctionnent pas pour des tables liées?
voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
while not ADOTable1.Eof do
   begin
      while ADOTable2Champ1.Value=ADOTable1Champ1.Value do
       begin
          while  ADOTable3Champ2.Value = ADOTable2Champ2.Value do
           begin
             ADOTable3.Next;
             Label1.Caption:=IntToStr(ADOTable3.RecNo);
           end;
        ADOTAble2.Next;
       end;
      ADOTAble1.Next
    end;
end;

[Rayek]

Il serait préférable de nous dire ce que tu veux que ton programme fait et le problème que tu rencontres, car en regardant le code, je ne vois aucun soucis.

Utilisant souvent ADO, je n'ai jamais rencontré de problème avec les Next & co.

[liazidf]

Il serait préférable de nous dire ce que tu veux que ton programme fait et le problème que tu rencontres, car en regardant le code, je ne vois aucun soucis.

Utilisant souvent ADO, je n'ai jamais rencontré de problème avec les Next & co.

Bonjour,
En fait je voudrais ecrire dans un fichier txt, le contenu des 3 tables, sous la forme suivante:
--ADOTable1Champ1
-- ADOTable2Champ1
-- ADOTable3champ1
bien entendu que les relations sont 1->n. Ce fichier doit servir à remplir un treeview, car je n'arrive pas à maitriser le composant JvDBTreeView, dont j'ai déja posté un message precedement.
Merci.

[Aka Guymelef]

Et quand tu dis que cela ne "fonctionne pas" tu entends par quoi au juste ?

Est-ce que tu n'as pas de relations maître-détail (MasterSource) entre tes tables ?

En outre je penses qu'il faudrait mettre un ADOTAble2.First avant la boucle sur ADOTAble2 et un ADOTable3.First avant la boucle sur ADOTable3 pour que cela fonctionne correctement.

[liazidf]

Et quand tu dis que cela ne "fonctionne pas" tu entends par quoi au juste ?

Est-ce que tu n'as pas de relations maître-détail (MasterSource) entre tes tables ?

En outre je penses qu'il faudrait mettre un ADOTAble2.First avant la boucle sur ADOTAble2 et un ADOTable3.First avant la boucle sur ADOTable3 pour que cela fonctionne correctement.

Bonsoir AKa Guymelef,

Pour mieux expliquer la chose, voyant la relation 1->n , moi j'utilise ADOTable2.next pour avancé d'1 enregistrement, et c'est là ou ça marche pas, d'ou (n) reste positionné toujours sur le même record, maintenant concernant le ADOTable2.First, je ne vois l'utilité du fait que les tables sont liées (MasterSource).
Merci AKa.

[Aka Guymelef]

Dans ce cas si tes tables sont liées correctement avec un MasterSource je ne vois pas l'utilité de tester l'égalité entre les champs de "jointures" puisque le système se charge déjà de filtrer le jeu d'enregistrement détail par rapport à l'enregistrement maître courant.

Le First il faut toujours le faire car tu ne sais pas à l'avance sur quel enregistrement courant est positionné chaque DataSet et du coup tu risques d'oublier aléatoirement des enregistrements.

Du coup le code devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    ADOTable2.First;
    while not ADOTable2.Eof do
    begin
      ADOTable3.First;
      while  ADOTable3.Eof do
      begin
        Label1.Caption:=IntToStr(ADOTable3.RecNo);
        ADOTable3.Next;
      end;
      ADOTAble2.Next;
    end;
    ADOTAble1.Next;
  end;

[Rayek]

Dans ce cas si tes tables sont liées correctement avec un MasterSource je ne vois pas l'utilité de tester l'égalité entre les champs de "jointures" puisque le système se charge déjà de filtrer le jeu d'enregistrement détail par rapport à l'enregistrement maître courant.

Le First il faut toujours le faire car tu ne sais pas à l'avance sur quel enregistrement courant est positionné chaque DataSet et du coup tu risques d'oublier aléatoirement des enregistrements.

Du coup le code devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    ADOTable2.First;
    while not ADOTable2.Eof do
    begin
      ADOTable3.First;
      while  ADOTable3.Eof do
      begin
        Label1.Caption:=IntToStr(ADOTable3.RecNo);
        ADOTable3.Next;
      end;
      ADOTAble2.Next;
    end;
    ADOTAble1.Next;
  end;

Pas d'accord avec les AdoTabl2.First et AdoTable3.First, comme tu l'as dit toi même

le système se charge déjà de filtrer le jeu d'enregistrement détail par rapport à l'enregistrement maître courant

Donc il sera positionner automatiquement sur le bon enregistrement

Enfin bon, je pense quand même que ça mériterait plus l'utilisation d'une requête que de jouer avec des TAdoTable.
De nos jours, travailler sur les bases de données sans connaitre le SQL, c'est se mettre des limites dans le développement.
De plus que le SQL n'est pas bien dur à apprendre.

[Aka Guymelef]

Certes quand la table maître change d'enregistrement, le DataSet détail filtre son jeu d'enregistrement mais le remet-il forcément sur le premier ? Pas si sûr Donc moi prudent moi faire first

[Rayek]

Certes quand la table maître change d'enregistrement, le DataSet détail filtre son jeu d'enregistrement mais le remet-il forcément sur le premier ? Pas si sûr Donc moi prudent moi faire first

Es tu sur que la table est filtrée et que ce n'est pas un positionnement sur l'enregistrement (je n'utilise pas les TAdoTable et les liaison maitre détails, je préfère les requêtes) donc quand tu fais le First que ça ne retourne pas sur le 1er enregistrement de la table et pas le premier enregistrement maitre-détails ?

[Aka Guymelef]

Non car justement dans une relation maître détail le jeu d'enregistrement est constamment filtré par rapport à l'enregistrement maître de la même manière que si tu appliquais un SetRange.

Donc faire un First, Next, Move, Prior et Last sur un DataSet détail ne fera bouger le curseur que parmi les enregistrements filtrés. De même Eof et RecordCount ne s'appliquent alors que sur le jeu d'enregistrement filtré et pas le total.

Mais maintenant si effectivement il y a moyen de passer par une requête autant privilégier cette solution car elle sera infiniment moins coûteuse qu'un parcours de DataSet liés (surtout en cascade comme ça)

[liazidf]

Non car justement dans une relation maître détail le jeu d'enregistrement est constamment filtré par rapport à l'enregistrement maître de la même manière que si tu appliquais un SetRange.

Donc faire un First, Next, Move, Prior et Last sur un DataSet détail ne fera bouger le curseur que parmi les enregistrements filtrés. De même Eof et RecordCount ne s'appliquent alors que sur le jeu d'enregistrement filtré et pas le total.

Mais maintenant si effectivement il y a moyen de passer par une requête autant privilégier cette solution car elle sera infiniment moins coûteuse qu'un parcours de DataSet liés (surtout en cascade comme ça)

Bonjour,
merci pour vos réponses, je vais essayer avec des requêtes, toutefois, je vous signale que en utilisant des DBNavigator les méthodes Next,Prior marche parfaitement sur un dataset filtre d'ou mon étonnement .
A+

[liazidf]

Bonjour,
merci pour vos réponses, je vais essayer avec des requêtes, toutefois, je vous signale que en utilisant des DBNavigator les méthodes Next,Prior marche parfaitement sur un dataset filtre d'ou mon étonnement .
A+

salut,
Problème résolu à l'aide de requêtes sql.