Imports Microsoft.SqlServer.Management
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common
Dim objServer as Server
Dim objDatabase As Database
objServer = New Server()
objDatabase = objServer.Databases("SMOSample")
'****************************************************
' Use Tables property to get list of tables
'****************************************************
Debug.WriteLine("Tables in Database " & objDatabase.Name)
For Each objTable As Table in objDatabase.Tables
Debug.WriteLine("Table: " & strServer)
Next
'****************************************************
' Use EnumObjects method to get list of tables
'****************************************************
Debug.WriteLine("Tables in Database " & objDatabase.Name)
For Each objRow As DataRow In _
m_objDatabase.EnumObjects(DatabaseObjectTypes.Table, _
Smo.SortOrder.Name).Rows
Debug.WriteLine("Table " & CStr(objRow("Name")))
Next