Discussion :

[gibet_b]

Bonjour à tous,

J'ai une requête de ce genre :
SELECT * FROM TRUC WHERE MACHIN=:param1 AND BIDULE=:param1;

Le problème c'est que pour Delphi param1 et param1 sont deux parametre différents...

Y-a-t-il un moyen de faire ensorte de n'avoir qu'un seul parametre à initialiser. Car dans ma requete réel il faudrait que j'initialise bcp plus de parametre.

Merci d'avance

[SegmentationFault]

Le problème c'est que pour Delphi param1 et param1 sont deux parametre différents...

Je ne suis pas d'accord sur ce point la, si tu met:

tonquery.ParamByName('param1').AsJeNeSaisPasQuoi := ...;
tonQuery.Open;

ca passe sans problème

[gibet_b]

Moi non plus je ne suis pas d'accord . J'ai essayé avec cette requete :

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
SELECT NoEmploye, CodeEmploye, NomEmploye, PNomEmploye
FROM EMPLOYE
WHERE NoEmploye IN (SELECT NoEmploye FROM GARDE G, GARDER GR
WHERE GR.NoGarde=G.NoItem
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin<=:p1
AND DTEnd>=:p2)
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin>=:p1
AND DTEnd<=:p2)
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin<=:p1
AND DTEnd<=:p2)
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin>=:p1
AND DTEnd>=:p2)
);

et ce code dans une procédure de mon appli :

Code :

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

1
2
3
4
5
6
7
With Principale.ADOQueryEmployeDisponible do
  begin
  Close;
  Parameters.ParamByName('p1').Value:=p1;
  Parameters.ParamByName('p2').Value:=p2;
  Open;
  end;

Et à l'execution, Delphi plante et me dit : "Aucune valeur pour un ou plusieur parametre requis"

Une idée ?

[rsc]

A ce qu'il me semble, les paramètres d'une requête SQL forment en fait un simple tableau, où les noms importent moins que l'index ; je pense le ParamByName va tout simplement chercher la 1ère occurence du nom. C'est pourquoi ça ne marche pas.

A partir de là, plusieurs solutions :
- nommer chaque paramètre différemment et utiliser ParmaByName
- Utiliser Params (Index]
- si ta requête n'est pas utilisée massivement, la "paramétrer" dans ton code avec un Format, et la passer "en dur" à ton Query.

Ceci dit, j'ai du mal à comprendre ta requête. Est-ce que je trompe, ou :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin>=:p1
AND DTEnd<=:p2)
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin<=:p1
AND DTEnd<=:p2)
AND NoItem NOT IN(SELECT NoItem
FROM GARDE
WHERE DTBegin>=:p1
AND DTEnd>=:p2)

élimine toutes les valeurs de NoItem figurant dans GARDE (sauf peut-être celles où DTBegin ou DTEnd est à NULL ?

Roland

[gibet_b]

C'est bon j'ai résolu mon pb, en traitant la requete en dur (via la valeur de SQL.text), puisque j'ai ensuite eu un autre pb que je ne pouvais résoudre ac les parametres...

Non la requete marche tès bien, elle elimine seulement les Employes qui ne sont pas affectés àune garde qui se chevaucherait avec celle dont les bornes sont p1 et p2.

merci tout de meme

[pithier]

A mon avis le problème vient de ADO mais pas de Delphi
j'avais des requetes utilisant le BDE avec plusieurs fois le même paramètre qui fonctionnaient très bien et quand j'ai voulu passer en ADO
j'ai eu ce problème , il a fallu changer les parametres
ce qui n'est pas vraiment bien puisque non seulement tu rajoutes des paramètres mais aussi des lignes de codes pour initialiser ces paramètres