当前位置：文江博客话题详情

打开没有访问权限的 mdb 访问文件

发布于 2024-08-03 08:09:57 字数 170 浏览 2 评论 0原文

我没有 Microsoft 访问权限，但想打开 mdb 文件，有什么方法可以做到这一点吗？

mdb 文件包含我需要的 SQL 代码。它只是一个连接到远程数据库的文件。 sql 代码

我需要查看我尝试过 openoffice base 的，但它只向我显示了一些表格。我没看到sql代码在哪里？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

等待我真够勒 2024-08-10 08:09:57

该 VBScript 将从 MDB 数据库中保存的查询中打印出 SQL 语句。

Option Explicit
Dim dbe
Dim db
Dim qdf

Set dbe = CreateObject("DAO.DBEngine.36")
'change the next line to include the full path to your database
Set db = dbe.OpenDatabase("C:\SomeFolder\YourDatabase.mdb")
For Each qdf In db.QueryDefs
    If Left(qdf.Name,1) <> "~" Then
        Wscript.StdOut.WriteLine qdf.Name
        Wscript.StdOut.WriteLine qdf.SQL
        Wscript.StdOut.WriteLine String(20, "-")
    End If
Next
Set db = Nothing
Set dbe = Nothing

我将其保存为 DumpQuerySQL.vbs，然后从命令提示符运行它，如下所示：

cscript DumpQuerySQL.vbs > querySQL.txt

This VBScript will print out the SQL statements from the saved queries in your MDB database.

Option Explicit
Dim dbe
Dim db
Dim qdf

Set dbe = CreateObject("DAO.DBEngine.36")
'change the next line to include the full path to your database
Set db = dbe.OpenDatabase("C:\SomeFolder\YourDatabase.mdb")
For Each qdf In db.QueryDefs
    If Left(qdf.Name,1) <> "~" Then
        Wscript.StdOut.WriteLine qdf.Name
        Wscript.StdOut.WriteLine qdf.SQL
        Wscript.StdOut.WriteLine String(20, "-")
    End If
Next
Set db = Nothing
Set dbe = Nothing

I saved it as DumpQuerySQL.vbs, then ran it from a command prompt like this: