Şimdi Ara

Vb.net Treeview hatası

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

CAMPER Erkek Pelotas XLF Ayakkabı Bej 45 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B005AXCO3I 18 sa. önce paylaşıldı

Apple iPhone 11 (128 GB) - Siyah : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B08PQ1JPX9 3 yıl önce paylaşıldı

MARISOL Marka MRS Rome C28 KAHVERENGİ KEMİK Cerceve KAHVERENGİ Cam Güneş Bayan Gözlügü : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0CBQ2HQ16 17 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

4 Misafir - 4 Masaüstü

5 sn

2
Cevap

0
Favori

709
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Arkadaşlar merhaba,
Bir sorun yaşıyorum bir vb.net ile program hazırladım. Program LDAP'a bağlantı yapıp ou bilgisini alip bunu treeview eklemesi gerekiyor. fakat bir türlü beceremedim. ilk ou'ları alıyor fakat ana ou'nun altında ki ouları treeview eklemek istedigimde hata aliyorum. programın kodu su sekilde nerede hata yapiyorum bir yardımcı olabilir misiniz?

 
   
      Sub ldapGetir(ByVal link As String, Optional ByVal OU As String = Nothing) 
          Try 
              Dim entry As New DirectoryEntry(link, Form1.DmKullaniciTX.Text, Form1.DmSifreTx.Text, AuthenticationTypes.Secure) 
              Dim ds As New DirectorySearcher(entry, "objectClass=organizationalUnit", Nothing, SearchScope.OneLevel) 
              Dim src As SearchResultCollection = Nothing 
              src = ds.FindAll() 
              entry.Close() 
              entry.Dispose() 
   
              For Each sr As SearchResult In src 
                  Dim SubNameT As Array = sr.Path.ToString.Replace("LDAP://benimdomainim.com/", "").Replace(",DC=benimdomainim,DC=com", "").Split(",") 
                  Dim OULAR As New ArrayList(SubNameT.Length) 
                  For dongu = 0 To UBound(SubNameT) 
                      Dim degisken As String = SubNameT(dongu) 
                      Dim bolunen = degisken.Split("=") 
                      If bolunen(0) = "OU" Then OULAR.Add(bolunen(1)) 
                  Next 
   
                  Dim MyNode() As TreeNode 
   
                  If OULAR.Count >= 2 Then 
                      MyNode = TreeView1.Nodes.Find(OULAR(1), True) 
                      Try 
                          MyNode(0).Nodes.Add(sr.Properties("name")(0).ToString()) 
                      Catch ex As Exception 
                          'RichTextBox1.Text += MyNode.Rank & ";" & OULAR(1) & ";" & sr.Properties("name")(0).ToString & ";" & vbNewLine 
                      End Try 
                  Else 
                      TreeView1.Nodes.Add(sr.Properties("name")(0).ToString()) 
                  End If 
                  ldapGetir(sr.Path.ToString) 
              Next 
          Catch ex As Exception 
              MsgBox(ex.Message.ToString) 
          End Try 
      End Sub