Discussion :

[Mednet]

Salut,

Mon problème c'est que à chaque fois que j'essaye d’insérer un ensemble d'enregistrements sous Forms 10g avec un boutton code' en PL/SQL comme suit :

Code :

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

insert into DETAIL_CMDS values (:MONTANT_HT,:NBRE_JOURS,:LIGNE_COMMANDE,: PROFIL,DET_CMD_SEQ.NEXTVAL,: DETAIL_CMDS.MONTANT_TTC,: DETAIL_CMDS.PRIX,: DETAIL_CMDS.TAUX_TVA,'COM_SEQ.CURRVAL');

Avec : table COMMANDES est un Master et DETAIL_CMDS est un DETAIL.

Merci d'avance !

[Bibeleuh]

Salut,

Difficile de répondre sans avoir un message d'erreur mais je pense avoir une idée du problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
INSERT INTO DETAIL_CMDS
     VALUES (:MONTANT_HT,
             :NBRE_JOURS,
             :LIGNE_COMMANDE,
             :PROFIL,
             DET_CMD_SEQ.NEXTVAL,
             :DETAIL_CMDS.MONTANT_TTC,
             :DETAIL_CMDS.PRIX,
             :DETAIL_CMDS.TAUX_TVA,
             'COM_SEQ.CURRVAL');

Vous insérez la valeur 'COM_SEQ.CURRVAL' qui est un chaine de caractères dans la colonne qui j'imagine est la clé étrangère vers la table commande.
Il vous suffit donc d'enlever les simple quotes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
INSERT INTO DETAIL_CMDS
     VALUES (:MONTANT_HT,
             :NBRE_JOURS,
             :LIGNE_COMMANDE,
             :PROFIL,
             DET_CMD_SEQ.NEXTVAL,
             :DETAIL_CMDS.MONTANT_TTC,
             :DETAIL_CMDS.PRIX,
             :DETAIL_CMDS.TAUX_TVA,
             COM_SEQ.CURRVAL);

[McM]

CTRL+Shift+E pour avoir l'erreur Oracle.

[Mednet]

Voici l'erreur :

ORA-01400: impossible d'insérer NULL dans ("SCOTT"."DETAIL_CMDS"."ID_DETAIL")

Et voici mon programme :

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
24
25
26
27
28
BEGIN
	first_record;
Loop
INSERT INTO DETAIL_CMDS(MONTANT_HT,
             NBRE_JOURS,
             LIGNE_COMMANDE,
             PROFIL,
             ID_DETAIL,
             MONTANT_TTC,
             PRIX,
             TAUX_TVA,
             CMD_ID_COMMANDE)
     VALUES (: DETAIL_CMDS.MONTANT_HT,
             : DETAIL_CMDS.NBRE_JOURS,
             : DETAIL_CMDS.LIGNE_COMMANDE,
             : DETAIL_CMDS.PROFIL,
             DET_CMD_SEQ.NEXTVAL,
             : DETAIL_CMDS.MONTANT_TTC,
             : DETAIL_CMDS.PRIX,
             : DETAIL_CMDS.TAUX_TVA,
             COM_SEQ.CURRVAL);
 EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE' ;
 NEXT_RECORD;
END LOOP; 
display_error;
 COMMIT_FORM;
 CLEAR_FORM();
 END;

Merci d'avance

[Mednet]

Enfin, le problème est résolu, en fait, j'ai oublié de créer un trigger en DB pour qu'à chaque insertion le id soit incrémenté

Et voila le code manquant :

Code :

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

1
2
3
4
5
6
7
8
9
10
CREATE OR REPLACE TRIGGER det_cmd_trg
BEFORE INSERT ON detail_cmds
FOR EACH ROW
WHEN (new.id_detail IS NULL)
BEGIN
  SELECT det_cmd_seq.NEXTVAL
  INTO   :new.id_detail
  FROM   dual;
END;
/

Merci à tous.

[Bibeleuh]

ORA-01400: impossible d'insérer NULL dans ("SCOTT"."DETAIL_CMDS"."ID_DETAIL")

Et pourtant dans votre requête d'insertion vous insérez bien la valeur de la séquence dans votre champs ID_DETAIL :

INSERT INTO DETAIL_CMDS(MONTANT_HT,
NBRE_JOURS,
LIGNE_COMMANDE,
PROFIL,
ID_DETAIL,
MONTANT_TTC,
PRIX,
TAUX_TVA,
CMD_ID_COMMANDE)
VALUES (: DETAIL_CMDS.MONTANT_HT,
: DETAIL_CMDS.NBRE_JOURS,
: DETAIL_CMDS.LIGNE_COMMANDE,
: DETAIL_CMDS.PROFIL,
DET_CMD_SEQ.NEXTVAL,
: DETAIL_CMDS.MONTANT_TTC,
: DETAIL_CMDS.PRIX,
: DETAIL_CMDS.TAUX_TVA,
COM_SEQ.CURRVAL);

Il faudra m'expliquer l'intérêt du Trigger dans ce cas car j'ai du mal à comprendre