您正在 access911.net -> 静态资料库

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-2-7 浏览人次：1876

Public Function listalltable()

    Dim rstSchema As ADODB.Recordset
    Dim strCnn As String

    Set cnn2 = CurrentProject.Connection

    Set rstSchema = cnn2.OpenSchema(adSchemaTables)

        Do Until rstSchema.EOF
            Debug.Print "Table name: " & _
                rstSchema!TABLE_NAME & vbCr & _
                "Table type: " & rstSchema!TABLE_TYPE & vbCr
            rstSchema.MoveNext
        Loop
    rstSchema.Close

    cnn2.Close

End Function

列出所有用户表的代码如下：

.....................
...........

只用ado列出所有的表