[PL/SQL] Insertion en SQL dynamique : problème de types

bonjour à tous

je veut faire une insertion paramétrie ( sans connaitre la table , ni ces champs) pour cela j'utilise une procedure d'insertion

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

CREATE OR REPLACE PROCEDURE INSERTION ( table_nom VARCHAR(30), valeurs RECORD)   IS Requête VARCHAR (200);   BEGIN   If table_nom not exists in ( SELECT table_name FROM user_tales) then RAISE_application_error( 'la table n'existe pas ');       Requête :='INSERT INTO ' || table_nom || ' values ';   EXECUTE IMMEDIATE Requête;   END;

---

mais le problème: comment on peut récupèrer les valeurs de RECORD pour les inserés??.

Merci d'avance

La variable transmise sera alors de type la_table%ROWTYPE.

USER_TAB_COLUMNS donne la liste des colonnes d'une table.
Ensuite il faudra construire l'ordre d'insertion de façon totalement dynamique.

c'est un exercice interressant.

bonjour

mais je vais inserer les valeurs et leurs types dans un tableau ( RECORD)
et je doit les insérer

Code:

---

1 2	Requête :='INSERT INTO ' || table_nom || ' values ';

---

ma question comment je vais récupèrer les valeurs (a partir du tableau) pour les inserer dans la table ( qui correspond)????

Merci

Je viens de vous indiquer la piste.

votre procédure reçoit un record de type la_table%rowtype.
pour connaitre le nom des colonnes de cet enregistrement vous devez interroger la vue USER_TAB_COLUMNS ( faites un DESC USER_TAB_COLUMNS).

La vue vous donne entre-autre le nom des colonnes de la table ( COLUMN_NAME) donc le nom des champs de votre enregistrement.

Avec cela, vous pouvez construire votre ordre dynamique d'insertion.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Declare LC$Req VARCHAR2(4000); Cursor C_TABLE IS SELECT COLUMN_NAME FROM USER_TAB_COLUMNS WHERE TABLE_NAME = la_table ; Begin LC$Req := 'INSERT INTO ' || la_table|| ' (' ; -- Champs de la clause VALUE -- For i IN C_TABLE Loop If i> 1 Then LC$Req := LC$Req || ',' ; End if ; LC$Req := LC$Req || i.COLUMN_NAME ; End loop ; LC$Req := LC$Req || ) VALUES(' ; -- Valeurs -- For i IN C_TABLE Loop If i> 1 Then LC$Req := LC$Req || ',' ; End if ; LC$Req := LC$Req || 'Record.' || i.COLUMN_NAME ; End loop ; LC$Req := LC$Req || ') ' ;   EXECUTE IMMEDIATE LC$Req ; End ;

---

Ceci n'est qu'un base de travail.
A vous de l'ajuster.
pensez à afficher la chaîne LC$Req (DBMS_OUTPUT.PUT_LINE) pour vérifier le contenu avant d'envoyer a execute immediate.

Bon travail.

Merciiiii et bon courage à tous :D