TADOQuery : Requête paramétrée avec Delphi 7

**tleboukaka** · 13/07/2009, 17h08

Bonjour,

J'ai réussit à faire fonctionner une requette sans parametre,

Par contre, quand je veux paramétrer (Nom Elv; date debut et Date fin) cette même requete (avec 3 paramètres) , elle affiche un contenu vide dans la grille, sans me signaler une erreur de syntaxe en passant.

Voici à quoi ressemble 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
begin
  qryLesNotes.SQL.Clear;
  qryLesNotes.SQL.Add ('SELECT N.ScoNum, ... , C.CycNom ');
  qryLesNotes.SQL.Add ('FROM  tblNotes N');
  qryLesNotes.SQL.Add ('INNER JOIN ...');
  qryLesNotes.SQL.Add ('INNER JOIN ... ');
  qryLesNotes.SQL.Add ('INNER JOIN ... ');
 
  qryLesNotes.SQL.Add ('WHERE (N.EtuNum = :ParamEtuNum)');
  qryLesNotes.SQL.Add ('AND (N.NotDate Between :ParamDateDebut And :ParamDateFin)');
 
  qryLesNotes.SQL.Add ('GROUP BY N.ScoNum, ... ');
  qryLesNotes.SQL.Add ('HAVING ... ');
  qryLesNotes.SQL.Add ('ORDER BY E.EtuNom, M.MatNom');
 
  qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
  qryLesNotes.Parameters.ParamByName ('ParamDateDebut').Value := dtpDateDebut.Date;
  qryLesNotes.Parameters.ParamByName ('ParamDateFin').Value := dtpDateFin.Date;  
 
  qryLesNotes.Open;
end;

Comment puis je faire que la requette affiche les données : car la grille est vide. Je tape le nom de l'eleve; la date de debut et de fin; puis clic sur un bouton. rien ne s'affiche...

Merci de m'aider

Lionel Eric

**alheuredudejeuner** · 13/07/2009, 21h31

ou bien AsDate
qryLesNotes.Parameters.ParamByName ('ParamDateDebut').AsDate

pour voir

André

**tleboukaka** · 14/07/2009, 09h19

bonjour,

le sgbd que j'utilise est le SQL SERVER 2000
Quand j'essaie de mettre la syntaxe suivante (qui marche avec le DELPHI BDE PARADOX), elle affiche erreur de syntaxe :
qryLesNotes.Parameters.ParamByName ('ParamDateDebut').AsDate
Erreur de syntaxe parce que .asDate n'apparait pas dans l'IDE

NB les 3 paramètres
ParamEtuNum = type string
ParamDateDebut = type date
ParamDateFin = type date

voici ma requête complète, en passant elle contient des formules qui calculent la Moyenne (AVG) :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
With dmGesco2010 do
 
begin
 
  qryLesNotes.SQL.Clear;
 
  qryLesNotes.SQL.Add ('SELECT N.ScoNum, N.EtuNum,E.EtuNom, E.EtuPrenoms, S.SexNom,V.VilNom, Na.NatNom, I.ClaNum, M.MatNom, TJ.Coeff, AVG(N.NotDevoir) AS Devoir, AVG(N.NotCompo) AS Compo, C.CycNom ');
 
  qryLesNotes.SQL.Add (' '+', F.FilNom,O.OptNom, (AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 AS Moy, (AVG(N.NotDevoir) + AVG(N.NotCompo))/ 2 * TJ.Coeff AS MoyGle ');
 
  qryLesNotes.SQL.Add ('FROM  tblNotes N');
 
  qryLesNotes.SQL.Add ('INNER JOIN TJ_Programmer TJ ON N.ScoNum = TJ.ScoNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblEtudiant E ON N.EtuNum = E.EtuNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblInscription I ON E.EtuNum = I.EtuNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblClasse ON TJ.ClaNum = tblClasse.ClaNum AND I.ClaNum = tblClasse.ClaNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblMatiere M ON N.MatCode = M.MatCode AND TJ.MatCode = M.MatCode');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblSexe S ON E.SexNum = S.SexNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblVille V ON E.VilNum = V.VilNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblCycle C ON tblClasse.CycNum = C.CycNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblNation Na ON E.NatNum = Na.NatNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblFiliere F ON tblClasse.FilNum = F.FilNum');
 
  qryLesNotes.SQL.Add ('INNER JOIN tblOption O ON tblClasse.OptNum = O.OptNum');
 
 
 
  qryLesNotes.SQL.Add ('WHERE (N.EtuNum = : ParamEtuNum)');
 
  qryLesNotes.SQL.Add ('AND (N.NotDate Between : ParamDateDebut And : ParamDateFin)');
 
 
 
  qryLesNotes.SQL.Add ('GROUP BY N.ScoNum, N.EtuNum, E.EtuNom, E.EtuPrenoms, S.SexNom, V.VilNom,Na.NatNom, I.ClaNum, M.MatNom, TJ.Coeff,   C.CycNom, F.FilNom,O.OptNom');
 
  qryLesNotes.SQL.Add ('HAVING ((AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 IS NOT NULL)');
 
  qryLesNotes.SQL.Add ('ORDER BY E.EtuNom, M.MatNom');
 
 
 
  qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
 
  qryLesNotes.Parameters.ParamByName ('ParamDateDebut').Value := dtpDateDebut.Date;
 
  qryLesNotes.Parameters.ParamByName ('ParamDateFin').Value := dtpDateFin.Date;     
 
 
 
  qryLesNotes.Open;
 
end;

Merci de pouvoir m'aider à résoudre la difficulté

Eric

**Andry** · 14/07/2009, 09h54

Salut,
1° Est ce que tu es sur que si tu met directement la valeur des paramètres dans la requête elle même, tu as des lignes ?
2° Est ce une erreur de frappe car tu as mis des espaces au niveau de tes paramètres :

qryLesNotes.SQL.Add ('WHERE (N.EtuNum = : ParamEtuNum)');
qryLesNotes.SQL.Add ('AND (N.NotDate Between : ParamDateDebut And : ParamDateFin)');

change en :

Code :

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

1
2
3
 
qryLesNotes.SQL.Add ('WHERE (N.EtuNum = :ParamEtuNum)');
qryLesNotes.SQL.Add ('AND (N.NotDate Between :ParamDateDebut And :ParamDateFin)');

En faites, j'ai fais une simulation avec SQL Server 2000 et D7 et ça me sort bien les enregistrements. J'ai procedé comme suit (en substituant avec ton code) :

Code :

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

1
2
3
4
 
qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
qryLesNotes.Parameters.ParamByName ('ParamDateDebut').Value := FormatDateTime('YYYY-MM-DD',dtpDateDebut.Date);
qryLesNotes.Parameters.ParamByName ('ParamDateFin').Value := FormatDateTime('YYYY-MM-DD',dtpDateFin.Date);

A essayer et tenez nous au courant de l'évolution.

A+

**tleboukaka** · 14/07/2009, 11h57

bjr

merci bien

pour répondre rapidement, je n'ai pas mis des espaces dans mon code entre les deux poits et Param...

A tout de suite

**tleboukaka** · 14/07/2009, 16h30

Bonjour

j'ai essayé cette syntaxe, mais sans succès, il ne signale pas d'erreur de syntaxe mais à l'exécution le contenu de la grille est vide : ça ne fonctionne toujours pas.
Je me dis personnellement que la syntaxe ci-dessous ne pas correcte avec les parametres pour un composant TADOQuery

qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
qryLesNotes.Parameters.ParamByName ('ParamDateDebut').Value := FormatDateTime('YYYY-MM-DD',dtpDateDebut.Date);
qryLesNotes.Parameters.ParamByName ('ParamDateFin').Value := FormatDateTime('YYYY-MM-DD',dtpDateFin.Date);

Merci d'avance pour la résolution du pb

**Andry** · 14/07/2009, 16h57

En faite, j'avais fais une simulation sur une base de donnée sous SQL Server 2000 ce matin et voici ce que j'ai pu en tirer :
- Si je fais

Code :

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

1
2
3
4
 
qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
qryLesNotes.Parameters.ParamByName('ParamDateDebut').Value := dtpDateDebut.Date;
qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := dtpDateFin.Date;

Il me sort pas les enregistrement correspondant à la date indiqué sur dtpDateDebut.
Par contre avec ceci,

Code :

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

1
2
3
4
 
qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
 qryLesNotes.Parameters.ParamByName('ParamDateDebut').Value := FormatDateTime('YYYY-MM-DD',dtpDateDebut.Date);
 qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := FormatDateTime('YYYY-MM-DD',dtpDateFin.Date);

Il me sort bien tous les enregistrements. De toute façon, je n'ai fais que modifier l'encodage des dates.
D'ailleurs, tu peux vérifier dans SQL Manager.

**tleboukaka** · 14/07/2009, 19h17

slt

je suis étonné que celà ne marche pas chez moi,
pour aller pas à pas j'ai d'abord éliminer momentanément les 2 derniers parametres des dates pour ne garder que EtuNum

je sélectionne un Etudiant, je clique sur OK : rien ne se passe, toujours le contenu est vide
alors je me dis qu'il y a un pb qui ne vas pas !

Vérifions un peu ma syntaxe : ...

qryLesNotes.SQL.Add ('WHERE (N.EtuNum =: ParamEtuNum)'); // Nb il n'y a pas d'espace entre : et ParamEtuNum dans mon code sql
GROUP BY ....
HAVING ...
ORDER BY...
qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
qryLesNotes.Open;

voilà, avec un seul paramètre ça ne fonctionne pas, où p se retrouver donc l'erreur !

J'airai aimé voir votre code en totalité

Merci

**Andry** · 15/07/2009, 08h02

Salut Tleboukaka.
Je n'ai pas ta bdd mais je pense que c'est ton requête qui ne retourne rien.
Essaye d'executer cette requête directement depuis Entreprise Manager de SQL Server. Essaye d'abord d'enlever les paramètres pour voir si cette requête retourne quelques chose.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
SELECT 
    N.ScoNum,
    N.EtuNum,
    E.EtuNom,
    E.EtuPrenoms,
    S.SexNom,
    V.VilNom,
    Na.NatNom,
    I.ClaNum,
    M.MatNom,
    TJ.Coeff,
    AVG(N.NotDevoir) AS Devoir,
    AVG(N.NotCompo) AS Compo, 
    C.CycNom,
    F.FilNom,
    O.OptNom, 
    (AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 AS Moy, 
    (AVG(N.NotDevoir) + AVG(N.NotCompo))/ 2 * TJ.Coeff AS MoyGle
FROM  tblNotes N
INNER JOIN TJ_Programmer TJ ON N.ScoNum = TJ.ScoNum
INNER JOIN tblEtudiant E ON N.EtuNum = E.EtuNum
INNER JOIN tblInscription I ON E.EtuNum = I.EtuNum
INNER JOIN tblClasse ON TJ.ClaNum = tblClasse.ClaNum AND I.ClaNum = tblClasse.ClaNum //A quoi ça sert cette jointure ?
INNER JOIN tblMatiere M ON N.MatCode = M.MatCode AND TJ.MatCode = M.MatCode
INNER JOIN tblSexe S ON E.SexNum = S.SexNum
INNER JOIN tblVille V ON E.VilNum = V.VilNum
INNER JOIN tblCycle C ON tblClasse.CycNum = C.CycNum
INNER JOIN tblNation Na ON E.NatNum = Na.NatNum
INNER JOIN tblFiliere F ON tblClasse.FilNum = F.FilNum
INNER JOIN tblOption O ON tblClasse.OptNum = O.OptNum
GROUP BY 
    N.ScoNum, 
    N.EtuNum, 
    E.EtuNom, 
    E.EtuPrenoms, 
    S.SexNom, 
    V.VilNom,
    Na.NatNom, 
    I.ClaNum, 
    M.MatNom, 
    TJ.Coeff,
    C.CycNom,
    F.FilNom,
    O.OptNom
HAVING 
    (AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 IS NOT NULL AND
    N.EtuNum = : ParamEtuNum AND
    N.NotDate Between : ParamDateDebut And : ParamDateFin    
ORDER BY 
    E.EtuNom, 
    M.MatNom

Courage

**tleboukaka** · 15/07/2009, 09h48

slt

Merci bien de m'a voir envoyé toute ta requete
en effet, sans mettre les 3 parametres, ma requete marche.
ensuite,

INNER JOIN tblClasse ON TJ.ClaNum = tblClasse.ClaNum AND I.ClaNum = tblClasse.ClaNum //A quoi ça sert cette jointure ?

Cette jointure parce que dans ma requete il y a des champs appartenant à 3 tables (tblFiliere, tblOption, tblCycle) qui sont affichés dans la requete. et ces 3 tablles sont liées avec la tblClasse. Ces champs sont : FilNom; OptNom et CycNom

Remarque :
J'ai remarqué que dans ta requete (qui marche) il n'y a pas la clause WHERE !!

Je vais essayer de faire comme ta requete, en enlevant le WHERE
comme ceci

Code sql :

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

1
2
3
4
5
6
7
8
 
HAVING 
    (AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 IS NOT NULL AND
    N.EtuNum = : ParamEtuNum AND
    N.NotDate Between : ParamDateDebut And : ParamDateFin    
ORDER BY 
    E.EtuNom, 
    M.MatNom

je verai ce que ça va donner

Merci

**ouiouioui** · 15/07/2009, 10h17

sans grande convictions, selon les types de champs dans la base il faut définir le type des paramètres sa aide des fois

Code :

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

1
2
qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := dtpDateFin.Date; 
qryLesNotes.Parameters.ParamByName('ParamDateFin').DataType := ftDate;

**tleboukaka** · 15/07/2009, 12h58

Slt

Andry, s'il vs plait, quelle propriété avez vous choisi comme CURSORTYPE de votre composant TADOQuery ?
Pour ma part mon composant qryLesNotes est à ctStatic pour la propriété CURSORTYPE. est celà as de l'importance ?

Merci de m'en informer par là.

@+

**edam** · 15/07/2009, 13h34

Envoyé par ouiouioui

sans grande convictions, selon les types de champs dans la base il faut définir le type des paramètres sa aide des fois

Code :

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

1
2
qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := dtpDateFin.Date; 
qryLesNotes.Parameters.ParamByName('ParamDateFin').DataType := ftDate;

+1 sans faire de formadatetime, car avec sa, ADO+delphi (je crois

) règle le problème,

**tleboukaka** · 15/07/2009, 14h25

il m'affiche le message d'erreur à la compilation, du genre : Type non déclaré pour .... ftDate
qryLesNotes.Parameters.ParamByName('ParamDateFin').DataType := ftDate;

a+

**Andry** · 15/07/2009, 14h43

Re Salut,

Rajoute DB dans tes Uses.

**tleboukaka** · 16/07/2009, 18h12

bjour,

je peu vous rassurer que ma requete ne marche toujours pas avec les parametres.
sans les parametres elle affiche les enregistrement. Avec les parametres, elle affiche les memes enregistrements
du cou je me dit que ce n'est pas la bonne syntaxe pour les parametres avec un composant TADOQuery !!!

alors, comment utiliser les parametres avec un TADOQuery : parameters ou paramByName ou les deux; mais comment ?

qui peu m'aider à dénouer la situation ! svp

**ShaiLeTroll** · 16/07/2009, 18h46

Au Final, ta toute dernière version de code ressemble à quoi, peux-tu fournir le code complet de la toute dernière version !

J'ai eu des soucis avec les paramètres, voir ICI gérés différement entre ADO et BDE par exemple ...

**tleboukaka** · 20/07/2009, 08h46

slt

Mon problème n'est pas toujours résolu
La requete avec parametre ne marche toujours pas

A bientot

**ShaiLeTroll** · 20/07/2009, 11h21

Envoyé par ShaiLeTroll

Au Final, ta toute dernière version de code ressemble à quoi, peux-tu fournir le code complet de la toute dernière version !

On a bien compris que ton problème n'est pas résolu, mais si au moins tu fournissais le code actuel (le tout dernier testé) pour que l'on arrête de partir dans tous les sens ...

**tleboukaka** · 21/07/2009, 13h16

Bonjour à tous !

Voici ma dernière version de la requete sql

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
 
With dmGesco2010 do
begin
  qryLesNotes.SQL.Clear;
  qryLesNotes.SQL.Add ('SELECT N.ScoNum, N.EtuNum,E.EtuNom, E.EtuPrenoms, S.SexNom,V.VilNom, Na.NatNom, I.ClaNum, M.MatNom, TJ.Coeff, AVG(N.NotDevoir) AS Devoir, AVG(N.NotCompo) AS Compo, C.CycNom ');
  qryLesNotes.SQL.Add (' '+', F.FilNom,O.OptNom, (AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 AS Moy, (AVG(N.NotDevoir) + AVG(N.NotCompo))/ 2 * TJ.Coeff AS MoyGle ');
  qryLesNotes.SQL.Add ('FROM  tblNotes N');
  qryLesNotes.SQL.Add ('INNER JOIN TJ_Programmer TJ ON N.ScoNum = TJ.ScoNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblEtudiant E ON N.EtuNum = E.EtuNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblInscription I ON E.EtuNum = I.EtuNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblClasse ON TJ.ClaNum = tblClasse.ClaNum AND I.ClaNum = tblClasse.ClaNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblMatiere M ON N.MatCode = M.MatCode AND TJ.MatCode = M.MatCode');
  qryLesNotes.SQL.Add ('INNER JOIN tblSexe S ON E.SexNum = S.SexNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblVille V ON E.VilNum = V.VilNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblCycle C ON tblClasse.CycNum = C.CycNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblNation Na ON E.NatNum = Na.NatNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblFiliere F ON tblClasse.FilNum = F.FilNum');
  qryLesNotes.SQL.Add ('INNER JOIN tblOption O ON tblClasse.OptNum = O.OptNum');
 
  qryLesNotes.SQL.Add ('WHERE (N.EtuNum = : ParamEtuNum)');
  qryLesNotes.SQL.Add ('AND (N.NotDate Between : ParamDateDebut And : ParamDateFin)');
 
  qryLesNotes.SQL.Add ('GROUP BY N.ScoNum, N.EtuNum, E.EtuNom, E.EtuPrenoms, S.SexNom, V.VilNom,Na.NatNom, I.ClaNum, M.MatNom, TJ.Coeff, C.CycNom, F.FilNom,O.OptNom');
  qryLesNotes.SQL.Add ('HAVING ((AVG(N.NotDevoir) + AVG(N.NotCompo)) / 2 IS NOT NULL)');
  qryLesNotes.SQL.Add ('ORDER BY E.EtuNom, M.MatNom');
 
  qryLesNotes.Parameters.ParamByName('ParamEtuNum').Value := dlcEtuNum.Text;
  qryLesNotes.Parameters.ParamByName('ParamDateDebut').Value := dtpDateDebut.Date;
  qryLesNotes.Parameters.ParamByName('ParamDateFin').Value := dtpDateFin.Date;  
 
  qryLesNotes.Open;
 
end;

Je travaille avec un composant TADOQuery = qryLesNotes
Est ce qu'il y aurait un problème au niveau des propriétés de ce composant (mon sgbd = Sql Server 200) ?

Au secour !

TADOQuery : Requête paramétrée avec Delphi 7

Bases de données Delphi

Discussions similaires

Partager

Partager