DataSetRésolu

Question

bonjour,

Voila je vous explique: J'ai une procedure qui doit me permettre de r&#233;cup&#233;rer des donn&#233;es &#224; partir d'une base de donn&#233;es.
DAns cette proc&#233;dure j'ai une requete qui va chercher des donn&#233;es dans VUE ( vue dans MySql)
Ensuite Pour chaque  ligne que j'ai obtenu,
   Je lance une autre requete qui va me chercher Un seul enregistrement

Voici ma procedure
procedure TFrmDonInfos.ChargerDbGrid(Planun:string;plandeux:string);
var nblig,i:integer;
  Zone : string;
begin


  Vue.Active:=false;
  Vue.CommandText:='SELECT * FROM vue;
  Vue.Active:=true;


  nblig:=vue.RecordCount;


  for i:=1 to nblig do
  begin
    Zone:=Vue.FieldByName('Nom_Zone').AsString ;


    ADODataSet.Active:=false;
//j'execute ma seconde requete qui est doit remplir mon DBGrid
    ADODataSet.CommandText:='SELECT DISTINCT v.libelle, (SELECT montant FROM vue WHERE date=2001 AND Nom_zone='''+Zone+''' AND NoPlan In(''ALL'','''+Planun+''','''+Plandeux+''')),';
    ADODataSet.CommandText:=ADODataSet.CommandText+' (SELECT montant FROM vue WHERE date=2002 AND Nom_zone='''+Zone+''' AND NoPlan In(''ALL'','''+Planun+''','''+Plandeux+''')), ';
    ADODataSet.CommandText:=ADODataSet.CommandText+' (SELECT montant FROM vue WHERE date=2003 AND Nom_zone='''+Zone+''' AND NoPlan In(''ALL'','''+Planun+''','''+Plandeux+''')), ';
    ADODataSet.CommandText:=ADODataSet.CommandText+' (SELECT montant FROM vue WHERE date=2004 AND Nom_zone='''+zone+'''AND NoPlan In(''ALL'','''+Planun+''','''+Plandeux+''')) FROM vue v';
    ADODataSet.CommandText:=ADODataSet.CommandText+' WHERE v.Nom_Zone='''+zone+''';';
 //fin de ma requete   
ADODataSet.Active:=true;


   vue.Next;
  end;


end;

Vue que ma requete qui est li&#233; au DBGrid ne me renvoie qu'un seul enregistrement ,  A la fin de cette procedure, le DBGrid contient uniqument le dernier enregistrement ( et s'est tout).
Moi je voudrais qu'une fois ma seconde requete effectuer, que le DBGrid garde les donn&#233;es, que je passe &#224; la ligne suivant et ainsi de suite!

Pouvez vous m'aider car je ne m'en sort plus tout seul !
Merci

Mo

vincentstryckmans · Accepted Answer

Bonjour,



Essaie de r&#233;&#233;crire tes deux requ&#234;tes en une seule en faisant un group by sur zone;



Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

develomagaly · Answer

y a personne qui aurait une solution pour moi?

DataSet

2 réponses

Votre réponse

Discussions similaires