Discussion :

[mohamed]

Bonjour,
j'ai un big problème:
j'ai la proc suivant qui ne me donne aucun résultat.
Et pourtant dans ma fiche j'ai un bouton:BitBtn1,un TEdit Edit1 ,un TADOConnection:ADOConnection1,un TListBox: ListBox1
Quand je clique sur le bouton,je devrais avoir le résultat de ma proc stock dans ma listbox

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
17
18
19
20
21
22
23
procedure TForm1.BitBtn1Click(Sender: TObject);
var chaine:string;
    ADOStoredProc:TADOStoredProc;
begin
  chaine := Edit1.Text;
  ADOStoredProc := TADOStoredProc.Create(nil);
  try
    ADOStoredProc.Connection := ADOConnection1;
    ADOStoredProc.ProcedureName := proc1';
    ADOStoredProc.Parameters.CreateParameter('p1',ftstring,pdinput,255,chaine);
    ADOStoredProc.Parameters.CreateParameter('p2',ftinteger,pdinput,MaxInt,1);
    ADOStoredProc.Parameters.CreateParameter('p3',ftinteger,pdinput,MaxInt,1);
    ADOStoredProc.Active := true;
 
    while not ADOStoredProc.Eof do
      begin
        ListBox1.Items.Add(ADOStoredProc.FieldValues['libelle']);
        ADOStoredProc.Next;
      end;
  finally
    ADOStoredProc.Free;
  end;
end;

Y'a_til un problème sur le code?

Merci...

[laayouni_mus]

Bonjour,
J'ai jeté un ptit coup d'oeil sur ton code, à mon avis il est bon, alors je me pose la question : est ce que t'as déjà un message d'erreur qui s'affiche?? sinon peut-tu nous faire parvenir aussi le code de la procedure, peut être que les paramètres ne sont pas bon, est ce que quand tu executes la procedure sur ton SGBD te donne quelque chose?

sinon petite remarque : essaie d'ajouter l'instruction suivante juste avant ta boucle while :

Code :

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

ADOStoredProc.First;

Bonne chance