1 2 3 4 5 6 7 8 9 10 11
| Dim tables As DataTable = dbConnection.GetSchema("Tables");
Dim columns As DataTable = dbConnection.GetSchema("Columns");
For Each tableRow As DataRow In tables.Rows
Dim tableName As String = tableRow("TABLE_NAME").ToString()
Dim tableNode As TreeNode = treeView.Nodes.Add(tableName)
Dim filter As String = String.Format("TABLE_NAME = '{0}'", tableName)
For Each columnRow As DataRow In columns.[Select](filter)
Dim columnName As String = columnRow("COLUMN_NAME").ToString()
Dim columnNode As TreeNode = tableNode.Nodes.Add(columnName)
Next
Next |