filtre avec adoquery

[kasrimus]

Bonsoir
svp, comment peut-ton filtrer une base données avec adoquery.
ayant 02 tables [access 2007],
table1 : concessionnaire
table2 : marques
avec 02 dbgrid [marques] dbgrid [concessionnaires]
ce que je souhaiterais faire c'est quand je sélectionne une marque dans dbgrid [marques] tous les concessionnaires commercialisant la marque sélectionnée seront affichés dans la dbgrid [concessionnaires]
comment faire svp
merci pour compréhension.

[Ph. B.]

Bonjour,

Envoyé par kasrimus

svp, comment peut-ton filtrer une base données avec adoquery.
ayant 02 tables [access 2007],
table1 : concessionnaire
table2 : marques
avec 02 dbgrid [marques] dbgrid [concessionnaires]
ce que je souhaiterais faire c'est quand je sélectionne une marque dans dbgrid [marques] tous les concessionnaires commercialisant la marque sélectionnée seront affichés dans la dbgrid [concessionnaires]

Il s'agit d'une relation Maître Détails. Il faut paramétrer les 2 ensembles de données associés aux grilles de manières adéquates, en jouant sur les propriétés MasterSource, MasterFields de l'ensemble détails quand il s'agit de TADOTable.
Pour des TADOQuery, il faut utiliser l'événement AfterScroll du 1° query. il est déclenché à chaque déplacement dans l'ensemble. Dans la procédure appelée par cet événement, il faut réactualiser le second query en changeant le paramètre correspondant à l'id qui sert de clé étrangère...
Attention, ne pas oublier de désactiver l'événement lors du chargement du 1° query et de le réactiver après le chargement pour éviter des rafraichissements inutiles et couteux en ressources pour le 2° query.
Rapidement, cela donne :

Code :

1
2
3
4
5
6
7
8
  // Débrancher l'événement
  ADOQuery1.AfterScroll := nil;
  // Ouvrir l'ensemble de données
  ADOQuery1.Open;
  // Rebrancher l'événement
  ADOQuery1.AfterScroll := ADOQuery1AfterScroll;
  // Appeler le gestionnaire d'événement pour réactualiser le 2° ensemble
  ADOQuery1AfterScroll(nil);

[jeromelef2]

bonjour,

une piste : avec l’événement on change du datasource (lié au tadoquery et à la grille).
mais attention : il me semble que cet événement est aussi appelé lors du chargement de la grille (prevoir soit un boolean d'initialisation ou de jouer avec l'affectation de l'evenement )

[kasrimus]

Bonsoir
merci pour la réponse
sincèrement, j'ai rien pigé chose qui m'échappe totalement.
sans trop demander plus de précisions svp.
merci

[Ph. B.]

Bonjour,

Envoyé par kasrimus

sincèrement, j'ai rien pigé chose qui m'échappe totalement.

Quel point vous a échappé ?

En attendant je complète ce que j'ai dit concernant les TADOQuery (les instructions SQL devront être adaptées).

1. 1°) table1 : concessionnaire : les composants
   ADOQuery1 => DataSource1 => DBGrid1
   
   Code :

   ADOQuery1.SQL.Text :=  'select ID_CONC, NOM_CONC, VILLE_CONC from CONCESSIONNAIRES where ID_MARQUE = :Id';

2. 2°) table2 : marques
   ADOQuery2 => DataSource2 => DBGrid2
   
   Code :

   ADOQuery2.SQL.Text :=  'select ID_MARQUE, NOM_MARQUE from MARQUES';

Pour le composant ADOQuery2, on va créer un gestionnaire d'événement pour l'événement AfterScroll. On aura :

Code :

1
2
3
4
5
6
7
8
9
procedure TForm1.ADOQuery2AfterScroll(DataSet: TDataSet);
begin
  // Fermeture de la requête des concessionnaires
  ADOQuery1.Close;
  // On change le paramètre (=la marque)
  ADOQuery1.Parameters.ParamByName('Id').Value := ADOQuery2.FieldValues['ID_MARQUE'];
  // Ouverture de la requête avec le nouveau paramètre
  ADOQuery1.Open;
end;

Comme je le disais précédemment, pour éviter d'appeler le gestionnaire d'événement plusieurs fois lors de l'ouverture de ADOQuery2, on va écrire :

Code :

1
2
3
4
5
6
7
8
// Débrancher l'événement
ADOQuery2.AfterScroll := nil;
// Ouvrir l'ensemble de données
ADOQuery2.Open;
// Rebrancher l'événement
ADOQuery2.AfterScroll := ADOQuery2AfterScroll;
// Appeler le gestionnaire d'événement pour réactualiser ADOQuery1
ADOQuery2AfterScroll(nil);

