Discussion :

[davebarns]

Salut a tous , j ais um probleme avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
with datamodule1.ADOQuery do begin
 
                    close;
                   SQL.Clear;
 
                       SQL.add('select * from Matable where ID =:idt') ;
                         Parameters.ParamByName('idt').Value := IDMatable;
                      open;
                       Active :=true;
                           First;
                           while not Eof do begin
                               Var :=  fieldbyname('MonChamp').asstring;
                               next;
                             end;

ma variable Var n est actualizé qu au final de ma requete , comment je pourrais garder les divers retour de Monchamp sachant que j ais plusieurs fields.

Merci a tous

[Aka Guymelef]

Bonjour et bienvenu sur les forums de Développez.com

Je dirais que la meilleure solution à adopter pour résoudre votre problème dépends surtout de l'utilisation que vous voulez faire des données après.

[davebarns]

Merci

je voudrais garder ces donnes pour les utiliser apres dans la suite de mon apli , j

ais essayer dans ume Tstringlist mais ça marche pas :S

a+

[ShaiLeTroll]

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
procedure GetChampValues(TableChampValues: TStrings; const IDMatable: Integer);
begin
  with DataModule1.ADOQuery do // DataModule1, il faut lui choisir un autre nom !
  begin
    Close();
    SQL.Clear();
    SQL.Add('select * from Matable where ID =:idt') ;
    Parameters.ParamByName('idt').AsInteger := IDMatable;
    Open(); // cela Active !
    First;
    while not Eof do 
    begin
      TableChampValues.Add(FieldByName('MonChamp').AsString);
      Next();
    end;
  end;
end;

avec un Mémo

Code :

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

1
2
3
4
procedure TFormTest.btnGetChampValues(Sender: TObject);
begin
  GetChampValues(MemoValues.Lines, 1);
end;

avec une Liste en mémoire (pour faire simple, un membre dans une forme)

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
24
25
26
27
type
  TFormTest = class(TForm)
  private
    FTableChampValues: TStringList;
  public
    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
    destructor Destroy; override;
  end;
 
constructor TFormTest.CreateNew(AOwner: TComponent; Dummy: Integer = 0); 
begin
  inherited CreateNew(AOwner, Dummy);
 
  FTableChampValues := TStringList.Create();
end;
 
destructor TFormTest.Destroy;
begin
  FTableChampValues.Free();
 
  inherited Destroy();
end;
 
procedure TFormTest.btnGetChampValues(Sender: TObject);
begin
  GetChampValues(FTableChampValues, 1);
end;

Sinon, "Comment recuperer plusieurs requetes? " ce n'est pas valable comme titre pour ce sujet mais plutôt "Comment recuperer plusieurs lignes dans une requete ? "

[davebarns]

Merci pour ton aide , desolé si le sujet n est pas 'bullet proof'

je vais essayer ta solution ..