TADOQuery et Parameters

Version imprimable

bonjour, j'ai une question sur les requêtes paramétrées:

quand je fais ça, ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure del;
begin
  with Tadoquery.Create(nil) do
  begin
    ConnectionString := Connection_string;
    SQL.Text := 'select * from clubs where (idnumber=:club) and (idnumber2=:club2)';
    Parameters.ParamByName('club').DataType := ftInteger;
    Parameters.ParamByName('club').value := 1000;
    Parameters.ParamByName('club2').DataType := ftInteger;
    Parameters.ParamByName('club2').value := 1000;
    open;
    while not(Eof) do
    begin
      showmessage(FieldByName('idnumber').AsString);
      Next;
    end;
    free;
  end;
end;

faut pas chercher de sens a la requête, c'est un exemple , en fait j'ai un paramètre qui est plusieurs fois dans la requête, mais si je mets le même paramètre ça marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure del;
begin
  with Tadoquery.Create(nil) do
  begin
    ConnectionString := Connection_string;
    SQL.Text := 'select * from clubs where (idnumber=:club) and (idnumber2=:club)';
    Parameters.ParamByName('club').DataType := ftInteger;
    Parameters.ParamByName('club').value := 1000;
    open;
    while not(Eof) do
    begin
      showmessage(FieldByName('idnumber').AsString);
      Next;
    end;
    free;
  end;
end;

c'est a dire que si dans une requete j'ai 5 fois la valeur 1000 a mettre, je suis obligé de faire

Code:

1
2
3
4
5
6
7
8
9
10
11
 
   Parameters.ParamByName('club1').DataType := ftInteger;
   Parameters.ParamByName('club1').value := 1000;
   Parameters.ParamByName('club2').DataType := ftInteger;
   Parameters.ParamByName('club2').value := 1000;
   Parameters.ParamByName('club3').DataType := ftInteger;
   Parameters.ParamByName('club3').value := 1000;
   Parameters.ParamByName('club4').DataType := ftInteger;
   Parameters.ParamByName('club4').value := 1000;
   Parameters.ParamByName('club5').DataType := ftInteger;
   Parameters.ParamByName('club5').value := 1000;

??

merci

exyacc

09/02/2017, 16h53
tourlourou

Si tu sais que c'est le même, il faut alors plutôt utiliser une requête spécifique :

Code:

select * from clubs where (idnumber=:club) and (idnumber2=idnumber)

Si c'est un hasard, donc une occurrence à l'exécution pas plus fréquente qu'une autre, ben tant pis pour remplir plusieurs fois des paramètres différents avec la même valeur !
09/02/2017, 16h55
exyacc

oui pour ça que j'ai dit que c'etait un exemple, en réalité, c'est une grosse grosse requete ou il est plus facile de mettre plusieurs fois le parametre
09/02/2017, 17h29
tourlourou

Après, si c'est pour un souci de lisibilité de la requête, tu peux avoir ton SQL :

Code:

S := 'select * from clubs where (idnumber=:club) and (idnumber2=:club)';

et faire :

Code:

Query.Text := ReplaceStr(S, ':club', IntToStr(ParamClubValue), [rfReplaceAll]);
09/02/2017, 17h33
exyacc

c’était surtout pour savoir si c'était normal ou si je faisais pas comme il faut.
donc on peut pas mettre plusieurs fois le même paramètre dans une requête .?
10/02/2017, 09h02
SergioMaster

Bonjour,

il semblerait que ADO ait été écrit comme cela, pas de possibilité d'utiliser deux fois un même paramètre. Signalé comme "bug" lors de la version D6 je crois, il a été répondu que cela avait été conçu ainsi. Je ne sais pas si ADO a évolué depuis :koi: et comme cet ensemble n'est pas ma tasse de thé ..... En tout cas les sets de composants base de données que j'utilise le permette.
J'ai vu par contre, qu'il n'y avait pas dans ton code de Prepare de la requête avant son exécution, qu'en serait-il dans ce cas là ?
10/02/2017, 14h12
exyacc

avec prepared:= true c'est pareil.

je mets pas de prepare quand la requête est exécutée qu'une fois.. a tort ?
11/02/2017, 09h22
SergioMaster

Non, c'est juste que peut être cela aurait pu, peut-être, changer la donne.
Reste donc la méthode de Tourlourou, l'équivalent d'une requête avec macro, ceci dit, cela n'en fait plus vraiment une requête paramétrée :roll:
En tout cas, voilà une raison (que j'avais oubliée), qui fait que Ado n'est pas ma tasse de thé

Voici un code générique pour corriger ce bug de la fonction SetParamsFromCursor ici de ma propre auto-réponse à ce problème : ORACLE même SQL lancé via BDE ou ODA = DataSet différent

A la base, moi c'était pour des requêtes Maitre-Détail qui avait un problème de chainage
Code:

1 2 3 4 5 6 7 8 9 10 11 DataLinkDataSource := DetailDataSet.DataSource; DetailDataSet.DataSource := nil; if DataLinkDataSource <> nil then begin DataSet := DataLinkDataSource.DataSet as TCustomADODataSet; if DataSet <> nil then for I := 0 to DetailDataSet.Parameters.Count - 1 do with DetailDataSet.Parameters.Items[I] do Assign(DataSet.FieldByName(Name)); end;
pour ton cas :
Code:

1 2 3 Parameters.ParamByName('club').DataType := ftInteger; Parameters.ParamByName('club').value := 1000; ReplicateHomonymParam();
tu crées une unité ADOHelpers, tu colle ça dedans, tu l'inclus dans les unités qui en besoin via un uses
Tous tes ADOQuery auront comme par magie une nouvelle fonction (vu ta construction en With Create ... le helper évite de créer une variable locale pour un passage de paramètre, c'est un peu degueux mais le helper c'est pratique pour patcher)
Tapé direct sur le forum
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 type TADOQueryParamAssistant = class helper for TADOQuery public procedure ReplicateHomonymParam(); end; procedure TADOQueryParamAssistant.ReplicateHomonymParam(); var I: Integer; Src: TParameter; begin for I := 0 to Self.Parameters.Count - 1 do begin with Self.Parameters.Items[I] do begin Src := Self.ParamByName(Name); DataType := Src.DataType; Value := Src.Value; end; end; end;