I need to have Treeview Regions/Town/contact any advice how it is best to do this
anyone who can help me to get list to treeview like this
Regions
--Town
--contact
I have Table one for Regions and one for Town and the Table contact
to day the database/treeview is like this
company
--contact
Code:
Public Sub getcompany()
Dim conn As Common.DbConnection
cnString = String.Format("Server=SERVER;Database=DATABASE;Uid=USER;Pwd=PASSWORD;SslMode=none;")
Dim sqlQRY As String = "SELECT * FROM company ORDER BY company Asc"
conn = New MySqlConnection(cnString)
Try
conn.Open()
'create command
Dim cmd As Common.DbCommand = New MySqlCommand(sqlQRY, conn)
'create data reader
Dim rdr As MySqlDataReader = cmd.ExecuteReader
While (rdr.Read)
TreeView1.Nodes.Add(rdr("ID").ToString, rdr("company").ToString, 1, 2)
AddOrders(rdr("ID").ToString)
End While
Catch ex As Common.DbException
MsgBox(ex.ToString)
Finally
' Close connection
conn.Close()
End Try
End Sub
Private Sub AddOrders(ByVal companyID As String)
Dim conn2 As Common.DbConnection
'Create connection
conn2 = New MySqlConnection(cnString)
Dim sqlQRY As String = "SELECT * FROM contact WHERE companyID = '" & companyID & "' ORDER BY contact Asc"
' Open connection
conn2.Open()
'create command
Dim cmd As Common.DbCommand = New MySqlCommand(sqlQRY, conn2)
'create data reader
Dim rdrs As MySqlDataReader = cmd.ExecuteReader
While (rdrs.Read)
TreeView1.Nodes(companyID).Nodes.Add("", rdrs("contact").ToString, 5, 3)
End While
End Sub