Discussion :

[nivet]

Je gère une base de données ORACLE via delphi. J'ai besoin de lancer une requête SQL plusieurs fois pour afficher des résultats sur un même écran.
Pour cela, je veux créer une procédure locale contenant ma requête. Cependant, je dois passer dans ma requête divers paramêtres.
exemple:

Code :

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

1
2
3
4
5
 
mabase.query.add('select * from matable where champ1= param0 or champ1= param1');
mabase.query.params[0].value:=edit1.text;
mabase.query.params[1].value:=edit2.text;
mabase.query.open;

Mon problème est le suivant:
lorsque j'appelle ma procedure je veux lui passer en parametre le nombre de params de ma requête, car suivant ce que je veux afficher il arrive que j'ai un paramêtre supplémentaire à imposer dans les conditions de ma requête.

Quelqu'un a-t-il une solution? Ou faut -il que je créais plusieurs procédures contenant diverses requêtes ce qui alourdira mon code et l'éxecution?

D'avance merci.

[ElNan]

Salut,
je te propose la solution (simple) suivante :

tu crées une méthode dans ton Datamodule (ici de classe TDataModule2 qui ouvre une Query1) :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TDataModule2.OpenQuery1WithParams(aTableName, aFieldName : String; aParams: TStringList);
var clauseWhere : string;
  i : integer;
begin
  clauseWhere := ' ' + aFieldName + ' = ' + aParams[0];
  for i := 1 to aParams.Count - 1 do
    clauseWhere := clauseWhere + ' or ' + aFieldName + ' = ' + aParams[i];
  Query1.SQL.Text := 'Select * from ' + aTableName + ' Where ' + clauseWhere;
  Query1.Open;
end;

Cette procédure prend en paramètre le nom de ta table, le nom du champ sur lequel tu auras à appliquer la clause Where de ta requete et une liste de chaine contenant tes paramètres.
Pour appeler ca, un petit exemple sur le clic d'un bouton d'une form:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var stringList : TStringList;
begin
  stringList := TStringList.Create;
  Try
    stringList.Add('AE');
    stringList.Add('FR');
    DataModule2.OpenQueryWithParams('V_PAYS', 'C_PAYS', stringList);
  finally
    stringList.Free;
  end;
end;

FRANK
La table est donc V_PAYS, le champ C_PAYS et donc les pays à afficher seront ceux dont les codes sont AE et FR. Tout se joue donc sur la construction de ta stringList de départ.

Voila c'est plutôt simple. En éspérant t'avoir aidé.

PS : on peut même mettre en paramètre l'ensemble de donnée pour fabriquer une méthode complètement générique, mais bon, je te laisse faire...

[nivet]

merci ElNam