Discussion :

[RamDevTeam]

Bonjour,

Je dois modifier la structure de différentes bases de données existantes pour ajouter une colonne gérer un nouveau n° de séquence que sera utilisé par l'application.

j'utilise un fichier texte qui contient le script de mise à jour à exécuter.

Le fichier contient le script 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
SET SQL DIALECT 3;
 
SET NAMES NONE;
 
CREATE SEQUENCE NUMEROTATIONDOC;
 
-- initialisation du compteur
SET TERM ^ ; 
EXECUTE BLOCK 
AS 
DECLARE LASTVALUE INTEGER; 
BEGIN 
  SELECT max(numcontrat)+1 FROM contrat INTO :LASTVALUE; 
  EXECUTE STATEMENT 'ALTER SEQUENCE NUMEROTATIONDOC RESTART WITH ' || :LASTVALUE || ';'; 
END^ 
SET TERM ; ^ 
COMMIT;
 
-- recalcul des stats des index
SET TERM ^ ; 
EXECUTE BLOCK 
AS 
DECLARE INDEX_NAME VARCHAR(31); 
BEGIN 
FOR SELECT RDB$INDEX_NAME FROM RDB$INDICES INTO :INDEX_NAME DO 
  EXECUTE STATEMENT 'SET STATISTICS INDEX ' || :INDEX_NAME || ';'; 
END^ 
SET TERM ; ^ 
COMMIT;

Quand j'utilise l'éxécuteur de script d'IBExpert pour charger le script, il n'y a aucune erreur.

Comme il y a pas mal de base a modifier, j'ai fait un exe qui charge un script sql et le lance sur les bases à mettre à jour.
l'application delphi est faite en win32 avec BDS2006 .
J'utilise le composant IBScript de la palette Interbase. en le chargeant avec ce fichier script.

Il y a d'autres fichiers script de lancés séquentiellement mais c'est celui-là qui me pose problème.
Quand il passe sur ce fichier, le composant ne renvoi aucune erreur mais rien n'est éxécuté et plus aucun script après celui-ci ne fonctionne.

J'ai isolé les parties du script pour ne garder que :

EXECUTE BLOCK
AS
DECLARE LASTVALUE INTEGER;
BEGIN
SELECT max(numcontrat)+1 FROM contrat INTO :LASTVALUE;
EXECUTE STATEMENT 'ALTER SEQUENCE NUMEROTATIONDOC RESTART WITH ' || :LASTVALUE || ';';
END^

Le code pour le lancer est :

Code :

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

1
2
3
    IBScript1.Terminator := '^' ;        
    IBScript1.Script.LoadFromFile(  chFile);
    IBScript1.ExecuteScript;

(j'ai d'abord tester en conservant les instructions set term du script et en laissant ';' dans Terminator. Il n'y a pas de différence.)
J'ai l'erreur:
Dynamic SQL error
SQL error code =-104
Token unknown - line 5 ,column 46
?

Qui correspond visiblement au ":" devant LASTVALUE

sur le morceau

EXECUTE BLOCK
AS
DECLARE INDEX_NAME VARCHAR(31);
BEGIN
FOR SELECT RDB$INDEX_NAME FROM RDB$INDICES INTO :INDEX_NAME DO
EXECUTE STATEMENT 'SET STATISTICS INDEX ' || :INDEX_NAME || ';';
END^

J'ai la même erreur sur la position qui correspond au ":" devant INDEX_NAME

Il y a visiblement quelque-chose qui m'échappe sur l’exécution des scripts qui contiennent des variables.

Pour tester, il suffit d'une base avec une table contrat, et un champ numcontrat de type integer.

Le script créé une sequence et lui attribue le dernier n° +1 utilisé dans la table contrat.


Si vous avez des pistes, je suis preneur.
Merci

[Ph. B.]

Bonjour,

Si vous avez des pistes, je suis preneur.

Enlevez les deux-points ":" pour l'instruction EXECUTE STATEMENT...

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
SET SQL DIALECT 3;
 
SET NAMES NONE;
 
CREATE SEQUENCE NUMEROTATIONDOC;
 
-- initialisation du compteur
SET TERM ^ ; 
EXECUTE BLOCK 
AS 
DECLARE LASTVALUE INTEGER; 
BEGIN 
  SELECT max(numcontrat)+1 FROM contrat INTO :LASTVALUE; 
  EXECUTE STATEMENT 'ALTER SEQUENCE NUMEROTATIONDOC RESTART WITH ' || LASTVALUE || ';'; -- Pas de ":" ici...
END^ 
SET TERM ; ^ 
COMMIT;
 
-- recalcul des stats des index
SET TERM ^ ; 
EXECUTE BLOCK 
AS 
DECLARE INDEX_NAME VARCHAR(31); 
BEGIN 
FOR SELECT RDB$INDEX_NAME FROM RDB$INDICES INTO :INDEX_NAME DO 
  EXECUTE STATEMENT 'SET STATISTICS INDEX ' || INDEX_NAME || ';';   -- Pas de ":" ici non plus...
END^ 
SET TERM ; ^ 
COMMIT;

[RamDevTeam]

Bonjour,
Enlevez les deux-points ":" pour l'instruction EXECUTE STATEMENT...

L'erreur se produit sur la ligne précédente.

J'ai repris le code suivant de la faq firebird :

Code :

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

1
2
3
4
5
6
7
8
9
10
set term !! ;
 
EXECUTE BLOCK AS
declare variable index_name VARCHAR(31);
BEGIN
for select RDB$INDEX_NAME from RDB$INDICES into :index_name do
execute statement 'SET statistics INDEX ' || :index_name || ';';
END!!
 
set term ; !!

http://www.firebirdfaq.org/faq167/


j'ai la même erreur comme-ci le composant IBScript ne supporter pas les ':'
Il bloque sur la ligne FOR ...


Est-ce que quelqu'un peux essayer de faire exécuter ce script par delphi ?

J'ai essayé sans conviction avec un composant TSQLquery via dbExpress. mot clé TERM n'est pas connu
idem avec la méthode Executecommand du TSQLConnection.

Les scripts sont bons puisque les 2 sont exécutés sans problème avec l'utilitaire IBExpert et que le 2eme vient de la FAQ.
Ca serait sympa si quelqu'un essayait de lancer le script issue de la faq depuis un composant IB dans delphi.

[SergioMaster]

Bonjour,

Tout d'abord avec UIBScript , ôter les SET TERM (inutiles)
et miracle code de la FAQ testé et exécuté sous D7 + UIB (2.1 sûr mais une version SVN)

[RamDevTeam]

C'est une bonne nouvelle çà

Il s'agit bien de ce compo là :
http://scripts.filehungry.com/produc...ied_interbase/

[SergioMaster]

re,

UIB oui , mais téléchargé et mis à jour via SVN https://svn.code.sf.net/p/uib/code