Discussion :

[houhou]

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 :

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

[SheikYerbouti]

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.

[houhou]

bonjour

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

Code :

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

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

[SheikYerbouti]

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 :

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

[houhou]

Merciiiii et bon courage à tous