Discussion :

[tarbala]

Bonjour,
J'ai un composant TQuery contenant une requête avec 4 paramètres. Lorsque je l'execute il me renvoie toujours les mêmes resultats quelque soit les valeurs(qui sont les resultats d'une autre requêtes) de ces 4 paramètres. Je ne comprends pas.

Merci de votre contribution

[Rayek]

Peux tu nous montrer le code d'implementation de ta requete ?

[tarbala]

Peux tu nous montrer le code d'implementation de ta requete ?

Oui, le voici :

Code :

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

1
2
3
4
5
6
7
8
 
Select CodeClub, NomGerant, PrenGerant From ClubPmu where 
(CodeClub IN (Select CodeClub From ClubPmu, RetenueAutomatic
where ClubPmu.CodeClub=RetenueAutomatic.CodeClub 
and RetenueAutomatic.LibRetenue =:Ret 
and RetenueAutomatic.Montant =:Mtt 
and RetenueAutomatic.NbMois =:NbM
and RetenueAutomatic.DateDebRetenue =:DDR))

[Rayek]

Le code source avec la requete serait mieux

[tarbala]

Le code source avec la requete serait mieux

OK, voici le module y afferant :

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
26
27
28
29
30
31
32
33
34
35
36
 
Procedure TFRetAutomatic.Rafraichir(Param0 : String; Param1 : double; Param2 : Integer; Param3 : String);
Begin
dm.QClubAvecRetenue.Close;
dm.QClubSansRetenue.Close;
If GroupBox1.Left<>GroupBox2.Left then
Begin
dm.QClubSansRetenue.Params[0].AsString:=Param0;
dm.QClubSansRetenue.Params[1].AsFloat:=Param1;
dm.QClubSansRetenue.Params[2].AsInteger:=Param2;
dm.QClubSansRetenue.Params[3].AsDateTime:=StrToDate(Param3);
dm.QClubSansRetenue.Prepare;
dm.QClubSansRetenue.Open;
ListBoxClubSansRetenue.Clear;
While not dm.QClubSansRetenue.Eof do
Begin
ListBoxClubSansRetenue.Items.Add(dm.QClubSansRetenueCodeClub.AsString + ' ' + dm.QClubSansRetenueNomPren.AsString);
dm.QClubSansRetenue.Next;
End;
dm.QClubSansRetenue.Close;
End;
dm.QClubAvecRetenue.Params[0].AsString := Param0;
dm.QClubAvecRetenue.Params[1].AsFloat:=Param1;
dm.QClubAvecRetenue.Params[2].AsInteger:=Param2;
dm.QClubAvecRetenue.Params[3].AsDateTime:=StrToDate(Param3);
dm.QClubAvecRetenue.Prepare;
dm.QClubAvecRetenue.Open ;
ListBoxClubAvecRetenue.Clear;
While not dm.QClubAvecRetenue.Eof do
Begin
ListBoxClubAvecRetenue.Items.Add(dm.QClubAvecRetenueCodeClub.AsString + ' ' + dm.QClubAvecRetenueNomPren.AsString);
dm.QClubAvecRetenue.Next;
End;
dm.QClubAvecRetenue.Close;
groupBox2.Caption:= 'Retenue ' + TRIM(ComboLibRetenue.Text);
End;

[qi130]

dm.QClubSansRetenueCodeClub.AsString

Je ne comprends pas ce que cela représente

Espères-tu par ce code récupérer la valeur de la colonne CodeClub venant de la requète ?

Si oui, je te propose d'essayer ainsi:

Code :

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

dm.QClubSansRetenue.FieldByName('CodeClub').AsString

[Mohamedrekkab]

Bonjour,
J'ai un composant TQuery contenant une requête avec 4 paramètres. Lorsque je l'execute il me renvoie toujours les mêmes resultats quelque soit les valeurs(qui sont les resultats d'une autre requêtes) de ces 4 paramètres. Je ne comprends pas.

Merci de votre contribution

Salut;
je suis un programmer delphi,
envoyer mois les shema des tables et la requete je peut t'aider absolument
merci
Mohamed

[Pedro]

[tarbala]

Salut;
je suis un programmer delphi,
envoyer mois les shema des tables et la requete je peut t'aider absolument
merci
Mohamed

Voici les sechemas des 2 tables :
-----------
ClubPmu
-----------
CodeClub
NomGerant
PrenGerant
AdrGerant
-----------


------------------
RetenueAutomatic
------------------
CodeClub
LibRetenue
Montant
NbMois
DateDebRetenue
-------------------

Et voici la requête :

Select CodeClub, NomGerant, PrenGerant From ClubPmu where
(CodeClub IN (Select CodeClub From ClubPmu, RetenueAutomatic
where ClubPmu.CodeClub=RetenueAutomatic.CodeClub
and RetenueAutomatic.LibRetenue =:Ret
and RetenueAutomatic.Montant =:Mtt
and RetenueAutomatic.NbMois =:NbM
and RetenueAutomatic.DateDebRetenue =DR))

J'ai donc 4 parametres

[Rayek]

Pour ma part j'ecrirai l'appel de la requete de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With dm.QClubSansRetenue do
begin
  ParamCheck := True;
  ParamByName('Ret').Value := QuotedStr(Param0);
  ParamByName('Mtt').value := Param1;     
  ParamByName('Mbm').Value := Param2; 
  ParamByName('DDR').Value := Param3;
  Open;
end;

Pourquoi j'ai ecrit comme ca, car :

1- Es tu sûr de la position des paramètres ?
2- Pourquoi nommer des paramètres si on n'utilise pas cette dénomination ?