Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Treeview waardes bepalen dmv waardes database

rredspike1 - 05/01/2009 17:14

Lid

Zoals het onderwerp al zegt.

Er moet een mogelijkheid zijn om waardes nodes en childnodes te laten bepalen door waardes uit een table (database).

Waarbij de NODES de Bedrijfsnaam is en de CHILDNODES de OPDRACHTNAAM is.

De verbinding met de database is als public ingesteld in een ander bestand.

PS is Dim strKlant As String = Nothing beter dan
Dim strKlant As String = ""

CODE:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                    Private Sub OpdrachtOphalen()

        Dim objNode As TreeNode
        Dim objChildNode As TreeNode
        Dim strOpdrachtOphalen As String = Nothing
        Dim ID As Long = 0

        If Opstart = False Then Exit Sub
        strOpdrachtOphalen = trvOpdrachtenOphalen.Nodes.ToString
        SQL = "Select Bedrijfsnaam, Opdrachtnaam From Opdrachten where Bedrijsnaam ='" & strOpdrachtOphalen & "'"
        Dim command As New OleDb.OleDbCommand(SQL, oCon)
        oCon.Open()
        Using reader As OleDb.OleDbDataReader = command.ExecuteReader((CommandBehavior.CloseConnection))
            If reader.HasRows = True Then
                While reader.Read
                    ID = reader("Bedrijfsnaam")
                End While
            End If

        End Using
        oCon.Close()

        SQL = "Select Bedrijfsnaam, Opdrachtnaam From Opdrachten Where Bedrijfsnaam = " & ID
        Try
            Dim commandklanten As New OleDb.OleDbCommand(SQL, oCon)
            oCon.Open()
            Using reader As OleDb.OleDbDataReader = commandklanten.ExecuteReader((CommandBehavior.CloseConnection))
                If reader.HasRows = True Then
                    While reader.Read
                        objNode = trvOpdrachtenOphalen.Nodes.Add("Bedrijfsnaam")
                        objChildNode = trvOpdrachtenOphalen.Nodes.Add("Opdrachtnaam")
                    End While
                End If

            End Using
            oCon.Close()
        Catch ex As Exception
            If oCon.State = ConnectionState.Open Then oCon.Close()
        End Try

    End Sub
            
Private Sub OpdrachtOphalen()
 
        Dim objNode As TreeNode
        Dim objChildNode As TreeNode
        Dim strOpdrachtOphalen As String = Nothing
        Dim ID As Long = 0
 
        If Opstart = False Then Exit Sub
        strOpdrachtOphalen = trvOpdrachtenOphalen.Nodes.ToString
        SQL = "Select Bedrijfsnaam, Opdrachtnaam From Opdrachten where Bedrijsnaam ='" & strOpdrachtOphalen & "'"
        Dim command As New OleDb.OleDbCommand(SQL, oCon)
        oCon.Open()
        Using reader As OleDb.OleDbDataReader = command.ExecuteReader((CommandBehavior.CloseConnection))
            If reader.HasRows = True Then
                While reader.Read
                    ID = reader("Bedrijfsnaam")
                End While
            End If
 
        End Using
        oCon.Close()
 
        SQL = "Select Bedrijfsnaam, Opdrachtnaam From Opdrachten Where Bedrijfsnaam = " & ID
        Try
            Dim commandklanten As New OleDb.OleDbCommand(SQL, oCon)
            oCon.Open()
            Using reader As OleDb.OleDbDataReader = commandklanten.ExecuteReader((CommandBehavior.CloseConnection))
                If reader.HasRows = True Then
                    While reader.Read
                        objNode = trvOpdrachtenOphalen.Nodes.Add("Bedrijfsnaam")
                        objChildNode = trvOpdrachtenOphalen.Nodes.Add("Opdrachtnaam")
                    End While
                End If
 
            End Using
            oCon.Close()
        Catch ex As Exception
            If oCon.State = ConnectionState.Open Then oCon.Close()
        End Try
 
    End Sub
 

Kom er niet goed uit, wie kan mij helpen?

Weet geeneens of ik het zo goed doe, blijkbaar niet, want geeft niks weer...

5 antwoorden

Gesponsorde links

Wim - 05/01/2009 19:32
Crew algemeen		Dim strKlant As String = Nothing = Dim strKlant As String = String.Empty = Dim strKlant As String = "" = Dim strKlant As String Een gedeelte komt van VB.NET, een gedeelte van de oude VB. Deze vraag is bij ons in een les ooit naar bovengekomen, en de docent antwoordde dat het niets uit maakt wat ikzelf ook het logischt vindt --- Kan je misschien een voorbeeld van de gewenste ouput geven? Of krijg je een foutmelding...?

rredspike1 - 05/01/2009 19:39
Lid		Ik heb het alweer weggehaald, maar zou eigenlijk een treeview willen vullen met gegevens uit de database, waar de Node -> bedrijfsnaam is en de ChildNode ->Opdrachtnaam is Dus + Bedrijfsnaam en als je op die + drukt dat die dan openklapt en dan de bijhorende Opdrachtnaam weergeeft. Dus het moet eigenlijk dynamisch zijn (logisch), maar ik weet niet zo goed hoe ik dit voor elkaar krijg.

