Discussion :

[cdlr27]

J'ai repris un ancien post (17/11/2002) et cela m'a permit d'initialiser ma première requète paramétrée. Mais je bute sur une erreur :
EOLeException 'Erreur de synthxe(operateur absent) dans l'expression 'vente.IdProd = ? P1'

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
24
25
procedure TFtest.Button1Click(Sender: TObject);
var q, r : string;
begin
  list.Items.Clear;
  with TADOQuery.Create(self) do
  try   //finally
    ConnectionString:='Provider=Microsoft.jet.OLEDB.4.0; Data source='+'C:\Documents and Settings\Propriétaire\Mes documents\_Delphi\Stocks\gestion_stock.mdb'+';';
    sql.add('Select vente.IdProd, Sum(vente.nombre) as SNbvendu FROM vente ');
    sql.Add('GROUP BY vente.IdProd');
    sql.Add('HAVING vente.IdProd = : P1');
    q:=edit1.Text;
    parameters[0].Value := StrToInt(edit1.Text);
    r:=parameters[0].Value;
    try  // except
      open;
      if not isEmpty then begin
  list.Items.Add('Article : '+ Fields[0].AsString +'   max = '+ Fields[1].AsString);
      end; // Not isEmpty
    except
      raise;
    end;
  finally
    free;
    end;
end;

q & r sont là comme témoins
et sans la ligne 'sql.add('HAVING.....)
list.items me retourne le premier enregistrement de la requète.

Qui peut me suggérer la correction de synthaxe.

Marcel

[NoisetteProd]

Salut, c'est une instruction SQL que tu envoie à ton query, il ne faut donc pas mettre := !

Donc :

Code :

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

sql.Add('HAVING vente.IdProd = P1');

C'est quoi P1 ?? une variable delphi ?? Si oui, il faut faire :

Code :

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

sql.Add('HAVING vente.IdProd = '+ tranformationdetavaleur(P1) );

J'espère que ca peut t'aider...

[Seb]

Salut,

Je ne sais pas si c'est le problème mais :
Entre les : et le paramètre (P1), il ne faut pas d'espace.

Essayes :

Code :

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

sql.Add('HAVING vente.IdProd = :P1');

A+,

Seb.

[cdlr27]

Merci les collègues
Dans l'ordre, pourquoi P1, c'était dans l'exemple, donc je recopie !!!!
Quelle est la liberté de synthaxe à cet endroit.
Toujours sous ADO, peut-t'on référencer les paramétres par un nom (type ParamByName).

Le deuxième conseil m'a sorti de l'impasse. (Ah! cette satanée synthaxe).

Marcel