Up ! Query et Up ! PostgreSQL - Version procédurale

Ce programme exécute des ordres Sql et Pl/Sql statiques pour PostgreSQL.

Le fichier source est ${UPS_HOME}/upsqry/demo/${UPS_LANGUAGE}/postgres.upl.

Cet exemple n'utilise pas les instructions de l'extension d'Up ! 5GL pour Up ! Query. Les objets sémantiques sont construits dynamiquement.

Pour exécuter, le script ${UPS_HOME}/upsqry/demo/french/postgres.sql doit être chargé pour la connexion scott/tiger.

Mode compilé

Commande de compilation

upscmp Source=postgres.upl

Commande d'exécution

postgres ConnexionPostgreSQL=scott/tiger@localhost/scott

Mode interprété

upssng Source=postgres.upl ConnexionPostgreSQL=scott/tiger@localhost/scott

Fichier source

Source Composant "Exemple d'emploi d'Up ! PostgreSQL" Version 4.0.0;

ImporterModule
/************/
Procedure ListerEmployes(MaConnexionSql : Nul Ou IConnexionSql, NumeroDepartement : Entier)
/*****************************************************************************************/
Variable
/******/
Debut
Ecran.Ecrire("Département "+Caractere(NumeroDepartement));
Ecran.Ecrire("==============");
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql2", "SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire} FROM scott.emp WHERE deptno=${NumeroDepartement};");
MaRequeteSql.DeclarerParametre("NumeroDepartement", Entier);
MaRequeteSql.DeclarerResultat("NomEmploye", Caractere, 20);
MaRequeteSql.DeclarerResultat("DateEmbauche", Date);
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("Salaire", Reel);
MaRequeteSql.PreparerSql();
MaRequeteSql.EcrireParametre("NumeroDepartement", NumeroDepartement);
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
Fin Procedure

Procedure ListerEmployes2(MaRequeteSql : Nul Ou IRequeteSql, NumeroDepartement : Entier)
/**************************************************************************************/
Variable
/******/
Debut
Ecran.Ecrire("Département "+Caractere(NumeroDepartement));
Ecran.Ecrire("==============");
MaRequeteSql.EcrireParametre("NumeroDepartement", NumeroDepartement);
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
Fin Procedure

Procedure MettreAJourSalaire(MaConnexionSql : Nul Ou IConnexionSql)
/*****************************************************************/
Variable
/******/
Debut
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql3", "SELECT empno:=${NumeroEmploye}, sal:=${Salaire} FROM scott.emp;", 5);
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("Salaire", Reel);
MaRequeteSql.PreparerSql();
MonOrdreSql=MaConnexionSql.CreerOrdreSql("MonOrdreSql4", "UPDATE scott.emp SET sal=${Salaire} WHERE empno=${NumeroEmploye};", 7);
MonOrdreSql.DeclarerParametre("Salaire", Reel);
MonOrdreSql.DeclarerParametre("NumeroEmploye", Entier);
MonOrdreSql.PreparerSql();
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
MonOrdreSql.ExecuterSql();
MaConnexionSql.Valider();
Fin Procedure

Procedure InsererDescription(MaConnexionSql : Nul Ou IConnexionSql)
/*****************************************************************/
Variable
/******/
Debut
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql4", "SELECT empno:=${NumeroEmploye}, ename:=${NomEmploye} FROM scott.emp WHERE deptno=10;", 5);
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("NomEmploye", Caractere, 20);
MaRequeteSql.PreparerSql();
MonOrdreSql=MaConnexionSql.CreerOrdreSql("MonOrdreSql5", "INSERT INTO scott.emp_desc(empno, description) VALUES (${NumeroEmploye}, ${Description});");
MonOrdreSql.DeclarerParametre("NumeroEmploye", Entier);
MonOrdreSql.DeclarerParametre("Description", Caractere, ParametreEntree, TailleObjetSqlLong);
MonOrdreSql.PreparerSql();
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
MaConnexionSql.Valider();
Fin Procedure

Procedure ListerDescriptions(MaConnexionSql : Nul Ou IConnexionSql)
/*****************************************************************/
Variable
/******/
Debut
Ecran.Ecrire("Description");
Ecran.Ecrire("===========");
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql5", "SELECT empno:=${NumeroEmploye}, description:=${Description} FROM scott.emp_desc;");
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("Description", Caractere, TailleObjetSqlLong);
MaRequeteSql.PreparerSql();
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
Fin Procedure

