求助在VBA代码中运行ＡＣＣＥＳＳ查询的问题

wnbln · 发表于 2005-11-25 09:03

各位老大，小弟想请教如何在VBA中运行ACCESS的添加查询或是删除查询来实现对数据库的多记录备份操作，具体的说，是想通过该方法将某一个数据库中的若干记录搬到另外一个库里面去。在查询的SQL视图里可以看到SQL的代码， INSERT INTO [SNP-Mengen] IN 'Archiv SNP-Master.mdb' SELECT [SNP-Mengen-2].* FROM Periodenverschiebungen INNER JOIN (Ereignisse INNER JOIN [SNP-Mengen-2] ON Ereignisse.EreignisID = [SNP-Mengen-2].EreignisID) ON Periodenverschiebungen.PeriodenverschiebungID = Ereignisse.PeriodenverschiebungID WHERE (((Periodenverschiebungen.SpielperiodeID)<2)); 可是这些代码可以通过VBA直接运行吗？是不是可以在ＥＸＣＥＬ里运行这些代码来对ACCESS数据库来进行操作．多谢！

ycyhjj2865 · 发表于 2005-11-25 12:38

在ACCESS的VBA代码环境中采用宏指令输写方法为：Docmd.RunSQL " select * from 表名称"；

或Docmd.RunSQL "其他数据操作SQL语句"

在EXCEL中需要在工程中引用MICROSOFT ACCESS 9.0 OBJECT LIBRARY对象才能使用在ACCESSVBA中这样语句。

wnbln · 发表于 2005-11-25 17:31

非常感谢，我先试试啦！这里就是高手多！

wnbln · 发表于 2005-11-25 17:46

再请教一个问题，如果在EXCEL里引用了MICROSOFT ACCESS 9.0 OBJECT LIBRARY对象，运行该语句，应该采用何种方法连接到数据库，是不是用 dim dbsSNP as database Set dbsSNP = OpenDatabase(Application.DefaultFilePath & "\SNP-Master.mdb") 就可以，然后就直接docmd.sql... 多谢！

ycyhjj2865 · 发表于 2005-11-26 10:12

基本如此，但要引用DAO或ADO

cg1 · 发表于 2005-11-29 11:58

关于此主题请参考：
新手来看：动画，如何建立查询，如何运行 JET SQL 语句《查询》
http://access911.net/index.asp?u1=a&u2=72FAB71E15DCEEF3

		自动登录	找回密码
密码			免费注册