cs_Gokuan
Messages postés51Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention17 novembre 2008
-
9 mars 2005 à 11:16
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
9 mars 2005 à 22:15
hello, alors j'ai créer un stringgrid2, et je voudrai affiché les valeurs des champs dans ce même stringrid2.
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
For i:=0 to 1203 do
Begin
StringGrid2.Cells[0,i]:=SQLQuery1.SQL.Add('SELECT NoFournisseur,CodeArticleFour,CodeArticleIntern FROM Articlesliaisonfour WHERE Nofournisseur=230');
end;
end;
Mais le problème c'est qu'il me dit que type incompatible string et integer, que dois-je faire???
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 9 mars 2005 à 22:15
procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
begin SQLQuery1.Close;
SQLQuery1.SQL.Text := 'SELECT COUNT(CodeArticleFour) AS Resultat FROM articlesliaisonfour WHERE NoFournisseur=230';
SQLQuery1.Open;
Stringgrid2.Cells[0,1]:= SqlQuery1.FieldByName('Resultat').AsString;
end;
cs_Gokuan
Messages postés51Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention17 novembre 2008 9 mars 2005 à 15:35
Oki, j'ai compris plus ou moins, mais le problème est le suivant, comment je fais pour récupéré ma requête, enfin son résultat plutôt???
J'ai testé ce bout de code, il me fait plus d'erreur mais ne marche pas quand même, il m'affiche que des '0'.
procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
somme : variant;
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
Somme:=SQLQuery1.SQL.Add('SELECT COUNT(CodeArticleFour) FROM articlesliaisonfour WHERE NoFournisseur=230');
SQLQuery1.Open;
//for j:=0 to 1203 do
Stringgrid2.Cells[0,1]:=somme;
end;