Discussion :

[BILANGA]

Bonjour à tous,

Je travaille sur Delphi 7. Dans mon DataModule j'ai posé mes composants ADOQuery. Et voici le code:

Code :

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

1
2
3
4
5
6
7
DataModules.ADOQuery.ConnectionString :=HR.ConnectionString;
   DataModules.ADOQuery.Active:=false;
   DataModules.ADOQuery.Sql.Clear;
   DataModules.ADOQuery.Sql.Add('Select * from tb_table');
   DataModules.ADOQuery.Active:=true;
 
   RptrelevCpte.QuickRep1.DataSet:=DataModules.ADOQuery;

HR.ConnectionString a la chaine de connection pour se connecter à la base de données, et cela marche très bien lorsqu'il s'agit d'une requête. C'est la dernière instruction RptrelevCpte.QuickRep1.DataSet:=DataModules.ADOQuery; qui me génère cette erreur:



Je vous signale RptrelevCpte a été créé de même que le composant Quick Report QuickRep1 posé.

Merci de votre aide.

[BILANGA]

Autre précision, j'utilise Quick Report 3.5

[anapurna]

salut

j'avoue na pas travailler de cette façon mais bon

tu as essayer de faire la jointure avant d'ouvrir ta requete ?

Code :

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

1
2
3
4
5
6
7
8
DataModules.ADOQuery.ConnectionString :=HR.ConnectionString;
   DataModules.ADOQuery.Active:=false;
   DataModules.ADOQuery.Sql.Clear;
   DataModules.ADOQuery.Sql.Add('Select * from tb_table');
   RptrelevCpte.QuickRep1.DataSet:=DataModules.ADOQuery; // juste avant d'acitver
   DataModules.ADOQuery.Active:=true;
   if not(RptrelevCpte.QuickRep1.DataSet.IsEmpty) Then
     RptrelevCpte.QuickRep1.Preview;

[BILANGA]

salut

j'avoue na pas travailler de cette façon mais bon

tu as essayer de faire la jointure avant d'ouvrir ta requete ?

Code :

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

1
2
3
4
5
6
7
8
DataModules.ADOQuery.ConnectionString :=HR.ConnectionString;
   DataModules.ADOQuery.Active:=false;
   DataModules.ADOQuery.Sql.Clear;
   DataModules.ADOQuery.Sql.Add('Select * from tb_table');
   RptrelevCpte.QuickRep1.DataSet:=DataModules.ADOQuery; // juste avant d'acitver
   DataModules.ADOQuery.Active:=true;
   if not(RptrelevCpte.QuickRep1.DataSet.IsEmpty) Then
     RptrelevCpte.QuickRep1.Preview;

Merci, j'ai toujours le même message d'erreur. J'avoue que c'est ma première fois d'utiliser Quick Report 3.5
Bref si une personne peut avoir un tutoriel pour me guider car j'ai suivi cette video:

[SergioMaster]

Bonjour,

A mon avis le problème est que l'instruction est placée dans le datamodule et que, comme en général, le datamodule est créé avant la forme du Quickreport.

Pour moi l'instruction devrait être dans le OnCreate de la "forme" ou dans le BeforePrint du QuickReport

Code :

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

1
2
 uses datamoduleunit ...
 QuickRep1.DataSet:=DataModules.ADOQuery;

le datamodule étant la première "fiche" créée au niveau du projet

[BILANGA]

Après vos remarques, j'ai mis ce bout de 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
procedure TFCompteClient.Btn_relevCpteClick(Sender: TObject);
var ADOQuery : TADOQuery;
begin
   ADOQuery:=TADOQuery.Create(Self);
   ADOQuery.ConnectionString :=HR.ConnectionString;
   ADOQuery.Active:=false;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('select * from tb_table');
   ADOQuery.Active:=true;
 
   with QuickReport1 do
   begin
      DataSet:=ADOQuery; 
   end;

Alors que j'ai bien installé Quick Report 3.5, j'ai ce message



lors de l’exécution de cette ligne with QuickReport1 do
begin
DataSet:=ADOQuery;
end;
J'ai fait des recherches, dans certains sites les utilisateurs demandent d'avoir la version prof de Quick Report. Quelqu'un aurait une idée de la source de mes problèmes ?

Je vous remercie.