[Yardım]  Accessten TreeView'e, Ürün Ağacı Yükleme

Birbirine bağlantılı dosyaları klasör ağacı yapısında göstermeye yarayan nesne.

Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#1)  cenk e. » 30 Ekm 2013 00:42

Merhaba, access tablosundaki ürün ağacındaki verileri treeview'e yüklemek istiyorum fakat

Kod: Tümünü seç
TreeView1.Nodes.Add Relative:=ks("urun_adi").Value, RelationShip:=tvwChild

satırında element not found hatası veriyor. Bu konuda yardımcı olabilirseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Enes Recep BAĞ tarafından, 30 Ekm 2013 09:40 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi.
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#2)  Tarkan VURAL » 30 Ekm 2013 10:14

TreeView başlığımızdaki örneklerden inceleme şansınız olursa orada Key, Text ekleme yöntemleri var. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#3)  cenk e. » 30 Ekm 2013 17:55

Tarkan Bey merhaba, yanlış anlamayın ama ben yine yapamadım. Bu yaptıklarımı da treeview başlığına bakarak yapmaya çalıştım ama açıkçası doğru mu onu da bilmiyorum.

Private Sub UserForm_Initialize()
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset

Set baglan = New ADODB.Connection
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ThisWorkbook.Path & "\tw.accdb"
Set ks = baglan.Execute("Select distinct(urun_adi) From urun_agaci")
Set ks1 = baglan.Execute("Select urun_parcasi From urun_agaci Where urun_adi='Dondurulmuş Biber'")
i = 1
j = 1
Do While Not ks.EOF
TreeView1.Nodes.Add
TreeView1.Nodes(i).Text = ks("urun_adi")
Do While Not ks1.EOF
'TreeView1.Nodes.Add Relative:=ks("urun_adi").Value, RelationShip:=tvwChild
Set nodX = TreeView1.Nodes.Add(ks("urun_adi").Value, tvwChild, ks1("urun_parcasi").Value, ks1("urun_parcasi").Value)
'TreeView1.Nodes(j).Text = ks("urun_adi")
'TreeView1.Nodes(j).Key = ks("urun_adi")
j = j + 1
ks1.MoveNext
Loop
i = i + 1
ks.MoveNext
Loop

Set baglan = Nothing
Set ks = Nothing
Set ks1 = Nothing

End Sub

Eski satırı bu satırla değiştirdim ama yine sonuç alamadım.
Set nodX = TreeView1.Nodes.Add(ks("urun_adi").Value, tvwChild, ks1("urun_parcasi").Value, ks1("urun_parcasi").Value)


Not: Eğer yardımcı olabilen olursa
Set ks1 = baglan.Execute("Select urun_parcasi From urun_agaci Where urun_adi='Dondurulmuş Biber'")
bütün ürünler için yapamadığımdan sadece dondurulmuş biber için yapmıştım, bunu tüm alt ürünler (ve onların alt ürünleri) için yapabilir miyiz?

Saygılarımla...
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#4)  Tarkan VURAL » 30 Ekm 2013 23:48

Yapmak istediğiniz tam olarak şu resimdeki gibi mi ?

Kod: Tümünü seç
Private Sub UserForm_Activate()
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset
Set baglan = New ADODB.Connection
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ThisWorkbook.Path & "\tw.accdb"
Set ks = baglan.Execute("Select distinct(urun_adi) From urun_agaci")
i = 1
With TreeView1
    .LineStyle = tvwRootLines
    .Nodes.Add , , "Ürünler", "Ürünler"
    .Nodes(.Nodes.Count).Expanded = True
    Do While Not ks.EOF
    Set ks1 = baglan.Execute("Select urun_parcasi From urun_agaci Where urun_adi='" & ks(0).Value & "'")
        i = i + 1
        Set a = .Nodes.Add("Ürünler", 4, ks(0).Value & i, ks(0).Value)
        a.Expanded = True
        Do While Not ks1.EOF
            .Nodes.Add ks(0).Value & i, 4, ks1(0).Value & i, ks1(0).Value
        ks1.MoveNext
        Loop
    ks.MoveNext
    Loop
