Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Binaire Sortie);
Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Caractere Sortie);
Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Date Sortie);
Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Entier Sortie);
Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Enumere Sortie);
Procedure LireParametre(NomParametre : Nul Ou Caractere, Valeur : Nul Ou Reel Sortie);
Si le nom du paramètre est Nul alors le paramètre est lu anonymement par ordre de déclaration. En ce cas, tous les paramètres doivent être énumérés dans l'ordre, même ceux d'entrée.
La lecture des paramètres doit s'effectuer après l'une des exécutions du bloc Sql, 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
| - | - | - | - | - | - | - | - | - |