PL/SQL Utilisation de cursor

Marsh Posté le 03-11-2005 à 10:56:38

Je cherche à copier une table dans une autre. Pour chaque enregisrement je veux vérifier que le code de l'enregistrement est contenu dans la table de destination. S'il est bien contenu, je vais un update de la ligne sinon je dois refusé l'importation de la ligne et loggé l'erreur.
Mon problème c'est que mon update ne se déclenche jamais et je ne sais pas comment faire pour logger l'information en cas de refus d'importation.

Code :

DECLARE
TYPE recordTypeFlux IS RECORD
(
libelle tmp_type_flux.tf_libelle%TYPE,
code tmp_type_flux.tf_code%TYPE
);
rec recordTypeFlux;
CURSOR CurseurTypeFlux IS select tf_libelle , tf_code from tmp_type_flux;
CURSOR ExisteTypeFlux IS select * from type_flux where type_flux.code_type_flux = rec.code;
BEGIN
OPEN CurseurTypeFlux;
OPEN ExisteTypeFlux;
dbms_output.put_line('1');
LOOP
FETCH CurseurTypeFlux INTO rec;
EXIT WHEN CurseurTypeFlux%NOTFOUND;
If ExisteTypeFlux%NOTFOUND Then
update type_flux set libelle_type_flux = rec.libelle;
/* insert into type_flux(libelle_type_flux, code_type_flux) values (rec.libelle,rec.code); */
END If;
END LOOP;
CLOSE CurseurTypeFlux;
CLOSE ExisteTypeFlux;
COMMIT;
END;

Message édité par lapartdombre le 03-11-2005 à 11:05:26

Reply

Marsh Posté le 03-11-2005 à 10:56:38

Reply

Marsh Posté le 03-11-2005 à 11:26:01

Le 2nd curseur utilise la variable rec, remplie par le résultat du 1er curseur.
Il faut peut-être que tu fasses un OPEN / FETCH du 2ème curseur juste avant de regarder %NOTFOUND.
Et enfin, je comprends pas trrop ta logique ! Quand le code n'est pas trouvé dans type_flux, tu mets à jours TOUS les libellés de type_flux !!!
J'imagine que tu veux mettre à jour le libellé dans type_flux, à code égal, trouvé dans tmp_type_flux.

Voici un moyen de le faire, plus simple :

Code :

DECLARE
numberOfRowsMissing INTEGER;
BEGIN
-- Verification de la coherence des donnees entre tmp_type_flux et type_flux
SELECT COUNT(*)
INTO numberOfRowsMissing
FROM tmp_type_flux ttf
WHERE NOT EXISTS (SELECT 1 FROM type_flux tf WHERE tf.code = ttf.code);
IF (numberOfRowsMissing > 0) THEN
RAISE_APPLICATION_ERROR(-20000, 'La table tmp_type_flux contient ' || numberOfRowsMissing || ' lignes qui n'existent pas dans type_flux');
END IF;
-- Mise à jour de type_flux
FOR r IN (
SELECT code, libelle
FROM tmp_type_flux
)
LOOP
UPDATE type_flux
SET libelle = r.libelle
WHERE code = r.code;
END LOOP;
END;

edit : si tu veux plutôt sortir un message d'erreur (dbms_output) par ligne manquant, il faut faire le COUNT dans la boucle plutôt, voire faire l'UPDATE et récupérer le nombre de lignes affectées (il me semble qu'on peut récupérer l'info).

Message cité 1 fois
Message édité par Beegee le 03-11-2005 à 11:36:52

Reply

Marsh Posté le 03-11-2005 à 11:55:42

Beegee a écrit :

edit : si tu veux plutôt sortir un message d'erreur (dbms_output) par ligne manquant, il faut faire le COUNT dans la boucle plutôt, voire faire l'UPDATE et récupérer le nombre de lignes affectées (il me semble qu'on peut récupérer l'info).

Ca marche beaucoup mieux de ta facon et c'est beaucoup moins compliqué. En fait il faudrait que je mette un message d'erreur dans un fichier de log quand le code que je recherche n'est pas présent dans la table. Est ce que tu sais comment faire??

Reply

Marsh Posté le 03-11-2005 à 12:08:53

Code :

DECLARE
numberOfRowsUpdated INTEGER;
fileHandler UTL_FILE.FILE_TYPE;
BEGIN
-- Ouverture du fichier de log
fileHandler := UTL_FILE.FOPEN('/tmp', 'myfile', 'w');
-- Verification de la coherence des donnees entre tmp_type_flux et type_flux
FOR r IN (
SELECT ttf.code, ttf.libelle
FROM tmp_type_flux ttf
WHERE NOT EXISTS (SELECT 1 FROM type_flux tf WHERE tf.code = ttf.code)
)
LOOP
UTL_FILE.PUTF(fileHandler, 'La ligne de tmp_type_flux contenant le code: ' || r.code || ' et le libellé : ' || r.libelle || ' ne correspond à aucune ligne de type_flux');
END LOOP;
-- Mise à jour de type_flux (si le code n'existe pas dans type_flux, l'UPDATE ne fera rien)
FOR r IN (
SELECT code, libelle
FROM tmp_type_flux
)
LOOP
UPDATE type_flux
SET libelle = r.libelle
WHERE code = r.code;
END LOOP;
-- Fermeture du fichier de log
UTL_FILE.FCLOSE(fileHandler);
EXCEPTION
WHEN utl_file.invalid_path THEN
RAISE_APPLICATION_ERROR(-20000, 'Erreur: répertoire / nom de fichier invalide');
END;

Message édité par Beegee le 03-11-2005 à 12:10:55

Reply

Marsh Posté le 03-11-2005 à 12:15:52

Super merci beaucoup... je crois que c'est ca qui me manquait un fichier d'exemple

Reply

Marsh Posté le 03-11-2005 à 12:36:21

J'ai encore une petite question, j'ai repris ton exemple et j'ai modifié en

Code :

-- Ouverture du fichier de log
fileHandler := UTL_FILE.FOPEN('D:/log', 'copie.log', 'w');

Mais j'ai un message d'erreur comme quoi ORA-20000: Erreur: répertoire / nom de fichier invalide...alors que mon fichier est bien dans le répertoire spécifié

Reply

Marsh Posté le 03-11-2005 à 13:43:08

C'est pas plutôt "D:\" ?

(la commande créera le fichier)

Reply

Marsh Posté le 03-11-2005 à 14:17:20

ca ne change rien

Reply

Marsh Posté le 03-11-2005 à 14:40:30

Il faut que le fichier de configuration init.ora, utilisé pour ton instance Oracle, renseigne la valeur utl_file_dir :

utl_file_dir = 'D:\'

http://www.freelists.org/archives/ [...] 01386.html

Message édité par Beegee le 03-11-2005 à 14:40:44

Reply

Marsh Posté le 04-11-2005 à 08:01:46

ou alors créer une DIRECTORY et l'indiquer à la place de ce chemin

Reply

PL/SQL Utilisation de cursor

Sujets relatifs:

Leave a Replay