End With
Set baglan = Nothing
Set ks = Nothing
Set ks1 = Nothing
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#5)  Tarkan VURAL » 30 Ekm 2013 23:52

Eğer ürünlerin access sırasına göre listelenmesini istiyorsanız, sorguyu aşağıdaki şekilde güncelleyiniz:
Kod: Tümünü seç
Set ks = baglan.Execute("Select  urun_adi  From urun_agaci group by urun_adi,urun_id order by urun_id")
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#6)  cenk e. » 31 Ekm 2013 00:12

Tarkan Bey, cevap için çok çok teşekkür ederim, ikinci resimdeki sorgu bana daha uygundur fakat zahmetli olmazsa ürünün alt bileşenlerini o ürünün altında gösterebilirseniz çok muhteşem olur.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#7)  Tarkan VURAL » 31 Ekm 2013 00:14

cenk e. yazdı:ürünün alt bileşenlerini o ürünün altında gösterebilirseniz çok muhteşem olur.

Zaten öyle değil mi ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#8)  cenk e. » 31 Ekm 2013 00:21

Tarkan Bey, ürünlerde ve alt ürünlerde sıkıntı yok, mesela biber dolmasının alt ürünü doldurulmuş biber var.
------------------------------
+ Biber Dolması
Dondurulmuş biber
------------------------------

Ayriyeten de dondurulmuş biber ve bileşenleri var.
------------------------------
+ dondurulmuş biber
Dolma içi
Dolma biber
Tuz
Salça
------------------------------

Şu şekle getirmek mümkün müdür?

Kod: Tümünü seç
+ Biber Dolması
        + Dondurulmuş Biber
                    Dolma biber
                    + Dolma içi
                               Tuz
                               Ayçiçek yağı
                               Et
                    Tuz
                    Salça
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#9)  cenk e. » 31 Ekm 2013 00:30

Eklediğim boşluklar gitmiş, resim olarak da ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#10)  cenk e. » 31 Ekm 2013 00:35

Düzenlemeyi resmi ekledikten sonra fark ettim kusuruma bakmayın.
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#11)  Tarkan VURAL » 31 Ekm 2013 00:44

Eldeki veritabanı ile istediğiniz şekilde bir görüntü elde etmeye mantığım çalışmadı. [ilginc]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#12)  cenk e. » 31 Ekm 2013 09:21

Tarkan VURAL yazdı:Eldeki veritabanı ile istediğiniz şekilde bir görüntü elde etmeye mantığım çalışmadı. [ilginc]

Tarkan Bey, cümleden anladığım kadarıyla veri tabanı da sıkıntılı, bunun hakkında tavsiye verebilir misiniz?
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#13)  Tarkan VURAL » 31 Ekm 2013 09:58

Gönderdiğiniz şekle uygun olarak bir veri yapısı oluşturmak gerekir diye düşünüyorum. Bir tabloda mamül, bir tabloda yarımamül ve bileşenleri, diğer bir tabloda mamül ya da yarımamülü oluşturacak bileşenler olmalı gibi düşünüyorum. Ana dal kısmında ürünler yazar, alt dalında mamül, onun alt dalında yarımamüller ve yarımamüllerin alt dalında da hammadde bileşenleri. [ilginc] Yine de emin değilim. Yapıyı kurup denemek lazım. Kısaca zaman ayırmak lazım.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Accessten TreeView'e, Ürün Ağacı Yükleme

İleti#14)  cenk e. » 31 Ekm 2013 10:30

Tarkan Bey, tavsiyeleriniz için teşekkür ediyorum, yazdıklarınızı dikkate alarak bir araştırmaya gireceğim, ilginiz için tekrardan teşekkür ederim.

İyi günler...
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum TreeView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe