Mensajes

[añade]

muchisimas gracias por tu tiempo
explico nuevamente mi situacion, cada vez mas oscura jaja

utilize tu code pero despues de algun que otro retoque(por ejemplo la forma en que me conecto.) es como que nunca llega a su fin la ejecucion, no se porque sera, no se si sera la funcion o porq estoy procesando 7 mil registros.
dejo el codigo "modificado" para mirar y analizar.

En un modulo:

Código [Seleccionar] Expandir


    Public ex As Exception 'variable que guardará una exepcion (error)
    Public MyConexion As New OleDb.OleDbConnection() 'objeto de ADO.net para conectar con la BD
    Public MiAdaptador As New OleDb.OleDbDataAdapter 'adaptador de datos
    Public dsDataSet As New Data.DataSet() ' objeto que guardará los resultados de la consulta
    Public strSQL As String 'para crear la consulta SQL


En el load del formulario(el formulario se llama frm_dimproducto)

Código [Seleccionar] Expandir


Private Sub frm_dimproducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strSQL = "SELECT * FROM DimTempCustomer"
        MiAdaptador = New OleDb.OleDbDataAdapter(strSQL, MyConexion.ConnectionString)
        MiAdaptador.Fill(dsDataSet, "MiTabla")

        Dim a As Integer
        Dim Codigo, Descripcion, Padre As String

        For a = 0 To dsDataSet.Tables("MiTabla").Rows.Count - 1
            Codigo = Trim(dsDataSet.Tables("MiTabla").Rows(a).Item("DimT_Codigo"))
            Descripcion = Trim(dsDataSet.Tables("MiTabla").Rows(a).Item("DimT_Descripcion"))
            Padre = Trim(dsDataSet.Tables("MiTabla").Rows(a).Item("DimT_Padre"))

            If Padre = "" Then
                TreeView1.Nodes.Add(Descripcion)
                añade(Codigo, TreeView1.Nodes(TreeView1.Nodes.Count - 1))
            End If
            Application.DoEvents()
        Next
    End Sub


En el sub añade:

Código [Seleccionar] Expandir


Sub añade(ByVal cod As String, ByVal node As TreeNode)
        strSQL = "SELECT * FROM DimTempCustomer"
        MiAdaptador = New OleDb.OleDbDataAdapter(strSQL, MyConexion.ConnectionString)
        MiAdaptador.Fill(dsDataSet, "MiTabla2")

        'variable que recorre las filas de la tabla
        Dim a As Integer
        Dim Codigo, Descripcion, Padre As String

        For a = 0 To dsDataSet.Tables("MiTabla").Rows.Count - 1
            Codigo = Trim(dsDataSet.Tables("MiTabla2").Rows(a).Item("DimT_Codigo"))
            Descripcion = Trim(dsDataSet.Tables("MiTabla2").Rows(a).Item("DimT_Descripcion"))
            Padre = Trim(dsDataSet.Tables("MiTabla2").Rows(a).Item("DimT_Padre"))

            If Padre = cod Then
                node.Nodes.Add(Descripcion)
                añade(Codigo, node.Nodes(node.Nodes.Count - 1))
            End If
            Application.DoEvents()
        Next
    End Sub

yo quisiera creer que es por un tema del dataset, repito que mi experiencia con .net es de solo 1 semana.


tambien dejo el codigo de la funcion que realize en vb6 con el treeview perteneciente a los controles com, el cual no funciona por razones que desconozco, algun tipo de incopatibilidad.(directamente el treeview no funciona como deberia con .NET)

Código [Seleccionar] Expandir


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'On Error Resume Next
        Dim Codigo, Descripcion As String
        Dim TotalReg As Long
        Dim Registro As DataRow
        Dim Nombre, Hijos, Child

        'Me.MousePointer = 11
        tv.Nodes.Clear()

        strSQL = "SELECT * FROM DimTempCustomer WHERE DimT_Padre=''"
        MiAdaptador = New OleDb.OleDbDataAdapter(strSQL, MyConexion.ConnectionString)
        MiAdaptador.Fill(dsDataSet, "Raiz")

        Codigo = Trim(dsDataSet.Tables("Raiz").Rows(0).Item("DimT_Codigo"))
        Descripcion = Trim(dsDataSet.Tables("Raiz").Rows(0).Item("DimT_Descripcion"))

        tv.Nodes.Add(, , "Cabecera", "[" & Codigo & " ]" & "[" & Descripcion & "]")

        'padres e hijos :)
        strSQL = "SELECT * FROM DimTempCustomer WHERE DimT_Padre='" & Codigo & "'"
        MiAdaptador = New OleDb.OleDbDataAdapter(strSQL, MyConexion.ConnectionString)
        MiAdaptador.Fill(dsDataSet, "Primero")

        TotalReg = 0
        For Each Registro In dsDataSet.Tables("Primero").Rows
            TotalReg = TotalReg + 1
            Codigo = Trim(Registro.Item("DimT_Codigo"))
            Descripcion = Trim(Registro.Item("DimT_Descripcion"))

            Nombre = Codigo & "A"
            Hijos = Hijos & "-//-" & Codigo
            tv.Nodes.Add("Cabecera", Child, Nombre, "[" & Codigo & "]" & "[" & Descripcion & "]")

            Application.DoEvents()
        Next

        'si no contiene hijos lo borro despues de la confirmacion
        If TotalReg <> 0 Then
            Verificar_hijos(Hijos)
        End If
    End Sub

    Function Verificar_hijos(ByVal Hijos)
        'On Error Resume Next
        Dim i As Integer
        Dim Codigo, Descripcion, Nombre, Child, Check_Hijo, Hijos2 As String
        Dim Hijo
        Dim TotalReg
        Dim Registro As DataRow

        'desgloso la variable Temp, y recorro en un bucle para ver si tienen hijos
        Hijo = Split(Hijos, "-//-")
        For i = 1 To UBound(Hijo)

            Check_Hijo = Trim(Hijo(i))
            strSQL = "SELECT * FROM DimTempCustomer WHERE DimT_Padre='" & Check_Hijo & "'"
            MiAdaptador = New OleDb.OleDbDataAdapter(strSQL, MyConexion.ConnectionString)
            MiAdaptador.Fill(dsDataSet, Check_Hijo)

            TotalReg = 0
            For Each Registro In dsDataSet.Tables("Primero").Rows
                TotalReg = TotalReg + 1
                Codigo = Trim(Registro.Item("DimT_Codigo"))
                Descripcion = Trim(Registro.Item("DimT_Descripcion"))

                Nombre = Codigo & "A"
                tv.Nodes.Add(Check_Hijo + "A", Child, Nombre, "[" & Codigo & "]" & " " & Descripcion)
                Hijos2 = Hijos2 & "--" & Codigo
                Application.DoEvents()
            Next
            'si ese hijo tiene hijos
            If Not TotalReg = 0 Then
                Verificar_hijos(Check_Hijo)
            End If
        Next i

        Timer1.Enabled = False

    End Function


Disculpen lo extenso del post.

Saludos

exacto, si se que es la recursividad. la funcion que hize en vb6 era recursiva, pero como en .net hay variaciones en el codigo todadvia no pude hacer una funcion semejante, ni usando la anterior como "base", hace 3 dia utilizo .net.

es posible hacer un llenado recursivo? sin limitacion? como la que hize en vb6 ya que la unica q encontre tenia un limite, si querias mas niveles habria que agregar codigo y era cada vez mas por cada agregado, pero no funcionaba

es posible?con o sin limitacion.

Saludos nuevamente

te explico a lo que me refiero, es que escribi apurado porque me estaba llendo.

una parte de la tabla supongamos es asi:

CODIGO       DESCRIPCION        PADRE
001             Item 1       (en blanco)
002             Item 2           001
003             Item 3           001
004             Item 4           001
005             Item 5           002
006             item 6           002
007             Item 7           005
008             Item 8           005
009             Item 9           005
010             Item 10          006


el arbol quedaria de la siguiente manera:

Código [Seleccionar] Expandir


Item 1
   |____Item 2
   |      |____Item 5
   |      |      |___Item 7
   |      |      |___Item 8
   |      |      |___Item 9
   |      |
   |      |____Item 6
   |             |___Item 10
   |
   |____Item 3
   |____Item 4 


creo que quedo claro, el dato que se muestra es la descripcion.
hace un rato estaba pensando en agregar los controles de vb6 a vb.net y usar la funcion que hize hace un tiempo para el mismo fin. pero tambien quiero saber como hacerlo directamente desde los controles de vb.net.

muchas gracias por las respeustas.

Saludos.

si, esta perfecto eso, ya me habia dado cuenta
muchas gracias

el problema mio ahora es el siguiente
es urgente, necesito hacer este arbol mañana :S

el arbol lo tengo q hacer en base a una tabla sql

con los sig campos "CODIGO(string)" "DESCRPCION(string)" "PADRE(string)"

el tema es que no puedo hacerlo :S encontre un code en google q parece andar pero no me anda tiene un problema


suponiendo que el arbol no tiene mas de 6 niveles
por favor si alguien sabe como hacer esto q me ayude
es bastante muy distinto a vb6 :S

un saludo grande a todso y gracais por la colaboracion

que tal?
Bueno paso a comentarles mi inquietud. No tuve problemas al usar un control TreeView en vb6, pero cuando migre a .NET se me dificulto la cosa. No puedo agregar lo que yo quiero como yo quiero.
Pongo un code de ejemplo:

Código [Seleccionar] Expandir

       
treeview.Nodes.Add("Raiz")

treeview.Nodes(0).Nodes.Add("Primero")
treeview.Nodes(0).Nodes.Add("Segundo")
treeview.Nodes(0).Nodes.Add("Tercero")


con ese code creo una raiz y colgando de esa raiz los items Primero, Segundo y Tercero.
Ahora... yo quiero colgar items del item "Primero" y eso es lo que no puedo hacer

Saludos.

alguien me podria explicar como conectar a sql server usando vb.net?
estoy migrando de vb6 y no puedo encontrar por ningun lado como hacerlo :S

es urgente, tengo que hacer una aplicacion importante en tan solo 5 dias y me falta hacer la conexion

gracias de antemano nuevamente

al parecer nadie sabe, seguire intentando

hola a todos
me gustaria saber si alguien tiene idea de como conectar a oracle desde vb.net ya que necesito hacer una aplicacion para alimentar una tabla, busuqe en el foro y no encontre y lo que encontre en google no lo entiendo mucho, asi q por eso recurro aca

tengo instalado un cliente oracle y agregue la referencia a mi proyecto

saludos a todos y gracias de antemano.

pd: la conexion es remota.

WebBrowser1.Navigate "www.sitio.com/index.php?dato=midato"

asi fue como lo hize
gracias a todos por sus respuestas
el programa ya esta funcional y enviando informacion


byeeeeeee

me respondo yo mismo
lo voy a hacer usando un control webbrowser


adios!