Discussion :

[exempleinfo]

Bonjour,
J'ai récupere la procedure Extraction_Table sur le lien :
http://sheikyerbouti.developpez.com/pl_sql/?page=Chap8
mais à la compilation il me demande de declarer F_TRACE.
Est ce que qlq un à déja utiliser cette precedure?
si MR sheikyerbouti peut me giuder.
merci d'avance

[SheikYerbouti]

F_TRACE() est une procédure stockée autonome permettant d'enregistrer des traces dans une table.
Vous pouvez mettre cette ligne en commentaire.

Si la procédure vous interesse, voici le code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
 
create or replace procedure F_TRACE ( PC$Message in VARCHAR2, PC$Output in VARCHAR2 DEFAULT 'E' )
Is
PRAGMA AUTONOMOUS_TRANSACTION ;
  LC$Chaine Varchar2(4000) ;
  LN$Tranches    PLS_INTEGER ;
  LN$Reste  PLS_INTEGER ;
  LN$Pos    PLS_INTEGER := 1 ;
  LN$Inc    PLS_INTEGER ;
Begin
 
  If PC$Output = 'E' Then
     -- Sortie sur ecran (DBMS_OUTPUT) --
     LN$Inc := 255 ;
     LN$Tranches := Length( PC$Message ) / LN$Inc ;
     LN$Reste    := MOD( Length( PC$Message ), LN$Inc ) ;
     If LN$Reste > 0 Then LN$Tranches := LN$Tranches + 1 ; End if ;
 
     -- Sortie --
     For i in 1..LN$Tranches Loop
        LC$Chaine := Substr( PC$Message, LN$Pos, LN$Inc ) ;
        DBMS_OUTPUT.PUT_LINE( LC$Chaine ) ;
        LN$Pos := LN$Pos + LN$Inc ;
     End loop ;
 
  Else
     -- Sortie sur table (INSERT) --
     LN$Inc := 4000 ;
     LN$Tranches := Length( PC$Message ) / LN$Inc ;
     LN$Reste    := MOD( Length( PC$Message ), LN$Inc ) ;
     If LN$Reste > 0 Then LN$Tranches := LN$Tranches + 1 ; End if ;
 
     -- Sortie --
     For i in 1..LN$Tranches Loop
        LC$Chaine := Substr( PC$Message, LN$Pos, LN$Inc ) ;
        Insert into TRACE (LIGNE) Values ( LC$Chaine ) ;
        Commit ;
        LN$Pos := LN$Pos + LN$Inc ;
     End loop ;
  End if ;
 
End;

Ainsi que la description de la table associée:

Code :

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

1
2
3
4
5
6
7
CREATE TABLE TRACE 
   (    
     UTI VARCHAR2(30 BYTE) DEFAULT USER, 
     DDATE DATE DEFAULT SYSDATE, 
     LIGNE VARCHAR2(4000 BYTE)
   )
/

[exempleinfo]

Mecrci pour la PS,
mais maintenant j'ai une erreur ORA-01036

begin
extraction_table('test', 'test.txt', 'FICHIERS_OUT');
end;

[SheikYerbouti]

Essayez de savoir quelle ligne de code génère cette erreur.
Avez-vous créé la directory FICHIERS_OUT ? que donne ceci:

Code :

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

1
2
Select * from ALL_DIRECTORIES
/

[exempleinfo]

Bonjour,
J'ai changer d'outil est ça marche mieux sur SQLDeveloper.
Merci beaucoup