| Author: ramana 27 Aug 2008 | Member Level: Bronze | Rating:  Points: 3 |
Hi kalaimanichozhan,
Try below code,it is suitable for u r requirement.
Default.aspx.vb:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim DBConn As New SqlConnection("Connectionstring")
DBConn.Open()
Dim DBCustAdap As New SqlDataAdapter("Select customerID,Customername,Designation,City from Customer", DBConn)
Dim DSCustOrder As DataSet = New DataSet
DBCustAdap.Fill(DSCustOrder, "Customers")
'Fill the TreeView control Nodes using For Loop
For Each PRow As DataRow In DSCustOrder.Tables("Customers").Rows
Dim PNode As New TreeNode("Customer")
Me.tvDisplayRecord.Nodes.Add(PNode)
Dim CNode1 As New TreeNode(PRow("customerID"))
PNode.ChildNodes.Add(CNode1)
Dim CNode2 As New TreeNode(PRow("Customername"))
PNode.ChildNodes.Add(CNode2)
Dim CNode3 As New TreeNode(PRow("Designation"))
PNode.ChildNodes.Add(CNode3)
Dim CNode4 As New TreeNode(PRow("City"))
PNode.ChildNodes.Add(CNode4)
PNode.CollapseAll()
Next
'Close Connection and Dispose all database objects
DBCustAdap.Dispose()
DBCustAdap = Nothing
DBConn.Close()
DBConn = Nothing
End Sub
Default.aspx
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Treeview</title>
</head>
<body>
<form id="form1" runat="server">
<div>
br />
<asp:TreeView ID="tvDisplayRecord" runat="server" ></asp:TreeView>
</div>
</form>
</body>
</html>
|
| Author: UltimateRengan 28 Aug 2008 | Member Level: Diamond | Rating: Points: 6 |
hi,
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
BindData()
End If
End Sub
Sub BindData()
Dim strConn As String
strConn = "USER=asdf;PASSWORD=iiii;SERVER=jjj;DATABASE=Emp"
Dim MySQL As String = "Select x,empno, jj from x"
Dim MyConn As New SqlClient.SqlConnection(strConn)
Dim ds As DataSet = New DataSet()
Dim Cmd As New SqlClient.SqlDataAdapter(MySQL, MyConn)
Cmd.Fill(ds, "Emptbl")
'Fill the TreeView control Nodes using For Loop
For Each Row As DataRow In ds.Tables("Emptbl").Rows
Dim TNode As New TreeNode("First")
TreeView1.Nodes.Add(TNode)
Dim CNode1 As New TreeNode(Row("x"))
TNode.ChildNodes.Add(CNode1)
Dim CNode2 As New TreeNode(Row("empno"))
TNode.ChildNodes.Add(CNode2)
Dim CNode3 As New TreeNode(Row("jj"))
TNode.ChildNodes.Add(CNode3)
TNode.CollapseAll()
Next
End Sub
End Class
Advance Happy Diwali
SAP B1
|