在另一个数据库中编辑查询
Editing a query in another DB
是否可以从一个 Access 数据库中打开第二个 Access 数据库,并在第二个数据库中编辑查询?我知道您可以从一个 Access 数据库打开另一个,但我不确定您是否可以那样编辑查询。
如果可能的话,谁能告诉我一些示例代码来做到这一点?
使用 OpenDatabase
到 return 对远程数据库的 DAO.Database
引用。然后您可以通过其 QueryDefs
集合访问已保存的查询。
这是来自即时 window 的示例:
set db = OpenDatabase("C:\share\Access\Database1.mdb")
Debug.Print db.QueryDefs("Query1").SQL
SELECT dbo_foo.bar, TypeName(bar) AS TypeOfBar
FROM dbo_foo;
db.QueryDefs("Query1").SQL = "SELECT d.bar, TypeName(d.bar) AS TypeOfBar" & vbcrlf & _
"FROM dbo_foo AS d;"
Debug.Print db.QueryDefs("Query1").SQL
SELECT d.bar, TypeName(d.bar) AS TypeOfBar
FROM dbo_foo AS d;
db.close
是否可以从一个 Access 数据库中打开第二个 Access 数据库,并在第二个数据库中编辑查询?我知道您可以从一个 Access 数据库打开另一个,但我不确定您是否可以那样编辑查询。
如果可能的话,谁能告诉我一些示例代码来做到这一点?
使用 OpenDatabase
到 return 对远程数据库的 DAO.Database
引用。然后您可以通过其 QueryDefs
集合访问已保存的查询。
这是来自即时 window 的示例:
set db = OpenDatabase("C:\share\Access\Database1.mdb")
Debug.Print db.QueryDefs("Query1").SQL
SELECT dbo_foo.bar, TypeName(bar) AS TypeOfBar
FROM dbo_foo;
db.QueryDefs("Query1").SQL = "SELECT d.bar, TypeName(d.bar) AS TypeOfBar" & vbcrlf & _
"FROM dbo_foo AS d;"
Debug.Print db.QueryDefs("Query1").SQL
SELECT d.bar, TypeName(d.bar) AS TypeOfBar
FROM dbo_foo AS d;
db.close