请问：知道一个ado的connection怎么样得到它连接的数据库中的所有表的名称

[softman_2000]

这里谢谢了。

[ufcr]

sql server是从系统表sysobjects表中读出的

[snakeyin]

同意ferrytang(四眼丑田雞)

[water_j]

gz!

[miniant]

首先，引用Microsoft ADO Ext. 2.6 For DDL...（msadox.dll)文件
以下是一个例子：
Dim tblLoop As New ADOX.Table
Dim cat As New ADOX.Catalog
Dim strOwner As String

' Open the Catalog.
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\" & _
"Microsoft Office\Office\Samples\Northwind.mdb;" & _
"jet oledb:system database=" & _
"c:\Program Files\Microsoft Office\Office\system.mdw"

' Print the original owner of Categories
strOwner = cat.GetObjectOwner("Categories", adPermObjTable)
Debug.Print "Owner of Categories: " & strOwner

[miniant]

重写例子：
' BeginOwnersVB
Sub OwnersX()

Dim tblLoop As New ADOX.Table
Dim cat As New ADOX.Catalog
Dim strOwner As String

' Open the Catalog.
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\" & _
"Microsoft Office\Office\Samples\Northwind.mdb;" & _
"jet oledb:system database=" & _
"c:\Program Files\Microsoft Office\Office\system.mdw"

' Print the original owner of Categories
strOwner = cat.GetObjectOwner("Categories", adPermObjTable)
Debug.Print "Owner of Categories: " & strOwner

' Set the owner of Categories to Accounting
cat.SetObjectOwner "Categories", adPermObjTable, "Accounting"

' List the owners of all tables and columns in the catalog.
For Each tblLoop In cat.Tables
Debug.Print "Table: " & tblLoop.Name
Debug.Print " Owner: " & _
cat.GetObjectOwner(tblLoop.Name, adPermObjTable)
Next tblLoop

[ferrytang]

如果你连的是的sql server或者oracle那还可以知道
如果是access....
别犯傻了！

[softman_2000]

多谢各位的帮忙，我就只能给80分，得分的两位我都比较满意，一人给四十分
没有太多得分了，见谅。