得到MDB数据库表名VBS脚本

关注

原创最新推荐文章于 2026-04-28 05:46:52 发布 1.4k 阅读 AI 写同款· GEO 优化 ›

HYTop.mdb解压工具：MDB文件自动化处理市场上有许多针对MDB文件的解压工具，它们在功能和易用性方面各有千秋。一些常见的工具包括MDBViewer、Microsoft Access、DB Browser for SQLite以及一些第三方库如Python的pyodbc或者mxodbc。这些工具一般提供了查看、编辑、导出数据库内容的功能。然而，这些工具并非都适合IT专业人员使用，比如有些工具功能较为基础，无法满足复杂的数据分析需求。数据完整性指的是数据的准确性和一致性，确保在任何情况下，数据不会由于错误或事故而被破坏或丢失。阅读详情

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