Procedure PreparerSql();
Cette méthode doit être appelée après la déclaration des paramètres et des résultats du bloc Sql, réalisées par l'appel à la méthode DeclarerParametre, et avant l'une des exécutions, réalisées par l'appel à la méthode ExecuterSql.
Si la méthode échoue, alors l'exception ErreurOrdreSql est envoyée.
Principal
/*******/
Variable
/******/
MaConnexionSql : Nul Ou ConnexionOracle;
MonBlocSql : Nul Ou IBlocSql;
NumeroDepartement : Entier;
NomEmploye : Nul Ou Caractere;
DateEmbauche : Nul Ou Date;
NumeroEmploye : Nul Ou Entier;
Salaire : Nul Ou Reel;
Debut
...
MonBlocSql=MaConnexionSql.CreerBlocSql(
SELECT ename, hiredate, empno, sal INTO ${NomEmploye}, ${DateEmbauche}, ${NumeroEmploye}, ${Salaire} FROM emp WHERE deptno=${NumeroDepartement}; \
DELETE FROM emp WHERE deptno=100+${NumeroDepartement};");
MonBlocSql.DeclarerParametre("NumeroDepartement", Entier);
MonBlocSql.DeclarerParametre("NomEmploye", Caractere, ParametreSortie, 20);
MonBlocSql.DeclarerParametre("DateEmbauche", Date, ParametreSortie);
MonBlocSql.DeclarerParametre("NumeroEmploye", Entier, ParametreSortie);
MonBlocSql.DeclarerParametre("Salaire", Reel, ParametreSortie);
MonBlocSql.PreparerSql();
MonBlocSql.EcrireParametre("NumeroDepartement", 10);
MonBlocSql.ExecuterSql();
MonBlocSql.LireParametre("NomEmploye", NomEmploye);
MonBlocSql.LireParametre("DateEmbauche", DateEmbauche);
MonBlocSql.LireParametre("NumeroEmploye", NumeroEmploye);
MonBlocSql.LireParametre("Salaire", Salaire);
...
Fin Principal
| - | - | - | - | - | - | - | - | - |