Adding table values to a treeview?

See more:

VB

database

treeview

I am using Vb 2008 express edition and am very new to treeviews. i have basic knowledge of how to connect to a database. the database i am working with is a microsoft access database and has a large amount of tables with various information. two of these tables i need to put into a treeview. one has 2 columns called date and date id, the date will be the main nodes on the treeview. the other table has 8 colums, among them are the corresponding date id's from the first table, the purchase order id and the purchase order number. the child nodes will be the purchase order number.

Now i know there are a bunch of tutorials out there on treeview population through microsoft access databases but i have found none specifically with what i need, they are all just about dumping ALL the data from the database into the table. i just want specific contents of two tables. if someone could help me out with this i would be very grateful. i can give more information if needed on what i am working with or anything else.!

here is my code as of now, there are two variants i have been trying both are included

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient

Public Class Form1
    Dim mypath = "I:\Casegoods\Database\Expertpetrolia.mdb"
    Dim conn As New OleDbConnection("Provider = microsoft.ace.oledb.12.0;Data Source=" & mypath)
    Dim cmd As OleDbCommand
    Dim dr As OleDbDataReader
    Dim sql1 = "SELECT * FROM Supply_Date ORDER BY [Due_Date]"
    Dim sql2 = "SELECT * FROM Supply_Date INNER JOIN Total_Purchase ON Supply_Date.Date_Id = Total_Purchase.Date_Id ORDER BY [Due_Date]"

    Dim dr2 As OleDbDataReader

    'Dim sql2 = "SELECT * FROM Total_Purchase ORDER BY [Date_Id]"
    Dim cmd2 As OleDbCommand






    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim cmd As OleDbCommand
        Using conn



            cmd = New OleDbCommand(sql1, conn)
            cmd2 = New OleDbCommand(sql2, conn)
            conn.Open()

            dr = cmd.ExecuteReader
            dr2 = cmd2.ExecuteReader

            If dr.HasRows Then
                Do While dr.Read()
                    Dim parent As String = (dr.Item("Due_Date"))

                    If DateDiff(Microsoft.VisualBasic.DateInterval.Day, Today, (dr.Item("Due_Date"))) > -10 Then
                        TreeView1.Nodes.Add(parent)
                        If (dr2.Item("Date_Id")) = (dr.Item("Date_Id")) Then
                            TreeView1.Nodes(parent).Nodes.Add(dr2.Item("Purchase_Order_Number"))

                        End If

                    End If


                Loop
            Else
                MsgBox("No Things found")
            End If



            dr.Close()

        End Using

    End Sub
    'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    '    Dim cmd As OleDbCommand
    '    Using conn



    '        cmd = New OleDbCommand(sql1, conn)
    '        'cmd2 = New OleDbCommand(sql2, conn)
    '        conn.Open()


    '        Dim dr As OleDbDataReader = cmd.ExecuteReader
    '        ' Dim dr2 As OleDbDataReader = cmd2.ExecuteReader

    '        Do While dr.Read()
    '            Dim str1 As String = dr.Item("Due_Date")
    '            Dim str2 As String = dr.Item("Date_Id")
    '            Try
    '                Dim str3 As String = dr.Item("date_id")
    '                Dim str4 As String = dr.Item("Purchase_Order_Number")
    '                If DateDiff(Microsoft.VisualBasic.DateInterval.Day, Today, (dr.Item("Due_Date"))) > -10 Then
    '                    TreeView1.Nodes.Add(str1)
    '                    If str2 = str3 Then
    '                        TreeView1.Nodes(0).Nodes.Add(New TreeNode(str4))
    '                    End If
    '                End If
    '            Catch ex As Exception
    '                MsgBox(ex.Message, MsgBoxStyle.Critical, "stupid dims")
    '            End Try


    '        Loop

    '    End Using

    'End Sub
End Class