Procedure InsererImage(MaConnexionSql : Nul Ou IConnexionSql)
/***********************************************************/
Variable
/******/
Debut
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql6", "SELECT empno:=${NumeroEmploye}, ename:=${NomEmploye} FROM scott.emp WHERE deptno=10;", 5);
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("NomEmploye", Caractere, 20);
MaRequeteSql.PreparerSql();
MonOrdreSql=MaConnexionSql.CreerOrdreSql("MonOrdreSql6", "INSERT INTO scott.emp_pict(empno, picture) VALUES (${NumeroEmploye}, ${Photo});");
MonOrdreSql.DeclarerParametre("NumeroEmploye", Entier);
MonOrdreSql.DeclarerParametre("Photo", Binaire, ParametreEntree, TailleObjetSqlLong);
MonOrdreSql.PreparerSql();
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
MaConnexionSql.Valider();
Fin Procedure

Procedure ListerImages(MaConnexionSql : Nul Ou IConnexionSql)
/***********************************************************/
Variable
/******/
Debut
Ecran.Ecrire("Image");
Ecran.Ecrire("=====");
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql7", "SELECT empno:=${NumeroEmploye}, picture:=${Photo} FROM scott.emp_pict;");
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("Photo", Binaire, TailleObjetSqlLong);
MaRequeteSql.PreparerSql();
MonResultatSql=ResultatRequeteSql(MaRequeteSql.ExecuterSql());
Pour Enregistrement=MonResultatSql.ParcoursAuDebut() JusquA MonResultatSql.DernierElement() Faire Fin Pour
Fin Procedure

Principal
/*******/
Variable
/******/
Debut
MaConnexionSql=ConnexionPostgreSQL("scott", "tiger");

