sql - 将所有MS Access SQL查询导出到文本文件

Question

我必须记录一个包含许多宏查询等的MS Access数据库。我希望使用代码将每个SQL查询提取到与查询名称相同的文件中，例如，如果查询名为q_warehouse_issues，那么我希望提取SQL到名为q_warehouse_issues.sql的文件

我不想导出查询结果集，只是SQL!

我知道我可以在Access中手动执行此操作，但是我对所有的单击，执行saveas等操作感到厌倦。

Answer 1

这应该使您开始:

  Dim db As DAO.Database
  Dim qdf As DAO.QueryDef

  Set db = CurrentDB()
  For Each qdf In db.QueryDefs
    Debug.Print qdf.SQL
  Next qdf
  Set qdf = Nothing
  Set db = Nothing

您可以使用文件系统对象或内置的VBA文件I / O功能将SQL写出到文件中。我假设您要问的是有关如何获取SQL的问题，而不是有关如何写出文件的问题，但是如果您需要，请在评论中说出这一点，然后我将对帖子进行编辑(否则，有人会用说明)。