Up ! Query et Up ! Microsoft Sql Server - Dictionnaire de données et de traitements - Version déclarative

Ce programme exécute interroge le dictionnaire de données et de traitements de Sql Server de Microsoft.

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

Cet exemple utilise les instructions de l'extension d'Up ! 5GL pour Up ! Query. Les objets sémantiques sont déclarés statiquement.

Pour compiler, UpsQry.upi doit être déclaré parmi les modules importés dans le fichier ${UPS_HOME}/ini/${UPS_USER}/upsp5l.ini.

Pour exécuter :

Mode compilé

Commande de compilation

upscmp Source=sqlserver4.upl

Commande d'exécution

sqlserver4 ConnexionSqlServer=scott/tiger@SQLSEXPRESS/scott

Mode interprété

upssng Source=sqlserver4.upl ConnexionSqlServer=scott/tiger@SQLEXPRESS/scott

Fichier source

Source Composant "Exemple d'emploi d'Up ! Microsoft Sql Server" Version 4.0.0;

ImporterModule
/************/
ConnexionSql
/**********/
Procedure ListerLesCatalogues()
/*****************************/
Debut
Ecran.Ecrire("ListerCatalogues");
Ecran.Ecrire("================");
RequeteSql CataloguesSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesSchemas()
/**************************/
Debut
Ecran.Ecrire("ListerSchemas");
Ecran.Ecrire("=============");
RequeteSql SchemasSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesColonnes(NomCatalogue : Nul Ou Caractere, NomSchema : Nul Ou Caractere, NomTable : Nul Ou Caractere)
/********************************************************************************************************************/
Variable
/******/
Debut
Ecran.Ecrire("ListerColonnes");
Ecran.Ecrire("--------------");
RequeteSql ColonnesTablesSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesClesPrimaires(NomCatalogue : Nul Ou Caractere, NomSchema : Nul Ou Caractere, NomTable : Nul Ou Caractere)
/**************************************************************************************************************************/
Debut Ecran.Ecrire("ListerClesPrimaires");
Ecran.Ecrire("-------------------");
RequeteSql ClesPrimairesSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesClesEtrangeres(NomCatalogue : Nul Ou Caractere, NomSchema : Nul Ou Caractere, NomTable : Nul Ou Caractere)
/***************************************************************************************************************************/
Debut
Ecran.Ecrire("ListerClesEtrangeres");
Ecran.Ecrire("--------------------");
RequeteSql ClesEtrangeresSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesIndex(NomCatalogue : Nul Ou Caractere, NomSchema : Nul Ou Caractere, NomTable : Nul Ou Caractere)
/******************************************************************************************************************/
Debut
Ecran.Ecrire("ListerClesIndex");
Ecran.Ecrire("---------------");
RequeteSql IndexSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesTables()
/*************************/
Debut
Ecran.Ecrire("ListerTables");
Ecran.Ecrire("============");
RequeteSql TablesSql ConnexionSql MaConnexionSql Fin Si Fin RequeteSql
Fin Procedure

Procedure ListerLesParametres(NomCatalogue : Nul Ou Caractere, NomSchema : Nul Ou Caractere, NomProcedure : Nul Ou Caractere)
/***************************************************************************************************************************/
Variable
/******/
Debut
Ecran.Ecrire("ListerParametres");
Ecran.Ecrire("---------------");
RequeteSql ParametresProceduresSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Procedure ListerLesProcedures()
/*****************************/
Debut
Ecran.Ecrire("ListerProcedures");
Ecran.Ecrire("================");
RequeteSql ProceduresSql ConnexionSql MaConnexionSql Fin RequeteSql
Fin Procedure

Principal
/*******/
Debut
Si MaConnexionSql.ListerCataloguesSupporte Alors Sinon Fin Si
Ecran.Ecrire(");
Si MaConnexionSql.ListerSchemasSupporte Alors Sinon Fin Si
Ecran.Ecrire(");
Si MaConnexionSql.ListerTablesSupporte Alors Sinon Fin Si
Ecran.Ecrire(");
Si MaConnexionSql.ListerProceduresSupporte Alors Sinon Fin Si
Ecran.Ecrire(");
Fin Principal

Résultat de l'exécution

ListerCatalogues() non supporte. ListerSchemas ============= - scott - - upsmss - ListerTables ============ - scott - dept - Table - ListerColonnes -------------- deptno - Entier(4) - dname - Caractere(14) - loc - Nul Ou Caractere(13) - ListerClesPrimaires ------------------- PK_Dept - Unique - deptno - 1 ListerClesEtrangeres -------------------- ListerClesIndex --------------- PK_Dept - Unique - deptno - 1 ----------- - scott - emp - Table - ListerColonnes -------------- empno - Entier(4) - ename - Caractere(10) - job - Nul Ou Caractere(9) - mgr - Nul Ou Entier(4) - hiredate - Nul Ou Date(8) - sal - Nul Ou Reel(4) - comm - Nul Ou Reel(4) - deptno - Nul Ou Entier(4) - ListerClesPrimaires ------------------- PK_Emp - Unique - empno - 1 ListerClesEtrangeres -------------------- FK_Emp_Deptno - deptno - dept.deptno ListerClesIndex --------------- PK_Emp - Unique - empno - 1 ----------- - scott - emp_desc - Table - ListerColonnes -------------- empno - Nul Ou Entier(4) - description - Nul Ou Caractere(16) - ListerClesPrimaires ------------------- ListerClesEtrangeres -------------------- FK_Emp_Desc_Empno - empno - emp.empno ListerClesIndex --------------- ----------- - scott - emp_pict - Table - ListerColonnes -------------- empno - Nul Ou Entier(4) - picture - Nul Ou Binaire(16) - ListerClesPrimaires ------------------- ListerClesEtrangeres -------------------- FK_Emp_Pict_Empno - empno - emp.empno ListerClesIndex --------------- ----------- - scott - s_dept - Synonyme - - scott - s_emp - Synonyme - - scott - v_dept - Vue - - scott - v_emp - Vue - ListerProcedures ================ MaFonction - Fonction - ListerParametres --------------- - Entier(4) - Sortie - @NumeroDepartement - Entier(4) - Entree - ----------- MaProcedure - Procedure - ListerParametres --------------- @NumeroDepartement - Entier(4) - Entree - @SalaireMin - Reel(4) - Sortie - @SalaireMax - Reel(4) - Sortie - ----------- nbparameters - Fonction - ListerParametres --------------- - Entier(4) - Sortie - @Object_Id - Entier(4) - Entree - -----------