请问如何得到数据库连接对象所包含的表对象名称及数目？

Question

我在用DAO时可以通过database.tabledefs得到数据库中各个表的名称，而利用ADO连接数据库时如何实现？

Answer 1

SQL'
'取某数据库下的数据表
'函数名:GetDbTabS
'参数:  DBconn ADO连接
'返回值:包含数据表的字符串数组
'例:    TabArr=GetDbTabS(P_CNN)Public Function GetDbTabs(ByRef DBconn As ADODB.Connection) As String()
   Dim RstSchema As ADODB.Recordset
   Dim strCnn As String
   Dim ReturnVal() As String
   Dim ReID As Long
   
   On Error Resume Next
   
   Set RstSchema = DBconn.OpenSchema(adSchemaTables)
   
   Do Until RstSchema.EOF
      If UCase$(Left$(RstSchema.Fields("TABLE_TYPE"), 3)) <> "SYS" Then
            ReID = ReID + 1
            ReDim Preserve ReturnVal(ReID)
            ReturnVal(ReID - 1) = RstSchema.Fields("TABLE_NAME") ' & ":" & RstSchema!TABLE_TYPE
      End If
      RstSchema.MoveNext
   Loop
   RstSchema.Close
   Set RstSchema = Nothing
   GetDbTabs = ReturnVal
End Function

Answer 2

ACCESS引用.
Microsoft Activex Data Objects 2.5 Library
Microsoft Ado Ext 2.6 For DDL And Security
'=====================================================
Public mCon As ADODB.Connection
Public mCat As ADOX.CatalogPublic DB_Name As String
Public DB_Title As String
Private Sub Command1_Click()
    Dim I As Long
    Dim TBL As ADOX.Table
    
    If Not mCon Is Nothing Then Set mCon = Nothing
    Set mCon = New ADODB.Connection
    
    mCon.Provider = "Microsoft.Jet.OLEDB.4.0"
    mCon.Mode = adModeRead
    mCon.CursorLocation = adUseClient
    mCon.Properties("Data Source") = "E:\WORKSHAR\CODE.MDB"
    mCon.Properties("Jet OLEDB:Database Password") = ""
    mCon.Open
    
    Set mCat = New ADOX.Catalog
    mCat.ActiveConnection = mCon
    
    For Each TABL In mCat.Tables
        Debug.Print TABL.Name
    Next
End Sub

Answer 3

http://expert.csdn.net/Expert/topic/2595/2595114.xml?temp=.6034204http://expert.csdn.net/Expert/topic/2129/2129303.xml?temp=.4159204