Murray Brown
asked on
VB.net adding code to find the joins between SQL tables
Hi. I am using the following code to get the names of a SQL database. What code would I add to find relationships between any of the tables. Thanks
Public Sub Populate_TreeView_From_SQL ()
Dim SQLExpression As String = _
"SELECT TABLE_NAME, COLUMN_NAME FROM information_schema.columns ORDER BY TABLE_NAME,COLUMN_NAME"
Dim Rootnode As TreeNode = Nothing
Dim Mainnode As TreeNode = Nothing
Dim Childnode As TreeNode = Nothing
Dim MainName As String = String.Empty
Dim oConnectionString As String = Me.RichTextBox1.Text
Dim cn As New SqlConnection(oConnectionS tring)
Dim adp As New SqlDataAdapter(SQLExpressi on, cn)
Dim ds As New DataSet
adp.Fill(ds, "SystemData")
Me.TreeView_From.Nodes.Cle ar()
'Dim Con As String = "server=196.220.43.247,144 4;uid=murb ro73;pwd=c hestnut3;d atabase=te st"
Rootnode = Me.TreeView_From.Nodes.Add (key:="Roo t", text:="database name here", _
imageIndex:=0, selectedImageIndex:=0)
For Each row As DataRow In ds.Tables("SystemData").Ro ws
If MainName <> row(0).ToString Then
Mainnode = Rootnode.Nodes.Add(key:="T able", text:=row(0).ToString, _
imageIndex:=1, selectedImageIndex:=1)
MainName = row(0).ToString
End If
Childnode = Mainnode.Nodes.Add(key:="C olumn", text:=row(1).ToString, _
imageIndex:=2, selectedImageIndex:=2)
Next
Me.TreeView_From.Nodes(0). EnsureVisi ble()
Me.TreeView_From.ExpandAll ()
Me.TreeView_From.Scrollabl e = True
ds.Dispose()
ds = Nothing
adp.Dispose()
adp = Nothing
cn.Dispose()
cn = Nothing
End Sub
Public Sub Populate_TreeView_From_SQL
Dim SQLExpression As String = _
"SELECT TABLE_NAME, COLUMN_NAME FROM information_schema.columns
Dim Rootnode As TreeNode = Nothing
Dim Mainnode As TreeNode = Nothing
Dim Childnode As TreeNode = Nothing
Dim MainName As String = String.Empty
Dim oConnectionString As String = Me.RichTextBox1.Text
Dim cn As New SqlConnection(oConnectionS
Dim adp As New SqlDataAdapter(SQLExpressi
Dim ds As New DataSet
adp.Fill(ds, "SystemData")
Me.TreeView_From.Nodes.Cle
'Dim Con As String = "server=196.220.43.247,144
Rootnode = Me.TreeView_From.Nodes.Add
imageIndex:=0, selectedImageIndex:=0)
For Each row As DataRow In ds.Tables("SystemData").Ro
If MainName <> row(0).ToString Then
Mainnode = Rootnode.Nodes.Add(key:="T
imageIndex:=1, selectedImageIndex:=1)
MainName = row(0).ToString
End If
Childnode = Mainnode.Nodes.Add(key:="C
imageIndex:=2, selectedImageIndex:=2)
Next
Me.TreeView_From.Nodes(0).
Me.TreeView_From.ExpandAll
Me.TreeView_From.Scrollabl
ds.Dispose()
ds = Nothing
adp.Dispose()
adp = Nothing
cn.Dispose()
cn = Nothing
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER