Exécution impossible de procédure

:salut: Bonjour à tous et bonne année

Commence mal pour moi : impossible d'utiliser une procédure enregistrée !
Voici l'environnement
Je travaille en Delphi 7 avec Firebird 2.1
J'ai une application en CLX et la même en VCL. Suite à un crash de disque dûr, j'ai tout réinstallé (Windows 7). L'application CLX fonctionne à la perfection. Mais lorsque j'ai voulu exécuter la même en VCL, (donc même base) la compilation est impeccable, c'est à l'exécution que j'ai eu le message suivant :

Citation:

---

SQL error: Dynamic SQL Error SQL error code = -501. Attempt to reclose a closed cursor. The cursor identified in a FETCH or CLOSE statement is not open

---

Après plusieurs recherches, j'ai créé la procédure suivante BIDON:

Code:

---

1 2 3 4 5

begin /* Procedure Text */ t= current_time; suspend; end

---

T est une variable locale dans le procédure. (Vraiment une procédure Bidon :D)
Puis j'ai créé une petite application VCL avec 1 composant Zeos ZConnection et un composant ZQuery. Dans le SQL du ZQuery j'ai codifié

Code:

---

execute procedure bidon

---

Sans même lancer l'exécution, simplement en cliquant sur Active du composant ZQuery, j'ai le message. Même chose si je change le ZQuery en ZStoreProc et que je veux connecter.
Pour information, avant le crash, les deux applications fonctionnaient sans aucun problème de procédure !
Je patauge !

Bonjour,

La version des ZEOS ? a peut être changé suite à la réinstallation

je te propose une procedure 'BIDON' un peu améliorée , histoire de voir a minima un résultat (d'où le suspend ;) )
(note indiquer Code=SQL pour le code que tu as mis aurait été judicieux)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SET TERM ^ ; CREATE PROCEDURE BIDON ( LAPS Integer ) RETURNS ( T Timestamp ) AS BEGIN t=current_timestamp+laps; suspend; SET TERM ; ^

---

avec les paramètres par défaut d'un TZStoredProc (zeos 7.0)

Code:

---

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); begin ZStoredProc1.Unprepare; // obligatoire si l'on veut exécuter plusieurs fois ZStoredProc1.ParamByName('LAPS').asInteger:=2; ZStoredProc1.ExecProc; end;

---

ce code fonctionne

ou encore via une TZ(readOnly)Query

Code:

---

SELECT * FROM BIDON(:L)

---

Code:

---

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); begin ZReadOnLyQuery1.Active:=false; ZReadonlyQuery1.ParamByName('L').asInteger:=2; ZReadOnLyQuery1.Active:=true; end;

---

pour une procedure qui ne renvoi aucun résultat (pas de suspend , pas de input , pas de returns)

Code:

---

1 2 3 4 5 6 7 8

SET TERM ^ ; CREATE PROCEDURE BIDONRIEN AS BEGIN DELETE FROM TABLE WHERE NUMERO=-1; END^ SET TERM ; ^

---

un simple , suffit

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin ZStoredProc1.ExecProc; end;

---

Hélas aucun des essais que tu proposes ne fonctionne. Si l'essai 2 (avec un ReadOnlyQuerry n'envoie pas de message, c'est qu'il ne fait strictement rien. Il est même possible que la procédure ne soit pas appelée en exécution