<<< 返回 access911.net 编程静态资料库索引页

只用ado列出所有的表

 

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


专题地址:http://access911.net/fixhtm/72FAB71E14DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:只用ado列出所有的表《ADO/DAO》

 


问题:

只用ado列出所有的表

 


回答:

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


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

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB71E14DC.htm

 


上一篇:蓝色滚动条(css)

下一篇:在一個htm文件中包含一個frame

2017年2月22日生成静态资料