salut a tous
je suis sur un programme sur delphi et j'ai une base de donnée et je veut calcule un moyen pour tous les enregistrement dans cette table en un clic en boutton cad de parcourir toute la table
j'ai fait ce code mais il me donne rien
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
procedure TEmployeur.sButton1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Text:='SELECT * FROM "C:\Program Files\Agroemballe\base\entreprise.db"';
open;
while not eof do
begin
dbedit7.Text:=floattostr((strtofloat(dbedit1.Text)+strtofloat(dbedit2.Text)+strtofloat(dbedit3.Text)+strtofloat(dbedit4.Text)+strtofloat(dbedit5.Text)+strtofloat(dbedit6.Text)));
dbedit9.Text:=floattostr((strtofloat(dbedit7.Text)*strtofloat(dbedit8.Text)));
next;
end;
end;
end;
si quelqu'un peur m'aidé c trés gentil a vous
merci