用adodc连接数据库，怎么能得到数据库的所有数据表名称？

Question

如题。
数据库是Access、SQLServer或者Oracle，能取得到吗？
不想用DAO谢谢帮忙

Answer 1

Access,其他自己试Private Sub Command1_Click()
    Dim intIndex                        As Integer
    Dim objCon                          As ADODB.Connection
    Dim objRst                          As ADODB.Recordset
      
    ' 產生一個新Connection物件，並設定objCon作為存取的物件變數。
    Set objCon = New ADODB.Connection
    
    ' 使用Open方法連接，並設定相關參數。
    objCon.Open gstrConn_NWind
    
    ' 找出資料表名稱。
    Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
    
    ' 列舉名稱、型態、修改日期資料。
    If objRst.RecordCount <> 0 Then
        intIndex = 1
        Do Until objRst.EOF
            lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME")
            lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE")
            lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd")
            intIndex = intIndex + 1
            objRst.MoveNext
        Loop
    End If
    
    objRst.Close
    objCon.Close
    Set objRst = Nothing
    Set objCon = Nothing
End Sub