Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Getting all the tables from SQL Server?
- Thread starter 99mel
- Start date
Set references to MS ADO 2.x, and MS ADO Extensions for Security. Then play with this code...
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
cnn.Open "Yourconnectionstring"
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
List1.AddItem tbl.Name
Next
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
cnn.Open "Yourconnectionstring"
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
List1.AddItem tbl.Name
Next
- Status
Similar threads
- Locked
- Question
- Locked
- Question
