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 :
Après plusieurs recherches, j'ai créé la procédure suivante BIDON: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
T est une variable locale dans le procédure. (Vraiment une procédure 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
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é
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.
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part execute procedure bidon
Pour information, avant le crash, les deux applications fonctionnaient sans aucun problème de procédure !
Je patauge !
Partager