Этот VBScript распечатает операторы SQL из сохраненных запросов в вашей базе данных MDB.
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