Discussion :

[vbcasimir]

Bonjour ,

base de donnée : Firebird

contexte :

Je voudrais appeler une procédure stockée qui retourne un select

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
DataModule2.SQLConnection1.Open;
        memo.Lines.Clear;
        DataModule2.SQLStoredProc1.StoredProcName := 'SELECT_EMPLOYE';
        //DataModule2.SQLStoredProc1.ParamByName('firstname').AsString := 'casimir01';
        DataModule2.SQLStoredProc1.ExecProc;
 
        while not DataModule2.SQLStoredProc1.Eof do
        begin
        memo.Lines.Append (DataModule2.SQLStoredProc1.ParamByName('VFIRSTNAME').AsString);
        DataModule2.SQLStoredProc1.Next;
        end;
 
        DataModule2.SQLStoredProc1.Close;
        DataModule2.SQLConnection1.Close;

je pensais que cela pourrait fonctionner mais apparemment même si j'ai pas d'erreur il n'y a pas de résultat en sortie dans le composant "memo"

(je précise la procédure stockée fonctionne je l'ai tester à part ...)

Merci

[BONNEFOI Patrick]

Salut,

tu dis pas la méthode d'acces a ta base par contre

il faut que tu fasses

Code :

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

1
2
3
4
5
6
 
DataModule2.SQLStoredProd1.Active  := True;
 
ou 
 
DataModule2.SQLStoredProd1.Open;

Le ExecSQL ne sert que dans le cas d'un ordre Insert, Update ou Delete, ou une exécution sans retour de données.

A+