Discussion :

[axine]

Bonjour,

J'ai une question un peu conne mais à laquelle je ne trouve pas de réponse dans les tutorials dont je dispose :

Dans un programme RPGLE, peut-on écrire un INSERT de ce style, dans lequel VAR1, VAR2 et VAR3 contiendraient les valeurs à insérer ?

Code :

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

1
2
3
 
INSERT INTO DEPARTMENT (DEPTNO, DEPTNAME, ADMRDEPT)
VALUES (VAR1, VAR2, VAR3)

D'avance, merci !

[_Jnie_]

Bonjour,

J'ai une question un peu conne mais à laquelle je ne trouve pas de réponse dans les tutorials dont je dispose :

Dans un programme RPGLE, peut-on écrire un INSERT de ce style, dans lequel VAR1, VAR2 et VAR3 contiendraient les valeurs à insérer ?

Code :

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

1
2
3
 
INSERT INTO DEPARTMENT (DEPTNO, DEPTNAME, ADMRDEPT)
VALUES (VAR1, VAR2, VAR3)

Tout à fait en utlisant du SQL dynamique.
Ta requête req:

Code :

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

1
2
3
 
INSERT INTO DEPARTMENT (DEPTNO, DEPTNAME, ADMRDEPT)
VALUES (?, ?, ?)

Dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
C/exec sql
C+ PREPARE p FROM :req
C/end-sql
C/exec sql
C+ EXECUTE p USING :VAR1, :VAR2, :VAR3
C/end-sql
C/exec sql
C+ COMMIT
C/end-sql

Ca doit être à peu près ça...

[axine]

Yesss, ça marche Un tout grand merci

[_Jnie_]

Yesss, ça marche Un tout grand merci

Avec plaisir

[Mercure]

SQL dynamique n'est pas indispensable. Voici une variante sans PREPARE en SQL direct :

Code :

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

1
2
3
4
exec sql
INSERT INTO DEPARTMENT (DEPTNO, DEPTNAME, ADMRDEPT)
VALUES (:var1, :var2, :var3)
end-exec

Tu pourrais même te dispenser de nommer les colonnes

Code :

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

1
2
3
exec sql
INSERT INTO DEPARTMENT VALUES (:var1, :var2, :var3)
end-exec

mais dans la mesure où tu respectes l'ordre des colonnes de la table dans la clause VALUES.