[Access] Relier deux DBLookupComboBox et un DBGrid

Version imprimable

19/08/2019, 19h45
CreedApollo

1 pièce(s) jointe(s)

[Access] Relier deux DBLookupComboBox et un DBGrid

Bonjour,

J'ai une base de données Access qui contient trois tables (table Spécialité, table Section et table Stagiaire). Chaque spécialité comporte plusieurs sections et chaque section contient plusieurs stagiaires. Je veux mettre deux DBLookupComboBox, le premier pour choisir la spécialité et le second pour n'afficher que les sections de la spécialité choisie.
Ce que je veux réaliser, c’est que lorsque je choisis une spécialité dans le premier DBLookupComboBox, le second DBLookupComboBox n’affiche que les sections qui appartiennent à cette spécialité. Et après que j’aurais choisi une Section dans le deuxième DBLookupComboBox, il ne m’affiche que les stagiaires de cette section dans un DBGrid.

Pièce jointe 498369
19/08/2019, 20h44
tourlourou

Bonsoir,
Il faudrait probablement que chaque ComboBox soit relié à un DataSource propre : lorsqu'on choisit une spécialité dans le premier ComboBox, un Query peuple celui des sections de cette seule spécialité et autorise (Enabled := True) la sélection dans le second ComboBox.
Même mécanisme pour le choix de la section et l'affichage de ses stagiaires dans un DBGrid.
20/08/2019, 07h14
solilog

Bonjour

C'est assez facile si les tables sont bien pensées, j'ai quelques exemples.
Pour info je pense qu'il faudra plus que 3 tables si
- une section peut faire partie de plusieurs spécialités
- un stagiaire participe à plusieurs sections
Peux-tu nous décrire les champs de tes tables (au moins les champs clés) ?

solilog
20/08/2019, 10h35
CreedApollo

Oui bien sur, Je vais te montrer directement le MLD de mon MCD

Table Spécialité: (Nom spécialité, Code Spécialité, Durée formation, Niveau d'accès, Niveau qualification).

Table Section: (Code section, Date début formation, Date fin formation, #Code spécialité).

Table Stagiaire: (Num d'inscription, Num d'identification, Nom, Prénom, Date de naissance, Lieu de naissance, Adresse, #Code section).
21/08/2019, 05h26
solilog

Salut,
Je te prépare un exemple que je posterai demain soir (un peu busy aujourd'hui).
21/08/2019, 10h16
CreedApollo

Prends ton Temps
Merci d'avance
21/08/2019, 10h33
CreedApollo

Salut,
j'ai réussi a relié le DBLookupComboBox de la section avec le DBGrid, maintenant quand je choisi une section, seule les stagiaire qui sont dans cette Section s'affiche dans le DBGrid, Maintenant il me reste juste a relié le DBLookupComboBox de la spécialité avec le DBLookupComboBox de la section pour a chaque fois que je choisi une spécialité, seule les section concerné s'affiche.

REMARQUE: j'ai fait ça avec un ADOTable et pas un ADOQuery, lequel est mieux placé pour ce travail??
21/08/2019, 10h56
SergioMaster

Bonjour,

un ADOTable pour la table Spécialité des ADOQuery paramétrées pour les deux autres, il n'y a rien de compliqué pour peu d'indiquer les datasets

ADOTable1 (Spécialité)+ DataSet1
ADOQuery1 SELECT "Code section"," Date début formation", "Date fin formation" FROM SECTION WHERE "code spécialité"=:"Code Spécialité" avec MasterSource=dataset1 + Dataset2
ADOQuery2 SELECT "Num d'inscription", "Num d'identification", Nom, Prénom, "Date de naissance", "Lieu de naissance", Adresse FROM STAGIAIRE WHERE "code section"=:"code section" avec MasterSource=dataset2
Dataset3 pour lier à la grille

Bien sûr, si vous évitiez d'utiliser des espaces dans vos noms de colonne, ce serait un plus qui vous éviterais l'utilisation de "" qui vont certainement influer sur la syntaxe.

PS. je trouve la structure de la base plutôt simpliste
21/08/2019, 14h51
CreedApollo

Tu peu être un peu plus clair parce que j'ai rien compris a ça???
21/08/2019, 17h18
SergioMaster

1 pièce(s) jointe(s)

Pièce jointe 498782
c'est plus clair comme ça ? Il faudrait pas non plus que je crée la base de données et vous fournisse le programme !
21/08/2019, 18h38
CreedApollo

Ouiii si tu veux, ça sera avec joie, MDR je rigole, ça bien marché ta méthode, je te remercie du fond du cœur....;)

Bonsoir,
Alors je viens un peu tard, mais je vais le mettre quand même. Je t'ai fait la même chose avec des tables (sans SQL). Ca me paraissait plus simple pour toi. J'ai simplement raccourcis le nom des champs, vieille habitude.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit TestForum_u1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB,
  // FireDAC ou un autre, peu importe
  FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.IB,
  FireDAC.Phys.IBDef, FireDAC.VCLUI.Wait, FireDAC.Comp.Client,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.Comp.DataSet;
 
type
  TForm2 = class(TForm)
    MyDB: TFDConnection;
    tbSPECIALITE: TFDTable;
    tbSECTION: TFDTable;
    tbSTAGIAIRE: TFDTable;
    dsSPECIALITE: TDataSource;
    dsSECTION: TDataSource;
    dsSTAGIAIRE: TDataSource;
    cbSPECIALITE: TDBLookupComboBox;
    grSTAGIAIRE: TDBGrid;
    grSECTION: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
{ Toutes les propriétés ci-dessous peuvent être renseignées en mode conception via l'EDI}
  MyDb.Connected := true;
 
  tbSPECIALITE.Connection := MyDB;
  tbSPECIALITE.IndexFieldNames := 'SPECOD'; // l'index doit exister sur le code specialité
  tbSPECIALITE.Open;
  dsSPECIALITE.DataSet := tbSPECIALITE;
  with cbSPECIALITE do
  begin
    ListSource := dsSPECIALITE;
    ListField := 'SPENOM;SPECOD';
    KeyField := 'SPENOM';
    // Keyvalue: pour affichage au démarrage du prog, avant la 1er click
    Keyvalue := tbSPECIALITE.Fieldvalues['SPENOM'];
  end;
 
  tbSECTION.Connection := MyDb;
  tbSECTION.IndexFieldNames := 'SPECOD;SECCOD'; // l'index doit exister sur les champs
  tbSECTION.MasterSource := dsSPECIALITE;
  tbSECTION.MasterFields := 'SPECOD';
  dsSECTION.DataSet := tbSECTION;
  grSECTION.DataSource := dsSECTION;
  tbSECTION.Open;
 
  tbSTAGIAIRE.Connection := MyDb;
  tbSTAGIAIRE.IndexFieldNames := 'SECCOD;STANOM'; // l'index doit exister ...
  tbSTAGIAIRE.MasterSource := dsSECTION;
  tbSTAGIAIRE.MasterFields := 'SECCOD';
  tbSTAGIAIRE.Open;
  dsSTAGIAIRE.DataSet := tbSTAGIAIRE;
  grSTAGIAIRE.DataSource := dsSTAGIAIRE;
end;
 
end.

J'ai mis les affichages des sections & stagiaires dans des dbGrid, on a ainsi tous les champs (plus sympa).

solilog

22/08/2019, 00h01
solilog

1 pièce(s) jointe(s)

J'ai ajouté le résultat.
Pièce jointe 498833
solilog