combobax a değer alma

[Tropic]

Kod: Tümünü seç

ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select Distinct EvrakNo From DATALAR');
ADOQuery2.Open;
With AdoQuery2 do
    While NOT EOF do begin

**********************

    Next;
end;

Yukarıdaki Distinct le satırlardan filtrelediğim değerleri combobax ekleyeceğim. Yıldız koyduğum yerde kullanacağım combobax ekleme komutu nedir?

[aslangeri]

s.a.

Kod: Tümünü seç

combobox1.items.add(adoquery2.fields[0].asstring);
adoquery2.next;

bu kodları araya koyduğun zaman çalışması lazım.
field değerini almak için fieldbyname('evrakno').asstring i de kullanabilirdik.
kolay gelsin.

[mrmarman]

- Çok basit olacağından direkt kod yazmak istemedim. Önce TComboBox hakkında kısa bilgi verip kendiniz bulun istedim...

- Bu arada mesajı bir önzileme yapayım dedim @aslangeri cevap vermiş ama sonuçta bu bilgi de kavram adına arşivinizde bulunsun.

- TComboBox bir string liste kutusudur. ITEM özelliği ile satırlar ifade edilir. Diğer liste kutusuna örnek TListBox'dır.

- ITEMINDEX ile hangi satıra konumlandığını gösterir. Siz buna bir değer verirseniz o satıra konumlanmasını sağlarsınız.
- ITEMS[1] gibibir ifade ile 1 nolu sıra numaralı satıra erişirsiniz. Sıra numaraları 0'dan başlar. Bu örnekte ikinci satırdaki bilgiyi sonuç alırsınız.
- ITEMS.INDEXOF( 'aranan') özelliği ile içeriğini bildiğiniz bir satırın hangi numaralı satırda olduğunu bulmaya yarar.
- ITEMS.TEXT ile tüm içeriği blok olarak string tipinde almaya yarar.
- ITEMS.ADD('eklenecek içerik') ile dilediğiniz bir içeriği en sona eklersiniz.
- ITEMS.DELETE( n ) ile n numaralı satırı silersiniz. index 0'dan başlar tekrar hatırlatayım.
- ITEMS.INSERT( n, 'eklenecek içerik' ) ile n nolu sıraya dilediğiniz bir içeriği araya eklemek için kullanırız..

- Başarılar...