得到MDB数据库表名VBS脚本

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

itclock

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

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/itclock/article/details/4838268

版权

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