J’utilise
Delphi EX8 , quickReport 6.0, base de données Access avec deux tables : Adhérants (NumCarte, Nom, Prénom, DateNaissance, Catégorie)
Créneau (N°, Type Abonnement, Jour1, Heure1, Jour2, Heure2, Mois, NumCarte) à noter 'NumCarte' comme clé étrangère dans la table créneau
Je désir créer un état via QuickRep.preview pour faire ressortir la liste des adhérents pour un mois donné.
Voici la séquence d’instruction qui me fait ressortir la liste mais le NumCarte ne s’affiche pas
Voici le résultat :
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
17
18
19
20
21
22
23 procedure TFPrincip.Mois1Click(Sender: TObject); var x:string; begin if (inputQuery ('Liste des adhérant par mois','Introduire le mois :',X)) then begin AdoQuery2.DataSource:=datasource1; ADOQuery2.Active:=false; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('Select * from Créneau, adhérants where créneau.Mois = '''+x+''' and Créneau.numcarte = adhérants.numcarte'); ADOQuery2.Active:=true; FListe.QuickRep2.DataSet:=adoquery2; FListe.QRDBText6.DataSet:=adoquery2; FListe.QRDBText6.DataField:='NumCarte'; FListe.QRDBText10.DataSet:=adoquery2; FListe.QRDBText10.DataField:='Type Abonnement'; FListe.QRDBText7.DataSet:=adoquery2; FListe.QRDBText7.DataField:='Nom'; FListe.QRDBText8.DataSet:=adoquery2; FListe.QRDBText8.DataField:='Prénom'; FListe.QRDBText9.DataSet:=adoquery2; FListe.QRDBText9.DataField:='Date Naissance'; FListe.QuickRep2.Preview; end;
Novice et autodidacte en la matière, je compte sur vous pour m’aider à bien comprendre mon erreur
Merci.
Partager