Imports System.Data.SqlClient Public Class Tree Private Sub Tree_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim dsTest As DataSet Dim cnTest As New SqlClient.SqlConnection("DATA SOURCE=myPC\DBserver;USER ID=sa;PASSWORD=udo5673;INITIAL CATALOG=ZINDAA;") Dim daCountry As New SqlClient.SqlDataAdapter("SELECT CsCountryCode,CsCountryName from hrCountrySetup", cnTest) dsTest = New DataSet() cnTest.Open() daCountry.Fill(dsTest, "dtCountry") cnTest.Close() TreeView1.Nodes.Clear() Dim parentrow As DataRow Dim parenttable As DataTable parenttable = dsTest.Tables("dtCountry") For Each parentrow In parenttable.Rows Dim parentnode As New TreeNode parentnode = New TreeNode(parentrow.Item(0) & " - " & parentrow.Item(1)) TreeView1.Nodes.Add(parentnode) Next parentrow End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)