Discussion :

[blonde]

Bonjour,

j'essaie de créer une procédure stockée depuis Delphi en utilisant un TIbquery.
Je lui passe tout le code de création de la procédure, mais au moment de l' "execsql"

message d'erreur : "Token unknow : ?"
Ca je pense que ça se passe lorsqu'il essaie de remplacer les variables (ce qui se trouve derrière les ":" )

Bref, j'ai essayé de tourner ça dans tous les sens sans succés.

Connaissez-vous un composant qui me permettrait de lancer un script.

J'utilise Interbase et Delphi6.

[Cl@udius]

Salut,

Est-ce que tu as bien encadré la définition de ta PS par des SET TERM ?
Le problème vient peut-être de là !

De plus j'utiliserais plutôt un TIBSQL pour ça !

@+

[blonde]

oui, j'ai essayé avec "SET TERM"

mais j'ai le message "token unknow :TERM"

[Guile]

Le problème vient surtout du fait que dans les procédures stockées, il y a des ";" et que dans un query on ne peut mettre qu'une instruction SQL. Il s'arrete donc au premier ";" trouvé et ne s'attend pas à ce qu'il y est quelque chose derrière .
La solution à ce problème c'est de dire à interbase que le caractère de fin d'instruction n'est pas ";" mais plutot "^".
Tu dois donc rajouter avant ton script de création

Code :

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

1
2
 
SET TERM ^ ;

Ensuite tu remplaces le ";" après le dernier END de ton script par un "^"

et enfin pour revenir en configuration normal, tu finis par

Code :

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

1
2
 
SET TERM ; ^

[Guile]

Oups, vous etes plus rapide que moi

[blonde]

je viens d'essayer un TIBSQL, ça ne fonctionne pas mieux,
voici mon code avec le SET TERM :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
     sql.Add(' SET TERM ^;');
      sql.Add(' CREATE PROCEDURE MAJ_MAXTEMPS1 (NUMPATIENT INTEGER)');
      sql.Add(' AS');
      sql.Add(' DECLARE VARIABLE ValMax INTEGER;');
      sql.Add(' BEGIN');
      sql.Add('  select MAX(obj_Att.valeur) from OBJ_ATT where');
      sql.Add('  Obj_ATT.id_attribut=');
      sql.Add('  (select preference.valeur from preference where preference.cle=''ID_ATTRIBUT_SEQUENCE'')');
      sql.Add('  INTO :ValMax;');
      sql.Add('  UPDATE PERSONNE SET PERSONNE.maxtemps=:ValMax WHERE PERSONNE.id_personne=:NUMPATIENT;');
      sql.Add(' END^');
      sql.Add(' SET TERM ;^');

j'ai le message "token unknow TERM"

Une erreur de syntaxe peut-être..

J'essaie maintenant avec un TSQLScript.. on verra bien...

[Cl@udius]

Re-Salut,

J'ai trouver une info dans le fichier DevGuide.pdf page 215.

Il précise qu'on peut créer une PS dynamiquement. Il faut utiliser un TIBQuery (bien vu Blonde ), y entrer la déclaration de la PS sans les SET TERMs mais surtout il faut mettre le ParamCheck du Query à False.

Tiens nous au courant;
@+

[blonde]

c'est trop sympa de prendre le temps de m'aider.
Le fichier DevGuide.pdf se trouve sur ce site? Je ne le connais pas


J'avais carrément pas pensé à la propriété ParamCheck..

Ca MARCHE

Et dire que la solution était toute bête....

Merci beaucoup Claudius40 !!!

[Cl@udius]

You're welcome, my dear

Tu pourras trouver toute la doc (en anglais) sur interbase au format pdf à cette adresse. Elle s'applique à IB 6 OpenSource qui va aussi pour FB 1.5

http://www.aoindustries.com/docs/interbase/

Salut et @+

[blonde]

pfff, ça va, je l'ai trouvé le guide du développeur, je suis un peu à la ramasse parfois...

[blonde]

merci pour le lien, je vais tout télécharger!