[Yardım]  TreeView'e Veri Alımı

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

TreeView'e Veri Alımı

İleti#1)  alican60 » 04 Nis 2014 20:07

Accesteki il isimlerini exceldeki treeviewe aldırabildim ama illere ait ilçeleri ve ilçelerdeki oturanların isimlerini aldıramadım yardımcı olabilirmisiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Murat OSMA tarafından, 04 Nis 2014 23:38 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Ön ek seçildi. | Başlık düzeltildi.
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 40
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: TreeView'e Veri Alımı

İleti#2)  Murat OSMA » 04 Nis 2014 23:38

Şu kodları bir deneyin;
Kod: Tümünü seç
Private baglan As Object, rs As Object

Private Sub UserForm_Initialize
()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.Path & "\TREEVİEW.accdb"
'Call Baglanti
Set ks = baglan.Execute("Select DISTINCT(İL) From [DATA]")
i = 1
With TreeView1
    .LineStyle = tvwRootLines
    .Nodes.Add , , "İL", "İL"
    .Nodes(.Nodes.Count).Expanded = True
    
    Do While Not ks.EOF
        Set ks1 = baglan.Execute("Select * From [DATA] Where [İL]='" & ks(0).Value & "'")
        i = i + 1
        Set a = .Nodes.Add("İL", 4, ks(0).Value & i, ks(0).Value)
        a.Expanded = False
        a.EnsureVisible
        Do While Not ks1.EOF
        Set rs = baglan.Execute("Select İLÇE From [DATA] Where İL='" & ks(0).Value & "'")
            .Nodes.Add ks(0).Value & i, 4, , rs(0).Value
            .Nodes.Add a.Index + 1, 4, , ks1(1).Value
            .Nodes.Add a.Index + 2, 4, , ks1(0).Value
            ks1.MoveNext
        Loop
        ks.MoveNext
    Loop
End With
Set baglan = Nothing
Set ks = Nothing
Set ks1 = Nothing
End Sub
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: TreeView'e Veri Alımı

İleti#3)  alican60 » 05 Nis 2014 05:38

Teşekkür ederim Murat Bey ,ilçeleri ikişer defa göstermesinin dışında sorun yok.
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 40
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: TreeView'e Veri Alımı

İleti#4)  Murat OSMA » 05 Nis 2014 10:49

Rica ederim Ali Bey.
Mükerrer kaydı sorgu kısmında halledersiniz. ;;_)

İyi günler.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14400
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

Forum TreeView

Online Kullanıcılar

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

Bumerang - Yazarkafe