Discussion :

[pomolo11]

Bonjour,

J'essaye depuis deux jours de réaliser un programme pl/sql pour mettre à jour une table à partir d'un fichier texte, j'ai écris un petit quelque chose, mais j'ai des erreurs et je n'arrive pas à les corriger !

Mon code est le 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
30
31
32
33
34
35
36
37
38
39
40
 
create or replace procedure maj_mbd is
    fichier varchar2(200) := 'NEW2.TXT';
    dossier  varchar(30)   := 'dir_temp';
    Pointeur    UTL_FILE.FILE_TYPE;
    Tampon varchar2(50) ;  
    Erreur exception;
    Msg varchar2(256) ;
 
begin
 
 
begin
    Pointeur := UTL_FILE.FOPEN(dossier, fichier, 'R') ;
    exception
        When OTHERS Then
        Msg := SQLERRM || ' [' || dossier || '] -> ' || fichier;
        Raise Erreur ;
end ;
 
Begin
     Loop
            UTL_FILE.GET_LINE( fichier,  Tampon );
 
            update MATBALE
            set LADATE=sysdate,
            ID=777,
            where CODE = Tampon;
            commit;
    end loop ;
    exception
        when NO_DATA_FOUND Then 
        UTL_FILE.FCLOSE(fichier) ;
end;    
 
exception
   when Erreur Then
     UTL_FILE.FCLOSE(fichier);
        update TABLE_ERREUR set COMMENTAIRE='ERREUR' where CODE=Tampon;
end ;

Mon fichier texte ressemble à ça :

Code :

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

1
2
3
4
5
 
0000011277
0000011278
0000011279
00000112552

Et les erreurs que j'ai sont les suivantes (Pour l'instant ) :




Je vous remercie d'avance