Discussion :

[exyacc]

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

quand je fais ça, ça marche

Code :

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

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 :

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

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 :

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

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

[tourlourou]

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

Code sql :

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

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 !

[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

[tourlourou]

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

Code :

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

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

et faire :

Code :

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

Query.Text := ReplaceStr(S, ':club', IntToStr(ParamClubValue), [rfReplaceAll]);

[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 .?

[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 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à ?

[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 ?

[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
En tout cas, voilà une raison (que j'avais oubliée), qui fait que Ado n'est pas ma tasse de thé

[ShaiLeTroll]

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 :

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

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 :

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

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 :

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

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;