Table'ı listbox'a aktarma

[Hancet]

s.a. arkadaslar

Paradox veri tabanı kullanıyorum.
Doğum tarihi hatırlatan bi program yapacağım inşallah
Arkadaşların doğum tarihlerini gün,ay,yıl olarak ayrı ayrı girdim.
Bu kayıtları listbox’a aktarıp daha sonrada doğum günü yaklaşan kişiyi listbox’ta en üste çıkarmak istiyorum

Bana kayıtları listbox’a aktarmayı ve sistemin tarihini nasıl bulacağımı anlatırsanız sevinirim.
Kolay gelsin

[Uğur1982]

merhaba;

viewtopic.php?t=3936&highlight=table+listbox

Sistem tarihi:

Kod: Tümünü seç

ShowMessage(Datetostr(date));

iyi akşamlar...

[Hancet]

S.A
verdiğin linkte listbox’tan vazgeçip grip kullanmışlar. Çünkü listbox’ı çalıştıramamışlar bende denedim çalışmadı. Ayrıca örnekler SQL ve ADO için. Aslında grid işimi gördü ama ben listbox’a nasıl ekleneceğinide öğrenmek istiyorum. Bu arada tarih için sağol

[oguzozturk74]

Kod: Tümünü seç

Listbox1.Items.Add(Tablo1Alan1.AsString);

[Hancet]

S.A.
Oğuz abi verdiğin bilgi için sağol ama o komut sadece aktif olan kaydı listbox’a aktarıyor. Ben vt’de bulunan tüm kayıtların aktarılmasını istiyorum.

Pascalda seek(dosyaadi,3) deyince 3. kayıt aktif oluyordu. Ben 3 yerine önce filesize() ile dosyadaki kayıt sayısını buluyor sonra da o sayıya kadar döngü kurup döngünün döndürdüğü değişkeni de 3 yazdığım yere yazınca tüm kayıtlar ile ilgili işlem yapabiliyordum. Mesela tüm kayıtları listeleyebiliyor veya kayıtların kütüklerini değiştirebiliyordum.
(Ne günlerdi o günler yaa )
Delphi’de de buna benzer bi kod var mı? Hem vt’de bulunan kayıt sayısını verecek hemde istediğim kayıttan diğer istediğim kayıt arasında ki kayıtlar ile işlem yapabileceğim.
Umarım Anlatabilmişimdir
Kolay Gelsin

[Uğur1982]

Normal Bir listbox ın içine kayıtları okuyarak atabilirsin.
Bir Query ile

Kod: Tümünü seç

     query.sql.text:='select ad from table';
     query.open;
     while not query.eof do begin
            listbox1.items.add(queryad.asstring);
            listbox1.items.add(querysoyad.asstring);   
            ---------------------     
           ---------------------------//Table alanı kadar gider
            query.next;
     end;

listboxa bu şekilde alabilrsin.

Zaten olayı @P206 anlatmış.Sadece yapman gereken +1

Kod: Tümünü seç

Delphi’de de buna benzer bi kod var mı? Hem vt’de bulunan kayıt sayısını verecek hemde istediğim kayıttan diğer istediğim kayıt arasında ki kayıtlar ile işlem yapabileceğim. 

viewtopic.php?t=8882&highlight=count

iyi günler...