combobox1'e veritabanından veri atmak

[AliRiza]

Combobox1'e formun showunda veritabanından veriyi aşağıdaki gibi atıyorum.Elist error List index out of bounds diye bir hata ile karşılaşıyorum.Sebebi nedir?Yardımlarınızı bekliyorum..
adoquery2.sql.Clear;
adoquery2.close;
adoquery2.SQL.Add('select group from group1 order by grid');
adoquery2.Open;
while not adoquery2.Eof do
begin
combobox1.Items.Add(adoquery2.Fields[0].value);
adoquery2.Next;
end;
combobox1.ItemIndex:=0;
adoquery2.Parameters[0].Value:=combobox1.Items[0];
adoquery2.Open;
end;

[aslangeri]

S.A.
kodlarını code tagı içerisinie alırsan daha okunaklı olur.

Tablonda kayıt varmı.
eğer tabloda kayıt yoksa comboboxa item eklemediği için items[0] hata döndürecektir.

ya tabloda kayıt kontrolu yapacaksıni yada trty except ile kontrol edeceksin.
bir ihtimalde adoquery nin parametresi varmı?

Kolay gelsin.

[AliRiza]

Tabloda kayıt var dbgrid'e listeleyebiliyorum.Şu hatayı lütfen çözelim..

[naile]

Kod: Tümünü seç

adoquery2.Parameters[0].Value

Sanırım hatayı bu verdiriyor. Parametren var mı?

[fahrettin]

Satir satir islettignizde hatayi nerede veriyor?
Hatayi verdigi yerde ekrana Combobox1.items.count degerini showmessage ile gosterin mesela. Muhtemelen ya hic kayit yok ya da ulasmak istediginiz item yok... Bu hata mesajının tek sebebi budur zira....

[oguzozturk74]

Naile hanımın dediği gibi Queryinde bir parametre belirtmemişsin ki, nerden bilecek ?

[gkimirti]

sanırım baska bir query ye parametre olarak gonderecektin
adoquery3 gibi,yoksa parametre kullansan bile ne ise yarayacak anlamadım dogrusu, query zaten open edilmis.

[Fatih!]

adoquery2.sql.Clear;
adoquery2.close;
end;

query önce close sonra clear yapıllmalı

[algorian]

Kod: Tümünü seç

adoquery2.close; 
adoquery2.sql.Clear; 
adoquery2.SQL.Add('select group from group1 order by grid'); 
adoquery2.Open; 
adoquery2.first; // bu önemli !!!
while not adoquery2.Eof do 
begin 
  combobox1.Items.Add(adoquery2.Fields[0].value); 
  adoquery2.Next; 
end;
if  combobox1.ItemCount > 0 then
begin
  combobox1.ItemIndex:=0; 
  adoquery2.Parameters[0].Value:=combobox1.Items[0]; 
  adoquery2.Open;
end;
end;

[/code]

Bir de bunu dene...