Discussion :

[JP.NUAGE]

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 :

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 sql :

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

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 )
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 sql :

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

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 !

[SergioMaster]

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 SQL FB :

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

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 :

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

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 SQL :

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

SELECT * FROM BIDON(:L)

Code :

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

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 SQL FB :

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

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 :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
ZStoredProc1.ExecProc;
end;

[JP.NUAGE]

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