ربط ال Treeview بقاعدة البيانات(شجرة الحسابات)

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim con As OleDb.OleDbConnection

Dim sqlstr1 As String = "select * from assets"

Dim adp1 As OleDb.OleDbDataAdapter

Dim ds As New DataSet

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Acc.mdb"

con = New OleDb.OleDbConnection(constr)

Catch

MsgBox(Err.Description)

Exit Sub

End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.TreeView1.Nodes.Clear()

con.Open()

adp1 = New OleDb.OleDbDataAdapter(sqlstr1, con)

adp1.Fill(ds, "assets")

Dim I As Integer

Dim rootx As String

'Dim sub1 As String

For I = 0 To ds.Tables("assets").Rows.Count - 1

rootx = ds.Tables("assets").Rows(I).Item("nameAcc")

Me.TreeView1.Nodes.Add(rootx)

Next

con.Close()

End Sub

End Class