[kasrimus]

Bonjour
merci pour votre réponse, j'ai testé ça n'a pas marché y a toujours un problème sans que cette fois-ci message d'erreur ??? est ce que je pourrais vous faire part de l'application svp pour un exemple bien concret
merci encore.

[Ph. B.]

Bonjour,

Envoyé par kasrimus

merci pour votre réponse, j'ai testé ça n'a pas marché y a toujours un problème sans que cette fois-ci message d'erreur ???

Qu'est ce que cela donne en traçant pas à pas le code ?

Envoyé par kasrimus

est ce que je pourrais vous faire part de l'application svp pour un exemple bien concret

Publiez juste l'unité de la fiche (TForm) où se trouvent les grilles (DBGrid), voire l'unité du module de données (TDatamodule) associé...

[kasrimus]

bonsoir
voila ce que j'ai pu faire
merci encore.

[Ph. B.]

Oups, je me suis mal fait comprendre

Envoyé par Ph. B.

Publiez juste l'unité de la fiche (TForm) où se trouvent les grilles (DBGrid), voire l'unité du module de données (TDatamodule) associé...

Je parlais du code source de l'unité de cette fiche...

[kasrimus]

Bonjour
je vous remercie bien vivement
voilà je vous fait part de l'unit1
merci encore pour votre aide

[Ph. B.]

Bonjour,

Envoyé par kasrimus

voilà je vous fait part de l'unit1

Je voulais dire le fichier source de l'unité (unit1.pas si c'est le nom de l'unité), pas la capture d'écran...
J'ai quand même vu que tout avait été mélangé...
Il faut reprendre le code gestionnaire de l'événement AfterScroll tel que je vous l'ai donné...
La 2° partie de code est à placer dans la procédure qui va réaliser l'ouverture de AdoQuery2, mais pas dans le code gestionnaire. La, vous avez introduit un appel récursif à la procédure ADOQuery2AfterScroll.
Ce bout de code peut éventuellement se placer dans la procédure FormCreate ou dans un procédure qui est susceptible d'ouvrir et de ré-ouvrir ADOQuery2...

[kasrimus]

Bonsoir
merci pour votre patience et surtout pour la compréhension à mon égard
voilà je vous fait part code [zip]
merci encore

[kasrimus]

Bonsoir à toute l'équipe.

[Ph. B.]

Bonsoir,
J'ai regardé le code. Voila la marche à suivre :

1. Dans la base Access, il faut créer une colonne Codmarq dans la table concessionnaires de même type que celle de la table marque.
2. Renseigner les valeurs de cette colonne pour chacune des lignes de la table.
3. Reprendre l'unité Unit1 que j'ai modifiée en fonction de cet ajustement
   J'ai juste renommé certains composants pour plus de clarté et placé le code comme il le fallait...

[kasrimus]

Bonjour et joyeuse nouvelle année. Que du bonheur.
mes sincères remerciements pour votre aide.
au fait ce n'est pas ce que je voulais???
quand je clique sur un nom de marque il me ressort pas l’ensemble des concessionnaires commercialisant la marque sélectionnée.

ex: audi --> CONS1 - CONS3 - CONS10 - CONS21. dans dbgrid CONCESSIONNAIRES.
merci quand même, je vais vous casser la tête éternellement.
a+

[kasrimus]

Bonsoir,
pardon, il fallait lire "merci quand même, je vais pas vous casser la tête éternellement"
merci encore
si je peux me permettre c'est toujours sur adoquery. en l'absence
de table adotable là ou il y a possibilité de lier par table grâce au master source, on est un perdu.
ma question est : peut-on lier 4 tables (adoquery) svp
merci encore.

[BuzzLeclaire]

Envoyé par kasrimus

....
ma question est : peut-on lier 4 tables (adoquery) svp
merci encore.

Bonsoir,

Lier 4 tables et le termes ADOQUERY n'a pas de sens...

ADOQUERY sert à l'établissement (l'execution) d'une requête SQL. avec une requête SQL tu peux effectivement lier beaucoup de tables entre elles mais quid des clés ?

a+

[kasrimus]

Bonsoir,
c'est ce que je voulais savoir justement. y a une possibilité d'un exemple ou une adresse [site] svp ?
merci encore pour le tout

[kasrimus]

Bonjour
pas de réponse?
questions restent ouvertes...! toujours
merci

[Rayek]

Envoyé par kasrimus

Bonjour
pas de réponse?
questions restent ouvertes...! toujours
merci

Ce n'est pourtant pas dur d'aller sur le menu SGBD et de cliquer sur SGBD & SQL après il y a une section tutoriel qui te permettra de faire tes premiers pas en SQL pour lier tes 4 tables.