Discussion :

[Laurent Dardenne]

Delphi 2006, RV 6.5, ADO+Access

Salut,
j'aimerais modifier la propriété DriverDataView.Query avant l'appel à

Code :

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

  FrmPrincipale.ExecuteRapport('MonRapport');

L'instruction SQL est la suivante

Select *
From AffairDK
Where [Etat] > 0 Order By ?

La clause Order by pouvant ne pas être renseigné, à prioris, je ne peux pas utiliser un paramètre.
Comment faire ?
Merci.

ps:
J'ai essayé de contourner le pb en utilisant un paramètre

Select *
From AffairDK
Where [Etat] > :ClauseOrderBy

où :ClauseOrderBy = '0' ou '0 Order By Nom' mais sans résultat.

[Laurent Dardenne]

Une solution

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 TFrmAffaire.btnImprimerRapportClick(Sender: TObject);
var
  myDataView: TRaveDriverDataView;
begin
 With FrmPrincipale.RvRapports do
 begin
  Open;
  ///@Comment Recherche un composant DriverDataView et modifie le SQL dynamiquement
  myDataView:=ProjMan.FindRaveComponent(cstRVddvAffaires,nil) as TRaveDriverDataView;
  myDataView.Query:='Select * From Matable Where [Etat] > 0 '+ GetClauseOrderBy(Orderby);
 end;
  FrmPrincipale.ExecuteRapport(cstRVListeAffaires);
end;

La fonction GetClauseOrderBy renvoie une chaine vide ou une chaine de type 'Order By NomDeChamp'.