Discussion :

[roman67]

Bonjour,

Je souhaiterai créer un trigger qui vérifie l'existence d'un fichier lors de la saisie de son nom dans une table oracle.
Par exemple: l'utilisateur peut saisir le nom d'une photo qu'il a prise et le trigger doit vérifier si cette photo existe bien dans une arborescence donnée.

Est-ce faisable?

Merci pour votre aide!

[skuatamad]

Salut,

Regarde du côté de UTL_FILE

[roman67]

J'ai lu le tutorial sur UTL_FILE mais je m'en sors pas trop.

Quelqu'un pourrait me donner un exemple concret pour vérifier l'existence d'un fichier.

D'avance merci

[Scorpi0]

A quel niveau tu bloques ?

[Z3phur]

tu peux te servir de fopen et gérer l'exception INVALID_PATH ce qui voudrait dire que ton fichier n'existe pas.

[roman67]

Bein, je sais pas vraiment comment utiliser la fonction FGETATTR.

Le tutorial me donne celà mais pas d'exemple concret, je suppose qu'il faut déclarer UTL_FILE, et saisir la commande differement.

Lecture des attributs d'un fichier

UTL_FILE.FGETATTR(
repertoire IN VARCHAR2,
fichier IN VARCHAR2,
exists OUT BOOLEAN,
taille_fichier OUT NUMBER,
taille_bloc OUT NUMBER)

repertoire représente le répertoire Oracle
fichier représente le nom du fichier avec son extension
exists vaut TRUE si le fichier existe, sinon FALSE
taille_fichier représente la taille du fichier en octets
taille_bloc représente la taille d'un bloc système en octets

Cette fonction teste l'existence d'un fichier et récupère, dans l'affirmative, la taille du fichier et la taille du bloc système

[skuatamad]

Directement tiré de la procédure Ouvrir_fichier :

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
SQL> declare
  2  PC$Nom_Fichier varchar2(50) := 'toto.jpg';
  3  PC$Dir varchar2(50) := '/path/de/ton/directory/';
  4  v_file utl_file.file_type;
  5  LC$Msg     Varchar2(256);
  6  begin
  7  v_file := utl_file.fopen( PC$Dir, PC$Nom_Fichier, 'r');
  8  dbms_output.put_line('le fichier existe');
  9  exception
 10     When UTL_FILE.INVALID_PATH Then
 11     LC$Msg := 'le fichier '||PC$Nom_Fichier||' n''existe pas';
 12     dbms_output.put_line( LC$Msg ) ;
 13  end;
 14  /
le fichier toto.jpg n'existe pas
 
Procédure PL/SQL terminée avec succès.

Par contre pour un trigger utilise RAISE_APPLICATION_ERROR, et les autres exceptions.

[roman67]

Si je saisie le script de skuatamad il me fait une erreur:

PLS-00201: L'identificateur 'UTL_FILE' doit etre declare

Comment puis déclarer UTL_FILE?

[plaineR]

C'est que tu n'as pas les droits sur utl_file.

[roman67]

J'ai accès à l'utilisateur SYSTEM donc je peux me les donner.
Comment faire pour avoir les droits?

[plaineR]

J'ai accès à l'utilisateur SYSTEM donc je peux me les donner.
Comment faire pour avoir les droits?

Normalement, c'est avec l'utilisateur SYS.

Code :

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

grant execute on utl_file to myuser;