得到MDB数据库表名VBS脚本

最新推荐文章于 2021-02-22 06:30:43 发布

原创最新推荐文章于 2021-02-22 06:30:43 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #table #microsoft #access #脚本

本文介绍了一种使用VBA从Access数据库中获取所有表及其类型的方法。通过创建ADODB连接对象并打开指定的MDB文件，可以遍历数据库中的每个表，输出其名称和类型。

set adoCN   =createobject("ADODB.CONNECTION")
set strCnn =createobject("ADODB.Recordset")
set rstSchema   =createobject("ADODB.Recordset")

Dim   I
        str1   =   "DBQ=E:/data1.MDB;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
        adoCN.Open   str1
                      i=adSchemaTables
        Set   rstSchema   =   adoCN.OpenSchema(20)

        Do   Until   rstSchema.EOF
                  If   rstSchema("TABLE_TYPE")      =   "TABLE"   Then
                        out   =   out   &   "Table     name:     "   &   _
                                rstSchema("TABLE_NAME")      &   vbCr   &   _
                                "Table     type:     "   &    rstSchema("TABLE_TYPE")    &   vbCr
                          I   =   I   +   1
                  End   If
                  rstSchema.MoveNext
        Loop
        MsgBox   I
        rstSchema.Close

        adoCN.Close
MsgBox out