Discussion :

[lopezpacheco]

Bonjour,
J'utilise les composants UIB pour accéder à des procédures stockées d'une base Firebird 2.1.

Contexte: composant uibTansaction + uibQuery

Quand je sette mon composant uibquery => sql avec :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

select * from updateentreehomme

et que dans mon code d'exécution de la procedure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TbgaDataModule.UpdateEntreeGen(pDate: TDateTime; pStoreProc: string);
begin
  uibqUpdateentreeGen.BuildStoredProc(pStoreProc);
  uibqUpdateentreeGen.Params.ByNameAsDateTime['PDATE'] := pDate;
  uibqUpdateentreeGen.open;
  uibqUpdateentreeGen.Close(etmCommit);
end;

avec pStoreProc = updateentreehomme
tout ce passe correctement.

Par contre si je veux rendre générique le code de cette manière:

uibquery => sql : vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TbgaDataModule.UpdateEntreeGen(pDate: TDateTime; pStoreProc: string);
begin
  uibqUpdateentreeGen.BuildStoredProc(pStoreProc);
  uibqUpdateentreeGen.Params.ByNameAsDateTime['PDATE'] := pDate;
  uibqUpdateentreeGen.SQL.Clear;
  uibqUpdateentreeGen.SQL.Add(format('select * from %s',[pStoreProc]));
  uibqUpdateentreeGen.open;
  uibqUpdateentreeGen.Close(etmCommit);
end;

j'obtiens l'erreur :

Dynamic SQL Error
Input parameter mismatch for procedure updateentreehomme
unsuccessful execution caused by a system error that precludes successfull execution of subsequent statements
error code 249

en mode debug on a bien le uibqUpdateentreeGen.SQ.text identique !
Une idée avant que je multiplie 26 fois la même procédure et les mêmes composants?

[Cl@udius]

Salut

Nul besoin de renseigner la propriété SQL du TUIBQuery lors de l'appel à une procédure stockée (elle doit rester vide).

Ta procédure UpdateEntreeGen devrait plutôt ressembler à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TbgaDataModule.UpdateEntreeGen(pDate: TDateTime; pStoreProc: string);
begin
  with uibqUpdateentreeGen do
  begin
    BuildStoredProc(pStoreProc, False);
    Params.ByNameAsDateTime['PDATE'] := pDate;
    Execute;
    Close(etmCommit);
  end;
end;

Comme visiblement tes PS ne renvoient pas de jeux d'enregistrements, mets à False le paramètre forSelect de BuildStoredProc, et lance les par un Execute (et non Open).

@+ Claudius

[lopezpacheco]

Bonjour,
Merci pour cette réponse. cela fonctionne effectivement sans l'argument false de buildstoredproc.