Deef775 - 18/01/2009 16:23
Lid		Ik zit eigenlijk met een soortgelijke vraag. Maar als je een Childnode aan een Node wilt toevoegen denk ik dat je het volgende moet gebruiken : objChildNode = trvOpdrachtenOphalen.Nodes(0).Nodes.Add("Opdrachtnaam") De manier om het in code door een database te laten opvullen daar ben ik nog niet uit

rredspike1 - 18/01/2009 19:13
Lid		Ja inderdaad, zoiets wil ik ook, ik zoek dus ook hoe je het door de database laat opvullen.

Abbas - 19/01/2009 03:10 (laatste wijziging 19/01/2009 04:04)

Crew .NET

Ik heb even een voorbeeld gemaakt en dat werkt perfect (Voorbeeld). Het haalt de bedrijfsnaam en de opdrachten op uit de DB en tijdens het lezen worden die in ChildNodes gestopt om dan in de TreeView gezet te worden. Ze worden alfabetisch op bedrijfsnaam gesorteerd en de opdrachten binnen het bedrijf op ID. Onderstaande code heb ik in mijn Form_Load event staan:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'Variabelen declareren
Dim dbConn As New OleDbConnection(Connection.GetConnection())
Dim dbReader As OleDbDataReader
Dim strQuery = "SELECT Bedrijf, Naam FROM Opdracht ORDER BY Bedrijf, Id ASC"
Dim sqlComm As OleDbCommand = New OleDbCommand(strQuery, dbConn)
Dim parentNode As TreeNode
Dim oldValue As String = ""

Try
    dbConn.Open()
    dbReader = sqlComm.ExecuteReader()
    While dbReader.Read()
        'Als de vorige gelezen waarde (bedrijfsnaam) verschilt van
        'de vorige: nieuwe TreeNode maken en toevoegen
        If Not oldValue.Equals(dbReader.GetValue(0).ToString()) Then
            parentNode = New TreeNode(dbReader.GetValue(0).ToString())
            treeOpdrachten.Nodes.Add(parentNode)
        End If
        'Achteraf telkens de opdrachten toevoegen aan een bedrijf
        parentNode.Nodes.Add(dbReader.GetValue(1).ToString())
        'Laatst gelezen bedrijfsnaam opslaan om te vergelijken
        oldValue = dbReader.GetValue(0).ToString()
    End While
    dbReader.Close()
Catch ex As Exception
    MessageBox.Show(ex.Message, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Information)
Finally
    dbConn.Close()
End Try

            
'Variabelen declareren
Dim dbConn As New OleDbConnection(Connection.GetConnection())
Dim dbReader As OleDbDataReader
Dim strQuery = "SELECT Bedrijf, Naam FROM Opdracht ORDER BY Bedrijf, Id ASC"
Dim sqlComm As OleDbCommand = New OleDbCommand(strQuery, dbConn)
Dim parentNode As TreeNode
Dim oldValue As String = ""
 
Try
    dbConn.Open()
    dbReader = sqlComm.ExecuteReader()
    While dbReader.Read()
        'Als de vorige gelezen waarde (bedrijfsnaam) verschilt van
        'de vorige: nieuwe TreeNode maken en toevoegen
        If Not oldValue.Equals(dbReader.GetValue(0).ToString()) Then
            parentNode = New TreeNode(dbReader.GetValue(0).ToString())
            treeOpdrachten.Nodes.Add(parentNode)
        End If
        'Achteraf telkens de opdrachten toevoegen aan een bedrijf
        parentNode.Nodes.Add(dbReader.GetValue(1).ToString())
        'Laatst gelezen bedrijfsnaam opslaan om te vergelijken
        oldValue = dbReader.GetValue(0).ToString()
    End While
    dbReader.Close()
Catch ex As Exception
    MessageBox.Show(ex.Message, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Information)
Finally
    dbConn.Close()
End Try
 

Je zal zien dat als je de code in je Visual Studio, er in de volgende regel het eerste woord (parentNode) onderlijnd staat:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                parentNode.Nodes.Add(dbReader.GetValue(1).ToString())

parentNode.Nodes.Add(dbReader.GetValue(1).ToString())

Dat is omdat je deze gebruikt alvorens ze een waarde te geven en er eventueel fouten kunnen optreden, maar aangezien je altijd zoizo eerst een ParentNode aanmaakt (immers, oldValue is gelijk aan "") zal dit geen problemen opleveren. Alleen als er een veld is in je DB waar de bedrijfsnaam leeg is én als dit de eerste gelezen waarde is, maar de kans dat dat gebeurt...

Edit:
Ohja, nog iets. Eigenlijk zit je DB op deze manier niet goed in elkaar want als je echt veel gegevens gaat krijgen heb je veel dubbele gegevens. Je kan dan beter een aparte tabel voor de bedrijven maken met als kolommen (ID, Naam, ...). Dat ID gebruik je dan in plaats van de Naam nu, je moet dan enkel je query aanpassen.

Veel succes!

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten