ConnexionSql ListeDeConnexionsSqlDefinitionDUneConnexionSqlOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin Version(
FormatBaseDeDonnees ChaineConnexion SynchroniserTransactions );Db2MaxDBMicrosoftSqlServerMySqlOdbcOraclePostgreSQL, ChaineDeConnexion, SynchroniserTransactionsRequeteSql ListeDeRequetesSqlDefinitionDUneRequeteSqlOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin VersionConnexionSql NomDeLaConnexionSqlStatique SourceDeLaRequeteSql ;ResultatSql ( ListeDeResultatsSqlDeclares ) TailleTableauxResultatsSqlDeclares, ResultatDeclare: TypeElementaire TailleMaxEstLongTailleMaxSql TailleMaximaleTailleTableauxResultatsSqlDeclares :
TailleTableauResultatSql TailleTableauResultatParametreSql ( ListeDeParametresSqlDeclares ) TailleTableauxParametresSqlDeclaresListeDeParametresSqlDeclares :
, ParametreSqlDeclare: TypeElementaire TailleMax PassageDuParametreTailleTableauxParametresSqlDeclares :
TailleTableauParametreSql TailleTableauParametreTempsDeGardeSql TempsDeGardeOrdreSql ListeDOrdresSqlDefinitionDUnOrdreSqlOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin VersionConnexionSql NomDeLaConnexionSqlStatique SourceDeLOrdreSql ;BlocSql ListeDeBlocsSqlDefinitionDUnBlocSqlOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin VersionConnexionSql NomDeLaConnexionSqlStatique ListeDeBlocsSqlStatiques Fin SqlStatique;;DernierEnregistrementSql NomDUneRequeteSqlNbEnregistrementsSql NomDUnOrdreOuDUneRequeteSqlNumeroEnregistrementSql NomDUneRequeteSqlPasDEnregistrementSql NomDUnOrdreOuDUneRequeteSqlPremierEnregistrementSql NomDUneRequeteSqlRequeteSql NomSqlOuDictionnaireFin RequeteSqlOrdreSql NomSql ParametresSqlTransmis TempsDeGardeTransmis SourceOrdreSqlBlocSql NomSql ParametresSqlTransmis TempsDeGardeTransmis SourceBlocSqlViderTableauParametreSql Expression ;CataloguesSql ConnexionSql ExpressionClesEtrangeresSql ConnexionSql ExpressionClesPrimairesSql ConnexionSql ExpressionColonnesTablesSql ConnexionSql ExpressionIndexSql ConnexionSql ExpressionParametresProceduresSql ConnexionSql ExpressionProceduresSql ConnexionSql ExpressionSchemasSql ConnexionSql ExpressionTablesSql ConnexionSql ExpressionNomSql :
ConnexionSql ExpressionResultatSql ( ListeDeResultatsSqlRecus ) TailleTableauxResultatsSqlRecus, ResultatSqlRecu: TypeElementaire TailleMax2EstLongTailleMaxSql ExpressionTailleTableauxResultatsSqlRecus :
TailleTableauResultatSql ExpressionParametreSql ( ListeDeParametresSqlTransmis ) TailleTableauxParametresSqlTransmisListeDeParametresSqlTransmis :
, ParametreSqlTransmis: TypeElementaire TailleMax2 PassageDuParametre ValeurParametreTransmis= ExpressionTailleTableauxParametresSqlTransmis :
TailleTableauParametreSql ExpressionTempsDeGardeSql ExpressionModeOptimisationSql Expression;SqlStatique SourceDeLaRequeteSql ;SqlDynamique Expression ;;SqlStatique SourceDeLOrdreSql ;SqlDynamique Expression ;;SqlStatique ListeDeBlocsSqlStatiques Fin SqlStatiqueSqlDynamique ListeDOrdresSqlDynamiques Fin SqlDynamique;;Inserer Dans NomDuType Valeurs ( ListeDExpressions ) ;Selectionner ListeDExpressionsDe ListeDeTypes
FiltrerPar
TrierPar
GrouperPar
FiltrerGroupesPar ;, NomDUnTypeAlias :
JointureExterne NomDUnType Alias Sur ExpressionFiltrerPar ListeDExpressionsTrierPar :
TrierPar ListeDExpressionsGrouperPar ListeDExpressionsFiltrerGroupesPar ListeDExpressionsMettreAJour NomDuType Affecter ( ListeDAffectations ) ;, Affectation= ExpressionSupprimer De NomDUnType
FiltrerPar ;
;
Source Composant "Exemple d'emploi d'Up ! Query" Version 4.0.0;
ConnexionSql
/**********/
MaConnexionSql (Oracle, "scott/tiger@ora10g_aix");
Procedure ListerEmployes(NumeroDepartement : Entier)
/**************************************************/
Debut
Ecran.Ecrire("Département "+Caractere(Entier));
Ecran.Ecrire("==============");
RequeteSql MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql (NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
ParametreSql (NumeroDepartement)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
Ecran.Ecrire(NomEmploye+" "+Caractere(DateEmbauche)+" "+Caractere(NumeroEmploye)+" "+Caractere(Salaire));
Fin RequeteSql
Fin Procedure
Principal
/*******/
OrdreSql
MonOrdreSql2 ConnexionSql MaConnexionSql
ParametreSql (NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, NumeroDepartement : Nul Ou Entier, Salaire : Nul Ou Reel)
SqlStatique
INSERT INTO emp(ename, hiredate, empno, sal)
VALUES (${NomEmploye}, ${DateEmbauche}, ${NumeroEmploye}, ${NumeroDepartement}, ${Salaire});
Debut
ListerEmployes(MaConnexionSql, 10);
ListerEmployes(MaConnexionSql, 20);
ListerEmployes(MaConnexionSql, 30);
OrdreSql ConnexionSql MaConnexionSql SqlStatique
INSERT INTO emp(ename, hiredate, empno, deptno, sal)
VALUES ('youpi3', sysdate, 9100, 40, 1100.00);
OrdreSql MonOrdreSql2 Parametre ("youpi4", DateSysteme(), 9101, 40, 1101.00);
MaConnexionSql.Valider();
Fin Principal