Firebird Zeoslib composant Zsqlprocessor script avec paramètre

Bonjour,
Je voudrais insérer des données d'une table à une autre de 2 bases firebird (la même strucure de champs) et pour ce j'utilise le script suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

EXECUTE BLOCK AS DECLARE cpt VARCHAR(1) ; DECLARE dcpt VARCHAR(20);     BEGIN FOR EXECUTE STATEMENT 'SELECT cpt , dcpt colonneN FROM compte' ON EXTERNAL DATA SOURCE 'localhost:C:\LIB.FDB' AS USER 'SYSDBA' PASSWORD 'masterkey' INTO :cpt, :dcpt DO INSERT INTO compte(cpt,dcpt) VALUES(:cpt, :dcpt); END

---

Je voudrais mettre le chemin de la base 'localhost:C:\LI.FDB' comme paramètre (pour que je puisse changer le chemin de la base) mais en vain .
Je précise que je travail avec delphi 7 zeo 7.1.4 et le composant zsqlprocessor pour le script.
Merci.

Bonjour,

je ne suis pas sur qu'un paramètre puisse être utilisé avec TZSQLProcessor, du moins dans ce cas et sous cette forme
je procéderai plutôt en jouant sur le texte du script
plusieurs solutions pour cela :

soit le script

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

EXECUTE BLOCK AS DECLARE cpt VARCHAR(1) ; DECLARE dcpt VARCHAR(20); BEGIN FOR EXECUTE STATEMENT 'SELECT cpt , dcpt colonneN FROM compte' ON EXTERNAL DATA SOURCE [base] AS USER 'SYSDBA' PASSWORD 'masterkey' INTO :cpt, :dcpt DO INSERT INTO compte(cpt,dcpt) VALUES(:cpt, :dcpt); END

---

remplacer la ligne complete ZSQLProcessor.Script.lines[8]:=QuotedStr('localhost:C:\LIB.FDB');si le script ne s'exécute qu'une fois on peut aussi utiliser

Code:

---

ZSQLProcessor.Script.Text:=StringReplace(ZSQLProcessor.Script.Text,'[base]',QuotedStr('localhost:C:\LIB.FDB'),[rfReplaceall]);

---

Ceci étant, coté Firebird :
1-EXECUTE BLOCK accepte des paramètres https://firebirdsql.org/refdocs/lang...execblock.html
2-EXECUTE STATEMENT aussi https://firebirdsql.org/refdocs/lang...-execstat.html

pour le point 1, logiquement, selon la doc il faudrait écrire EXECUTE BLOCK (base varchar(80)=? ) AS, cependant cette remarque de la doc

Citation:

---

The server only accepts question marks (“?”) as placeholders for the input values, not “:a”, “:MyParam” etc., or literal values. Client software may support the “:xxx” form though, which it will preprocess before sending it to the server.

---

fait reposer l'interprétation de la forme EXECUTE BLOCK (:base) sur les épaules de ZEOSLIB, je ne sais pas si elles sont assez larges ;)

pour le point 2 par contre, si le point 1 passe, moins de soucis

Code:

---

1 2	stmt='SELECT cpt , dcpt colonneN FROM compte ON EXTERNAL DATA SOURCE :base AS USER 'SYSDBA' PASSWORD 'masterkey' INTO :cpt, :dcpt'; for execute statement (stmt) (:base) do ...

---

passera peut-être, sinon à la bonne vieille concaténation de travailler

Code:

---

STMT='SELECT cpt , dcpt colonneN FROM compte ON EXTERNAL DATA SOURCE "'||:base||'" AS USER "SYSDBA" PASSWORD "masterkey" INTO :cpt, :dcpt';

---

Franchement, les solutions de remplacement dans ZQLProcessor sont plus simples, plus sûres et moins aléatoires

Bonjour

Citation:

---

Envoyé par SergioMaster

si le script ne s'exécute qu'une fois on peut aussi utiliser

Code:

---

ZSQLProcessor.Script.Text:=StringReplace(ZSQLProcessor.Script.Text,'[base]',QuotedStr('localhost:C:\LIB.FDB'),[rfReplaceall]);

---

---

:D
Merci ça marche.