通过 ADO 从 JET 数据库中提取查询定义

Question

我在 Delphi 2010 中有一个程序，它通过 ADO 使用 JET (mdb) 数据库。我希望能够提取数据库中某些查询的定义并将其显示给用户。这是否可以通过 SQL、某些 ADO 接口或通过询问数据库本身来实现（我似乎没有 MSysObjects 的权限）。

Answer 1

其中一些信息可通过 ADOX 调用获得。 MSDN 网站。

基本上，您需要做的是导入 ADOX 类型库，然后使用为您生成的包装器来访问底层 API。从那里开始，就像导航层次结构以获取所需的数据一样简单。

您将需要访问特定的查看对象，然后从那里获取命令属性。

Answer 2

通过 DAO，这非常简单。您只需提取每个 QueryDef 的 SQL 属性。在 Access 内的 DAO 中，这将是：

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

  Set db = DBEngine.OpenDatabase("[path/name of database]")
  For Each qdf In db
    Debug.Print qdf.SQL
  Next qdf
  Set qdf = Nothing
  db.Close
  Set db = Nothing

我不知道如何翻译它，但我认为一旦您习惯使用 DAO 而不是 ADOX，这是最简单的方法。

我根本不使用 ADO，但我猜测它有一个视图集合，并且 SQL 属性适用于 SELECT 查询。但是，如果您有兴趣获取所有保存的 QueryDef 的 SQL，您还需要查看 DML 查询，因此您必须查看存储过程。我必须为此查找语法，但我非常确定这就是您通过 ADO 获取信息的方式。