Envoi du nom d'un fichier comme paramètre [Résolu]

[Socrat]

Bonsoir tt le monde,

J'ai déjà posé cette question il y longtemps.

Est ce-qu'on peut envoyer le nom d'une table comme paramètre à une procédure stockée.

Je m'explique :

Dans mon application j'ai 15 fichiers temporaires de même structure :
t0001,t0002,...,t0015
J'ai une ps définit comme suite:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SET TERM ^ ;
 
CREATE PROCEDURE UpdateFile (
    xfile CHAR(10)
    )
AS
définition de mes VARIABLES
begin
  INSERT INTO :xfile (....) VALUES (....);
end
^
SET TERM ; ^

A l'appel de la ps je met :

execute procedure ('T0001');
ou
execute procedure ('T0002');
ou
....
execute procedure ('T0015');

Est-ce que ça marche avec les nouvelles version de firebird.
NB. Je travail avec la version 2.0.0.12748

[freud]

Bonsoir,

Utilisez un EXECUTE STATEMENT :

Code :

1
2
3
 
EXECUTE STATEMENT 'INSERT INTO ' || :xfile ||'(champ1,champ2) VALUES ('
||V1 ||','||V2||')';

V1,V2 = variable1, variable2

[Socrat]

Merci,

Je vais essayez.

[Socrat]

ok ça marche

Merci

[Socrat]

Bonjour tout le monde,

J'ai un problème lorsque j'utilise la boucle qui scane une table (for select .. do ...) :

Code :

1
2
3
4
5
6
7
8
9
    execute statement 
'for select dtmvt,datech,libelle1,libelle2,debit,credit from '  || :xfile || 
    'where code=:xCode and (dtmvt  between  :xDt1 and :xDt2)
         INTO  :xdtmvt,:xdatech,:xlibelle1,:xlibelle2,:xdebit,:xcredit
    do
    begin
        insert into P001 (dtmvt,datech,cdmvt,libelle1,libelle2,debit,credit)
        values (:xdtmvt,:xdatech,:xcdmvt,:xlibelle1,:xlibelle2,:xdebit,:xcredit);
    end'

[freud]

Bonjour,

Essayez avec ca :

Code SQL :

1
2
3
4
5
6
7
8
9
 
FOR EXECUTE STATEMENT 'select dtmvt,datech,libelle1,libelle2,debit,credit from '  || :xfile || ' where code = ' || :xCode || ' and (dtmvt  between  ''' || :xDt1 || ''' and ''' || :xDt2 || ''')';
INTO  :xdtmvt,:xdatech,:xlibelle1,:xlibelle2,:xdebit,:xcredit
 
Do
Begin
INSERT INTO P001 (dtmvt,datech,cdmvt,libelle1,libelle2,debit,credit)
        VALUES (:xdtmvt ,:xdatech ,:xcdmvt ,:xlibelle1 ,:xlibelle2 ,:xdebit ,:xcredit);
End

[Socrat]

Merci freud.

Je vais faire un essai