/* Lecture parametree et rang a rang sans reutilisation du curseur. */
ListerEmployes(IConnexionSql(MaConnexionSql), 10);
ListerEmployes(IConnexionSql(MaConnexionSql), 20);
ListerEmployes(IConnexionSql(MaConnexionSql), 30);
Ecran.Ecrire(");

/* Lecture parametree et par tableau avec reutilisation du curseur. */
MaRequeteSql=MaConnexionSql.CreerRequeteSql("MaRequeteSql", "SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire} FROM scott.emp WHERE deptno=${NumeroDepartement};", 5);
MaRequeteSql.DeclarerParametre("NumeroDepartement", Entier);
MaRequeteSql.DeclarerResultat("NomEmploye", Caractere, 20);
MaRequeteSql.DeclarerResultat("DateEmbauche", Date);
MaRequeteSql.DeclarerResultat("NumeroEmploye", Entier);
MaRequeteSql.DeclarerResultat("Salaire", Reel);
MaRequeteSql.PreparerSql();
ListerEmployes2(MaRequeteSql, 10);
ListerEmployes2(MaRequeteSql, 20);
ListerEmployes2(MaRequeteSql, 30);
Ecran.Ecrire(");

/* Modifications annulees. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql", "INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal) VALUES ('youpi', NOW(), 9000, 40, 1000.00);");
MonOrdreSql=MaConnexionSql.CreerOrdreSql("MonOrdreSql7", "INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal) VALUES (${NomEmploye}, ${DateEmbauche}, ${NumeroEmploye}, ${NumeroDepartement}, ${Salaire});");
MonOrdreSql.DeclarerParametre("NomEmploye", Caractere, ParametreEntree, 20);
MonOrdreSql.DeclarerParametre("DateEmbauche", Date);
MonOrdreSql.DeclarerParametre("NumeroEmploye", Entier);
MonOrdreSql.DeclarerParametre("NumeroDepartement", Entier);
MonOrdreSql.DeclarerParametre("Salaire", Reel);
MonOrdreSql.PreparerSql();
MonOrdreSql.EcrireParametre("NomEmploye", "youpi2");
MonOrdreSql.EcrireParametre("DateEmbauche", DateSysteme());
MonOrdreSql.EcrireParametre("NumeroEmploye", 9001);
MonOrdreSql.EcrireParametre("NumeroDepartement", 40);
MonOrdreSql.EcrireParametre("Salaire", 1001.00);
MonOrdreSql.ExecuterSql();
MaConnexionSql.Invalider();
ListerEmployes(IConnexionSql(MaConnexionSql), 40);
Ecran.Ecrire(");

/* Modifications validees. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql2", "INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal) VALUES ('youpi3', NOW(), 9100, 40, 1100.00);");
MonOrdreSql=MaConnexionSql.CreerOrdreSql("MonOrdreSql8", "INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal) VALUES (${NomEmploye}, ${DateEmbauche}, ${NumeroEmploye}, ${NumeroDepartement}, ${Salaire});");
MonOrdreSql.DeclarerParametre("NomEmploye", Caractere, ParametreEntree, 20);
MonOrdreSql.DeclarerParametre("DateEmbauche", Date);
MonOrdreSql.DeclarerParametre("NumeroEmploye", Entier);
MonOrdreSql.DeclarerParametre("NumeroDepartement", Entier);
MonOrdreSql.DeclarerParametre("Salaire", Reel);
MonOrdreSql.PreparerSql();
MonOrdreSql.EcrireParametre("NomEmploye", "youpi4");
MonOrdreSql.EcrireParametre("DateEmbauche", DateSysteme());
MonOrdreSql.EcrireParametre("NumeroEmploye", 9101);
MonOrdreSql.EcrireParametre("NumeroDepartement", 40);
MonOrdreSql.EcrireParametre("Salaire", 1101.00);
MonOrdreSql.ExecuterSql();
MaConnexionSql.Valider();
ListerEmployes(IConnexionSql(MaConnexionSql), 40);
Ecran.Ecrire(");

/* Mise a jour par tableau. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql9", "UPDATE scott.emp SET sal=-sal;");
MettreAJourSalaire(IConnexionSql(MaConnexionSql));
ListerEmployes(IConnexionSql(MaConnexionSql), 10);
ListerEmployes(IConnexionSql(MaConnexionSql), 20);
ListerEmployes(IConnexionSql(MaConnexionSql), 30);
Ecran.Ecrire(");

/* Nettoyage des modifications. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql10", "DELETE FROM scott.emp WHERE deptno=40;");
MaConnexionSql.Valider();

/* Appel d'une procedure stockee. */
MonBlocSql=MaConnexionSql.CreerBlocSql("MonBlocSql", "SELECT * FROM scott.MaProcedure(${NumeroDepartement}, ${SalaireMin}, ${SalaireMax});");
MonBlocSql.DeclarerParametre("NumeroDepartement", Entier);
MonBlocSql.DeclarerParametre("SalaireMin", Reel, ParametreSortie);
MonBlocSql.DeclarerParametre("SalaireMax", Reel, ParametreSortie);
MonBlocSql.PreparerSql();
MonBlocSql.EcrireParametre("NumeroDepartement", 10);
MonBlocSql.ExecuterSql();
MonBlocSql.LireParametre("SalaireMin", SalaireMin);
MonBlocSql.LireParametre("SalaireMax", SalaireMax);
Ecran.Ecrire("SalaireMin="+Caractere(SalaireMin));
Ecran.Ecrire("SalaireMax="+Caractere(SalaireMax));

/* Appel d'une fonction stockee. */
MonBlocSql=MaConnexionSql.CreerBlocSql("MonBlocSql2", "SELECT scott.MaFonction(${NumeroDepartement}) INTO ${SalaireMoyen};");
MonBlocSql.DeclarerParametre("SalaireMoyen", Reel, ParametreSortie);
MonBlocSql.DeclarerParametre("NumeroDepartement", Entier);
MonBlocSql.PreparerSql();
MonBlocSql.EcrireParametre("NumeroDepartement", 10);
MonBlocSql.ExecuterSql();
MonBlocSql.LireParametre("SalaireMoyen", SalaireMoyen);
Ecran.Ecrire("SalaireMoyen="+Caractere(SalaireMoyen));
Ecran.Ecrire(");

/* Textes longs. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql11", "DELETE FROM scott.emp_desc;");
MaConnexionSql.Valider();
InsererDescription(IConnexionSql(MaConnexionSql));
ListerDescriptions(IConnexionSql(MaConnexionSql));

/* Images longs. */
MaConnexionSql.ExecuterOrdreSql("MonOrdreSql12", "DELETE FROM scott.emp_pict;");
MaConnexionSql.Valider();
InsererImage(IConnexionSql(MaConnexionSql));
ListerImages(IConnexionSql(MaConnexionSql));
Fin Principal

Résultat de l'exécution

Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 Département 40 ============== Département 40 ============== youpi3 2007/02/1 00:00:00 9,100 1,100.0000 youpi4 09/07/1 00:00:00 9,101 1,101.0000 Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 SalaireMin=1,300.0000 SalaireMax=5,000.0000 SalaireMoyen=2,915.9794 Description =========== 7,782 : CLARK - Ceci est un commentaire long sur le nom de l'employe. 7,839 : KING - Ceci est un commentaire long sur le nom de l'employe. 7,934 : MILLER - Ceci est un commentaire long sur le nom de l'employe. Image ===== 7,782 : 1171 7,839 : 1068 7,934 : 1204