得到MDB数据库表名VBS脚本

来源：互联网发布：mysql character 编辑：程序博客网时间：2024/04/28 06:29

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