comment créer paramétre par le composant adoquery directement

Version imprimable

3 pièce(s) jointe(s)

salam

d'habitude j'utilise le code pour créer des paramètres sur mes SQL comme suite :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 with ado do begin sql.Clear ; sql.Add('SELECT tempsdefaults.Date1,tempsdefaults.num_post'); sql.Add('FROM tempsdefaults'); sql.Add('WHERE (tempsdefaults.Date1=:lll )AND(tempsdefaults.num_post=:333 );'); with Parameters.ParamByName('lll') do begin DataType := ftDate; Direction := pdInput; Value := StrToDate(date1.Caption); end; with Parameters.ParamByName('333') do begin DataType := ftstring; Direction := pdInput; Value :=P.EditValue; end; Open;
ça marche très bien, mais dernièrement j'ai remarquer une propriété qui s’appelle paramètre comme par hasard :aie: sur mon composant adoquery .
Pièce jointe 143041

alors j'ai essayer d'ajouter un paramètre comme suite :
Pièce jointe 143042

et voici mon sql :
Pièce jointe 143043

mais malheureusement ça n'a pas marcher j'aimerai bien apprendre cette méthode .merci d'avance.

15/04/2014, 19h42
ShaiLeTroll

attention !!

:NomParam c'est un paramètre
':NomParam' c'est juste une chaine contenant ":NomParam"
Il ne trouve pas NomParam car il est mal écrit dans le SQL

Dans ton cas il va comparer le champ CleProduit à la chaine ":CleProduit" et non utiliser un paramètre nommé CleProduit

les '' ne doivent pas être mis dans le SQL, les paramètres sont justement conçu pour gérer au mieux le type des données passés à la requête (on parle de "Bind")

A lire : Fourniture des paramètres pendant la conception

:f1:

Suffit de lire l'aide de Data.Win.ADODB.TParameters et sa méthode AddParameter ou CreateParameter

ne pas oublier de lire aussi ParamCheck qui explique pourquoi l'affectation du SQL.Text avec des paramètres de la forme :NomParam ajoute automatiquement les paramètres dans la collection Parameters
15/04/2014, 22h11
adelcrb
merci pour les réponse.

j'ai bien lu les aides mais ça ma échappé d'enlever les ' ' c’était un réflex parce-que dans le code je les mit sans problème .

pour passé la valeur du paramètre en conception ça marche je lé mit dans la propriété value.le problème c'est que c'est pas dynamique et je crois que je peut pas maitre une valeur dynamique avec le concepteur du genre edit.text, alors j'ai essayer de le faire par code comme suite :
Code:

1 2 3 4 5 6 with FData,produit_recette do begin Parameters[0].Value:='BP 0016'; Open; showmessage(IntToStr(ParamCount)) end;
le ParamCount c'est pour compter les paramètre et ça me met 0 :(

et ça na pas marcher , j'aimerai bien savoir comment faire pour passer la valeur du paramètre par code ou dynamiquement par concepteur et bien-sur je vous remercie.

il est conseillé lorsqu'on créer dynamiquement une query d'utiliser ParamCheck pour qu'il mette à jour ca liste de paramètres.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
with ado do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1,tempsdefaults.num_post');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1=:lll )AND(tempsdefaults.num_post=:333 );');
    Paramcheck := True;
    with Parameters.ParamByName('lll') do
begin
  DataType := ftDate;
  Direction := pdInput;
  Value := StrToDate(date1.Caption);
end;
with Parameters.ParamByName('333') do
begin
  DataType := ftstring;
  Direction := pdInput;
  Value :=P.EditValue;
end;
    Open;

16/04/2014, 12h59
adelcrb
merci ,ça m'aidera forcément quant j'aurai un sql plein de paramètres .

sinon :
- pour modifier le paramètre dynamiquement par concepteur je crois que c'est pas possible (sauf si ça existe et je serai très :D )
- pour modifier le paramètre par code (juste le paramètre) j'ai remplacé le paramètre nommé par un paramètre inconnu comme suite :
Code:

1 2 3 SELECT designation_recette, etape, Num_post, designation_momunclature, cleproduit, production, clerecette_momunclature FROM produit_recette WHERE(cleproduit = ?)
et dans le code :
Code:

1 2 3 4 5 with FData,produit_recette do begin Parameters[0].Value:=FData.Requête_op_dispo.FieldByName('cleproduit').AsString; Open; end;
je ne sais pas pourquoi ça n'a pas marché avec les paramètre nommé mais bon ça n'a pas marcher d'une manière mais ça a marcher d'une autre ;) . je vous remercie énormément .