1 sayfadan 1. sayfa

TreeView'e Veri Alımı

İletiTarih: 04 Nis 2014 20:07
alican60
Accesteki il isimlerini exceldeki treeviewe aldırabildim ama illere ait ilçeleri ve ilçelerdeki oturanların isimlerini aldıramadım yardımcı olabilirmisiniz.

Cevap: TreeView'e Veri Alımı

İletiTarih: 04 Nis 2014 23:38
Murat OSMA
Ş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

Cevap: TreeView'e Veri Alımı

İletiTarih: 05 Nis 2014 05:38
alican60
Teşekkür ederim Murat Bey ,ilçeleri ikişer defa göstermesinin dışında sorun yok.

Cevap: TreeView'e Veri Alımı

İletiTarih: 05 Nis 2014 10:49
Murat OSMA
Rica ederim Ali Bey.
Mükerrer kaydı sorgu kısmında halledersiniz. ;;_)

İyi günler.