döngüde ki problem?

[pelitt]

Kod: Tümünü seç

f combobox1.Text='Tüm Üyeler' then
 for s:=1 to 5 do
begin

xaidat:=Edit1.Text;
xyakit:=Edit2.Text;
xay:=ComboBox3.Text;
xyil:=ComboBox2.Text;
ekle:='INSERT INTO hesap (kim,aidat,yakit,ay,yil) values'+'('+IntToStr(s)+','+QuotedStr(xaidat)+','+QuotedStr(xyakit)+','+QuotedStr(xay)+','+QuotedStr(xyil)+')';
ZQuery2.SQL.Text:=ekle;  //Zquery1--->Zeos Bileşeni
ZQuery2.ExecSQL;
ZQuery1.Close;
ZQuery1.Open;
DBGrid2.Visible:=false;
dbgrid1.Visible:=true;

arkadaşlar for s:=1 to 5 do buradaki 5 i üye tablomdaki kayıt sayısı kadar yapacağım nasıl yaparım selamlar

[Lost Soul]

Kod: Tümünü seç

f combobox1.Text='Tüm Üyeler' then
 for s:=1 to 5 do
begin

xaidat:=Edit1.Text;
xyakit:=Edit2.Text;
xay:=ComboBox3.Text;
xyil:=ComboBox2.Text;
ekle:='INSERT INTO hesap (kim,aidat,yakit,ay,yil) values'+'('+IntToStr(s)+','+QuotedStr(xaidat)+','+QuotedStr(xyakit)+','+QuotedStr(xay)+','+QuotedStr(xyil)+')';
ZQuery2.SQL.Text:=ekle;  //Zquery1--->Zeos Bileşeni
ZQuery2.ExecSQL;
ZQuery1.Close;
ZQuery1.Open;
DBGrid2.Visible:=false;
dbgrid1.Visible:=true;

arkadaşlar for s:=1 to 5 do buradaki 5 i üye tablomdaki kayıt sayısı kadar yapacağım nasıl yaparım selamlar

Kod: Tümünü seç

 for s:=1 to tablom.recordcount do
begin

veya

Kod: Tümünü seç

tablom.first;
while not tablom.eof do
begin
....
....
tablom.next;
end;

ayrıca soruyu delphi bölümünde sormalıydınız.

[pelitt]

hallettim teşekür ettim sağolun