PL/SQL Utilisation de cursor

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : PL/SQL Utilisation de cursor

lapartdombre

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

Publicité

Beegee

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

lapartdombre

Beegee a écrit :

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??

Beegee

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

lapartdombre

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

lapartdombre

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é

Beegee

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

(la commande créera le fichier)

lapartdombre

ca ne change rien

Beegee

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

orafrance

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

FORUM HardWare.fr

Programmation

SQL/NoSQL

PL/SQL Utilisation de cursor

Sujets relatifs
Base SQL trop grosse pour l'importée...	Requete SQL
[SQL/Windev] INTO Outfile	Sauvegarde base SQL
SQL loader probleme	[SQL - ORACLE] Requete un peu complexe (pour moi)
[SQL] pb de selection...	Comment faire cette requête SQL avec des combinaisons
[VB.NET/Mysql] Utilisation de MysqlConnector	Utilisation de fichier *.hta
Plus de sujets relatifs à : PL/SQL Utilisation de cursor

Page générée en 0.088 secondes