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.

[SergioMaster]

Bonjour,

J'ai fait des recherches, dans certains sites les utilisateurs demandent d'avoir la version prof de Quick Report.

non ce n'est pas forcément nécessaire

Quelqu'un aurait une idée de la source de mes problèmes ?

ce que vous ne maitrisez pas c'est le fait que le Quickreport est une forme (spécialisée mais une forme)

dans votre dernier code vous ne faites pas appel à cette forme d'où le problème : le Quickrep (si mes souvenirs sont bons) n'est pas dans la clause uses

procedure TFCompteClient.Btn_relevCpteClick(Sender: TObject);
var ADOQuery : TADOQuery;
monRapport : TRptrelevCpte;
begin
ADOQuery:=TADOQuery.Create(Self);
Try
ADOQuery.ConnectionString :=HR.ConnectionString;
ADOQuery.Active:=false;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from tb_table');
ADOQuery.Active:=true;

monRapport:=TRptrelevCpte.Create(nil);
try
with monRapport.QuickReport1 do
begin
DataSet:=ADOQuery;
Preview;
end;

finally
monRapport.Free;
end;
finally
ADOQuery.Free;
end;
end;

mais, si j'ai bien saisi vous utilisez D7, alors en lieu et place de Quickrep vous auriez pu utiliser Rave ce qui aurait totalement changé la donne
l'inconvénient majeur des versions anciennes de Quickreport c'est que l'état est inclus dans une forme : vous voulez modifier ne serait-ce qu'une virgule il faut recompiler tout le programme. Avec Rave ou FastReport l'état est "chargeable" à partir d'un fichier (il suffit donc de deployer ce fichier sans avoir à recompiler)
mais surtout il suffit déposer deux ou trois composants même dans un datamodule pour que cela puisse fonctionner

A noter que les prochaines versions de Delphi propose encore un nouveau générateur