veritabanından treeview'e ekleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
techmaster
Üye
Mesajlar: 52
Kayıt: 08 Ağu 2003 03:24
Konum: Adana

veritabanından treeview'e ekleme

Mesaj gönderen techmaster »

s.a.
artık bende bir firebird kullanıcısıyım :D

ilk programımı hazırlamaya başladım ve sorunlar çıkmaya başladı hemen..

amacım veritabanındaki isimleri treeviewdeki baş harfinin altına koymak...
bir döngüyle treeviewe a,b,c,d,....y,z yazdırdım ve bunların altınada isimleri yazdırmak istiyorum..örneğin a harfinin altına ahmet,ayşe gibi

formda ibdatase, ibdatabase, ibtransaction, datasource kullandım...
aşağıdaki sorguyu çalıştırıp sonuçlarını bir döngüyle yazdırmak istiyorum

Kod: Tümünü seç

   ibdataset1.Close;
   ibdataset1.SelectSQL.Clear;
   ibdataset1.SelectSQL.Add('SELECT ADI');
   ibdataset1.selectsql.add('FROM GRUP');
   ibdataset1.SelectSQL.Add('WHERE GRUP LIKE '''+harf+'%''');
   ibdataset1.Open;
burdan dönen sonuçları nasıl alabilirim...birde mesela bu sorgu sonucunda birden fazla satır seçilebilir onu nasıl ayırıp ekleyebilirim...


birde bu ibtransaction tam anlamıyla ne işe yarıyor...kısaca özetleyebilirmisiniz..forumdaki yazıları ve sitedeki makaleyi okudum ama açıkçası tam oturtamadım mantığını...

şimdiden teşekkürler, herkese iyi çalışmalar...
master of technology

http://www.cuemot.org
Kullanıcı avatarı
vedatkaba
Kıdemli Üye
Mesajlar: 866
Kayıt: 06 Oca 2004 06:50
Konum: DARICA/GEBZE

Mesaj gönderen vedatkaba »

Bence TreeView de göstermek istediklerini IBQuery le al ve döngü aç sonrada treeview kayıt eklenecek biçimde döngü içinden dağıtarak kaydet.
Umarım anlatabilmişimdir.Kodu sen bulursun çalışarak.kolay gelsin.

Mesela

Kod: Tümünü seç

Ibquery1.close;
İbqoery1.sql.clear;
ibquery1.sql.add('Select * from tablo')///Tüm kayıtları seçti
ibquery1.open;
//////bundan sonra 
ibquery1.first;//seçilenlerin ilk kayda konumlan
while not ibquery1.eof do///döngüyü aç
begin
ve treeview e ekleme kodların./////*
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.

***********************************
Kullanıcı avatarı
techmaster
Üye
Mesajlar: 52
Kayıt: 08 Ağu 2003 03:24
Konum: Adana

Mesaj gönderen techmaster »

çok teşekkürler vedatkaba....yönlendirmeniz ve forumda biraz daha araştırmam sonucu olayı çözdüm...belki birinin işine yarar diye kodu veriyorum...

Kod: Tümünü seç

   ibdataset1.Close;
   ibdataset1.SelectSQL.Clear;
   ibdataset1.SelectSQL.Add('SELECT ADI');
   ibdataset1.selectsql.add('FROM GRUP');
   ibdataset1.SelectSQL.Add('WHERE ADI LIKE '''+harf+'%''');
   ibdataset1.Open;
   dugum:=treeview1.Items.Add(Nil,harf);
   while not ibdataset1.Eof do
    begin
     treeview1.Items.AddChild(dugum,ibdataset1.Fields[0].AsString);
     ibdataset1.Next;
    end;
iyi çalışmalar...
master of technology

http://www.cuemot.org
Kullanıcı avatarı
tuanna
Üye
Mesajlar: 582
Kayıt: 06 Ara 2004 05:01
Konum: Ankara
İletişim:

Mesaj gönderen tuanna »

bunun için aslında dev express in bir bileşen var db treewiev diye
Siz hayal edin...Biz yapalım TuannaSoft...
Cevapla