sql-server - ADOX - 未列出 SQL Server 架构中的表

Question

我正在使用 ADOX 检索表名，但未列出 DBO 以外的架构中的任何表。

Sub ListTablesADOX()
  Dim Conn As New ADODB.Connection

  'Open connection you want To get database objects
  Conn.Provider = "MSDASQL"
  Conn.Open "DSN=...;Database=...;", "UID", "PWD"

  'Create catalog object
  Dim Catalog As New ADOX.Catalog
  Set Catalog.ActiveConnection = Conn

  'List tables And columns
  Dim Table As ADOX.Table
  For Each Table In Catalog.Tables
      Debug.Print Table.Name
  Next
End Sub 

Answer 1

我放弃了使用 ADOX，而是使用 ADO OpenSchema 方法重新编码了我的所有获取目录信息过程，但我无法将 ADOX 用于 dbo 模式之外的任何内容。