Bu döngü neden çalışmaz ki ?

[sako]

Arkadaşlar hayırlı ramazanlar öncelikle.
Aşağıdaki döngü ile şunu yapmak istiyorum.
Listboxa 207 ye kadar sayı atıyorum. Her kayıtta sırasıyla listboxtan bir değeri kaydetmek istiyorum. yani bir kayıt üstündeyken listboxu baştan sona tarayacak sonraki kayıtta aynısını yapacak ve bu arada sorgum tutuyosa tableye o listbox değerini atayacak. Ama bu döngüde onu yapmıyor. Ekisk bişeymi var yoksa fazladan mı bişey yazmışım bulamadım

ADOTable1.First;
while not ADOTable1.Eof do begin
for i:=0 to 207 do begin
ListBox1.ItemIndex:=i;
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from okullar where kimlik like ''%'+ListBox1.Items+'%''');
aDOQuery1.open;
if (ADOQuery1KURUM_tipi.Text='A') then begin
ADOTable1.Edit;
ADOTable1atandigi_kurum_id.Text:=ListBox1.Items;
// ShowMessage(ListBox1.Items);
end;
ADOTable1.Next;
end;

[emin_as]

ADOTable1.Post; eksik.

[sako]

Yok benim progblemim kaydetmekle alakalı değil. Döngü ile.

[thelvaci]

ListBox1.ItemIndex := i; yazdığınız halde Listbox üzerinde bir hareket gerçekleşmiyor ise, yada bu ifade münasebeti ile hata alıyorsanız; seçim için aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç

ListBox1.Perform(LB_SETCURSEL, i, 0);

[emin_as]

Döngü mü çalışmıyor, yoksa table a bilgiler mi aktarılmıyor?
İki tane döngün var, bir tanesi while ile table i geziyor, digeri ise içeride listbox ı geziyor.
Hangisinde ne gibi bir sorun var.

[unicorn64]

bence asıl ne yapmak istediğinizi yazın, alternatif çözümler gelebilir...

[tinekci]

ADOTable1 kayıt sayısı 0 ise dögü hiç çalışmaz

[qamyoncu]

ADOTable1.First;
while not ADOTable1.Eof do begin
for i:=0 to 207 do begin
ListBox1.ItemIndex:=i;
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from okullar where kimlik like ''%'+ListBox1.Items+'%''');
aDOQuery1.open;
if (ADOQuery1KURUM_tipi.Text='A') then begin
ADOTable1.Edit;
ADOTable1atandigi_kurum_id.Text:=ListBox1.Items;
// ShowMessage(ListBox1.Items);
end;
ADOTable1.Next;
end;



endleri unutmamak gerek tabii..
bir de CODE taglarını kullanmak..

[sako]

Tşkler...

ATATÜRK'ün bizzat öğrettiği Türkçe yi yazmaya utanıyor yada üşeniyorsanız hiç yazmayın daha iyi
@freeman35