ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[cenk e.]

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.

[Tarkan VURAL]

TreeView başlığımızdaki örneklerden inceleme şansınız olursa orada Key, Text ekleme yöntemleri var.

[cenk e.]

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...

[Tarkan VURAL]

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

[Tarkan VURAL]

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")

[cenk e.]

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.

[Tarkan VURAL]

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

Zaten öyle değil mi ?

[cenk e.]

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

[cenk e.]

Eklediğim boşluklar gitmiş, resim olarak da ekledim.

[cenk e.]

Düzenlemeyi resmi ekledikten sonra fark ettim kusuruma bakmayın.

[Tarkan VURAL]

Eldeki veritabanı ile istediğiniz şekilde bir görüntü elde etmeye mantığım çalışmadı.

[cenk e.]

Eldeki veritabanı ile istediğiniz şekilde bir görüntü elde etmeye mantığım çalışmadı.

Tarkan Bey, cümleden anladığım kadarıyla veri tabanı da sıkıntılı, bunun hakkında tavsiye verebilir misiniz?

[Tarkan VURAL]

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. Yine de emin değilim. Yapıyı kurup denemek lazım. Kısaca zaman ayırmak lazım.

[cenk e.]

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...