Discussion :

[cataclysme]

Bonjour à tous,

J'ai une table IDENT qui contient les champs IDENT_NUM, IDENT_NOM, etc

J'ai créé une procédure stockée qui s'appelle CHERCHEIDENT et qui doit renvoyer le nom, le prénom, la date de naissance et le sexe correspondant au numéro unique Num et à un champ Genre données toutes les deux passées en paramètres.

Code sql :

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
ALTER PROCEDURE "CHERCHEIDENT" 
(
  "NUM" INTEGER,
  "GENRE" VARCHAR(1)
)
RETURNS
(
  "NOM" VARCHAR(20),
  "PRENOM" VARCHAR(20),
  "DDN" DATE,
  "SEXE" VARCHAR(1)
)
AS
  BEGIN
       SELECT IDENT_NOM, IDENT_PRENOM, IDENT_DDN, IDENT_SEXE
       FROM IDENT
       WHERE IDENT_NUM = :Num AND IDENT_GENRE = :Genre
       INTO Nom, Prenom, Ddn, Sexe;
       EXIT;
  END;

Cette procédure fonctionne avec la console IB.
Je l'appelle avec le code suivant:

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
       With  SQLQuery1.Params do
       begin
         Clear;
         CreateParam(ftInteger,'Num',ptInput);
         CreateParam(ftString,'Genre',ptInput);
         CreateParam(ftString,'Nom',ptOutput);
         CreateParam(ftString,'Prenom',ptOutput);
         CreateParam(ftDate,'Ddn',ptOutput);
         CreatePararam(ftString,'Sexe',ptOutput);
         ParamByname('Num').AsInteger := 24;
         ParamByname('GENRE').AsString := 'P';
       end;
       Add('EXECUTE PROCEDURE CHERCHEIDENT');
       EnvoieSql(ListeChaine);// sous-routine qui ne fait qu'envoyer la chaine transmise.
    End;

j'obtiens le message d'erreur suivant (copie de mon fichier log):

Début TIdentite.Lire 04/03/2010 20:35:14:984

Début de EnvoieSql avec le message : 04/03/2010 20:35:14:984
EXECUTE PROCEDURE CHERCHEIDENT

********** ERREUR TDBXError *** parameter mismatch for procedure CHERCHEIDENT 04/03/2010 20:35:20:869

Si je passe les paramètres dans le SELECT, j'ai le message:

Début TIdentite.Lire 04/03/2010 19:17:8:272

Début de EnvoieSql avec le message : 04/03/2010 19:17:8:273
SELECT Nom, Prenom, Ddn, Sexe
FROM CHERCHEIDENT(24, 'P');

********** ERREUR TDBXError *** unassigned code 04/03/2010 19:17:16:305

j'ai essayé de différentes manières et je ne trouve pas la solution. cela fait une semaine que je m'arrache les cheveux

Cela vient-il de la procédure stockée ou de mon Select ?
Je précise que j'expédie mon SELECT par la méthode OPEN du SQLQuery

Si quelqu'un avait la bonté d'âme de me donner son avis...

[MonPc]

Bonjour,
je ponse qu'il suffit de faire un requette sql en utilisant le composant Ibquery :

Code :

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

1
2
3
 
 select *
from CHERCHEIDENT(:N, :P,:D,:S)

et quand tu clique sur le boutton tu ajoute le code suivant :

Code :

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

1
2
3
4
5
6
7
 
  Ibquery1.close ;
  Ibquery1.parametresbyname('N').asstring := Monparam1.asstring ;
  Ibquery1.parametresbyname('P').asstring := Monparam2.asstring ;
  Ibquery1.parametresbyname('D').asDate := Monparam3.asDate ;
  Ibquery1.parametresbyname('S').asstring := Monparam4.asstring ;
  Ibquery1.open

reste a modifier le code selon ton besoin.
Bonne chance.

[SergioMaster]

Il semble manquer un SUSPEND dans la procedure , de plus si plusieurs enregistrements peuvent correspondre il faudrait faire un :

Code :

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

 FOR SELECT ......  DO SUSPEND;

enfin je présume que celle-ci a été simplifiée , sinon je ne vois pas bien l'utilité comparé a une Query 'classique'

une petite erreur de MonPc puisqu'il a indiqué les paramètres de sorties au lieu de ceux d'entrées mais le principe est là

Code :

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

1
2
 
 select * from CHERCHEIDENT(:NUM, :GENRE)

après c'est simple

[cataclysme]

Merci pour vos réponses

1/ c'est effectivement un code épuré que je vous ai envoyé pour ne pas surcharger le forum.
2/ j'ai déjà essayé la solution proposée pr MonPc, mais cela ne fonctionne pas non plus.
3/ je précise que si je pratique Delphi depuis D1, je suis novice en SQL...
4/ enfin, si j'utilise SQLQuery, c'est parceque je n'y suis pas parvenu avec SQLStoredProc.
5/ Il me semble avoir lu dans la doc de IB9 à mois que ce ne soit dans le Tutoriel sur SQL du forum que dans une procédure stockée il valait mieux mettre Exit que Suspend quand on ne voulait pas avoir tous les enregistrements en retour, mais seulement la première ligne.

Ce que je ne comprend pas :
1/ quand et où utiliser les ':' dans les variables ?
Si dans la procédure stockée, j'ai

Code :

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

 a,b,c

dois je appeler par

Code :

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

CHERCHEIDENT Num, Genre

et recueillir

Code :

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

a, b ,c

ou dois-je appeler par

Code :

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

CHERCHEIDENT :Num,:Genre

et récupérer par

Code :

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

:a,:b,:c

?

2/ pourquoi, après avoir créé mes paramètres par

Code :

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

 CreateParam

l'instruction

Code :

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

chaine := SQLQuery1.paramByName('Nom').AsString;

me renvoie une erreur comme quoi 'Nom' n'est pas un paramètre.
Si j'essaie d'y acceder par

Code :

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

SQLQuery1.Params[2].value;

j'ai une erreur comme quoi 2 n'est pas un index valide puisque l'index maxi est 0, ce qui semble indiquer que mes paramètres ont été éffacés?

Et encore merci pour la rapidité