HELP!!! Stringgrid et requete, comment prendre une valeurs à une d'un champs?

Question

Hello, alors apr&#232;s qu'on m'est aid&#233;, &#224; qui d'ailleurs je remercie du fond du coeur, mais je suis toujours bloqu&#233; lol... ceux qui m'on aid&#233; vont se rappell&#233; de mon probl&#232;me de requ&#234;te. Alors mtn c'est fait, &#231;a marche, mais je par exemple dans la table XXX je voudrai que mon stringgrid affiche sur chaque ligne une des valeurs du champs qui est dans la base.

procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT CodeArticleFour AS Codefour FROM articlesliaisonfour WHERE NoFournisseur=230');
  SQLQuery1.Open;
  SQLQuery1.First;
  for j:=0 to 1203 do
  Stringgrid2.Cells[0,j+1]:=SQLQuery1.fieldbyname('Codefour').AsString;
end;

J'utilise une boucle pour rentr&#233; sur chaque ligne une valeurs, mais la question, est comment faire pour que lors de la requ&#234;te il ne prenne qu'un r&#233;sultat et passe au suivant apr&#232;s, pour le moment comme &#231;a, me prends toujours le m&#234;me... 

Merci d'avance

jmp77 · Answer

Hello,



Question bete pourquoi tu n'utilises pas une dbgrid au lieu d'une stringrid pour afficher ta table?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Gokuan · Answer

Hello, simplement parce que j'ai essay&#233; de l'utilis&#233;, mais je sais pas comment faire, pour l'utilis&#233;... donc si qqun pourrait m'&#233;claircir &#231;a serait gentil, je bloque l&#224; dessus depuis un moment... Alors voil&#224;, ou me montr&#233; la r&#233;ponse en l'expliquant, &#231;a serait sympa. Merci beaucoup, c important.

jmp77 · Answer

Alors quel type de base utilises tu et avec quels compos tu te connectes dessus?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Gokuan · Answer

Re hello lol

Alors moi j'utilise une base MYSQL. Et comme composant pour me connecter, j'utilise dbexpress en l'occurence, TSQLconnection. 

si t'as besoins de plus d'info, je te les donnes. 

merci d'avance

cs_Gokuan · Answer

lol, je comprends rien

WinLin · Answer

pour que tu puisse remplire une stringgrid tu ecrit une boucle pour remplire horizontalement
et une autre boucle pour remplir le tableau verticalement 

voici quelque ligne de code pour te donn&#233;e une id&#233;e

************************************************************************
begin
  // remplissage de la stringgrid de la form
// voici les noms des colonnes
xcpteur:=1;
     stringgrid1.Cells[1,0]:='Serie';
     stringgrid1.Cells[2,0]:='Description';
     stringgrid1.Cells[3,0]:='Taille';
     stringgrid1.Cells[4,0]:='Emplacement';
     stringgrid1.Cells[5,0]:='Quantite';
     stringgrid1.Cells[6,0]:='Prix';
// teste interne a mon code 
if FileExists('L:\Gestion-stock\data-fic\LISTTEMP.TMP') then
  begin
     assignFile(fictemp,'L:\Gestion-stock\data-fic\LISTTEMP.TMP');
     reset(fictemp);
     // boucle pour remplir la stringgrid


     while (not eof (fictemp)) do
        begin
        read(fictemp,listtmp);
        stringgrid1.Cells[1,xcpteur]:=listtmp.serie;
        stringgrid1.Cells[2,xcpteur]:=listtmp.description;
        stringgrid1.Cells[3,xcpteur]:=listtmp.taille;
        stringgrid1.Cells[4,xcpteur]:=listtmp.emplacement;
        stringgrid1.Cells[5,xcpteur]:=listtmp.qt;
        stringgrid1.Cells[6,xcpteur]:=listtmp.prix;
        // ajouter une ligne au tableau 
        xcpteur:=xcpteur+1;
        stringgrid1.RowCount:=xcpteur;
        end;
      closefile(fictemp);
     end;
   
end;

WinLin · Answer

heu non je me suis trompe desoler juste une boucle avec un compteur 
pour remplisr ligne par ligne et tu incremente un compteur pour avancer dans ton tableau

nyrsitraka10 · Answer

Voici un exemple de code, en principe il faut parcourrir les enregistrements, après il suffit d'afficher les résultats. 

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
    With ADOQuery1 Do
    Begin
        close;
        sql.clear;
        sql.add('SELECT * FROM table');
        open;
            i:=1;
            if recordcount>0 then begin
              While not EOF Do
              Begin
                StringGrid1.Cells[1, i]:=fieldbyname('id').AsString ;
                inc(i);
                next;
              end;
              First;
            end;
    End;
end;

HELP!!! Stringgrid et requete, comment prendre une valeurs à une d'un champs?

8 réponses

Votre réponse

Discussions similaires