ASP.NET - CARGAR DATOS DE UNA TABLA A UN TREEVIEW

Amigos del foro tengo una consulta que hacerles, por favor solicito su ayuda, desde ya muchas gracias por ayudarme.

Estoy trabajando en una aplicacion contable con asp.net base de datos sql server 2000 y visual basic.net, en mi tabla tengo armada una estructura de esta forma:

CUENTA DESCRIPCION MAYORIZA IMPUTABLE

1. ACTIVO 1. 0

1.1. ACTIVO CIRCULANTE 1. 0

1.1.1. DISPONIBLE 1.1. 0

1.1.1.01. CAJA BANCOS 1.1.1. 0

1.1.1.01.01. CAJA 1.1.1.01. 0

1.1.1.01.01.001 CAJA GENERAL 1.1.1.01.01. 1



Amigos del foro esta es la informacion que tengo en mi tabla y que deseo presentar en un treeview, la verdad no tengo ni idea de como hacer esto.

mi aplicacion es 3 capas: datos, negocio, presentacion y no se en que evento poner la programacion,para presentar la informacion en el treeview, por ahora solo lo presento en un gridview....

Programacion capa presentacion:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

If Not Me.IsPostBack Then

fnCargaTabla()

fnBuscarPermisosUsuario()

End If

Catch ex As Exception

fnAlerta(ex.Message)

End Try

End Sub

Protected Sub fnCargaTabla()

Try

Dim ds As DataSet

Dim obj As New Contabilidad.Negocio.Contabilidad.Negocio.ClsPlanNegocio()

ds = obj.fnCargaTabla()

Session("DatosGrid") = ds

grdvPlan.DataSource = ds

grdvPlan.DataBind()

Catch ex As Exception

fnAlerta(ex.Message)

End Try

End Sub





CAPA NEGOCIO



Imports System

Imports System.Collections.Generic

Imports System.Text

Imports System.Data

Imports Contabilidad.Datos

Namespace Contabilidad.Negocio

Public Class ClsPlanNegocio

Public Sub New()

End Sub

#Region "Metodos Publicos"

Public Function fnCargaTabla() As DataSet

Dim obj As New Datos.Contabilidad.Datos.ClsPlandatos()

Return obj.fnCargaTabla()

End Function

#End Region

End Class

End Namespace



CAPA DATOS

Imports System

Imports System.Collections.Generic

Imports System.Text

Imports System.Data

Namespace Contabilidad.Datos

Public Class ClsPlandatos

Public Sub New()

End Sub

Private m_numero As String

Private m_detalle As String

Private m_mayoriza As String

Private m_imputable As Int16

Private m_id As Int16

#Region "Metodos Públicos"

Public Property Numero() As String

Get

Return m_numero

End Get

Set(ByVal value As String)

m_numero = value

End Set

End Property

Public Function fnCargaTabla() As DataSet

Dim ds As DataSet

Dim Query As String

Query = "SELECT PLANCUENTA_ID, PLANCUENTA_NUMERO, PLANCUENTA_DETALLE, PLANCUENTA_MAYORIZA, PLANCUENTA_MOVIMIENTO "

Query += "FROM CONTB_PLANCUENTA "

ds = Contabilidad.Datos.ClsDatos.ExecuteQuery(Query)

Return ds

End Function

#End Region

End Class

End Namespace





CLASE DE CONEXION A LA BASE DE DATOS



Imports System

Imports System.Collections.Generic

Imports System.Text

Imports System.Data

Imports System.Data.SqlClient

Namespace Contabilidad.Datos

Public Class ClsDatos

Public Sub New()

End Sub

Protected Shared Function StringConexion() As String

Dim conexion As String

conexion = "Data Source=DESARROLLO;Initial Catalog=Base;User ID=sa;Password=sa"

Return conexion

End Function

Public Shared Function ExecuteQuery(ByVal Query As String) As DataSet

Dim resultado As New DataSet()

Dim cnServer As New SqlConnection(StringConexion())

cnServer.Open()

Dim daData As New SqlDataAdapter(Query, cnServer)

daData.Fill(resultado)

cnServer.Close()

Return resultado

End Function

Public Shared Function ExecuteCommand(ByVal Query As String) As Integer

Dim resultado As Integer = 0

Dim cnServer As New SqlConnection(StringConexion())

cnServer.Open()

Dim cm As New SqlCommand(Query, cnServer)

resultado = cm.ExecuteNonQuery()

cnServer.Close()

Return resultado

End Function

End Class

End Namespace

Hola,

Porque no creas un XML con los datos que te devuelve la consulta e intentas armar desde ahi el treeview. El XML siempre te dara mas pie a organizar los registros por jerarquias.

Saludos

Jajaja