【发布时间】:2015-01-21 15:19:39
【问题描述】:
我有一个要转移到 SQL 服务器数据库的访问数据库。但是我有一个 VBA 程序,我仍然想在 SQL 数据库中使用它。有没有办法像 VBA 在访问中那样自动化 SQL 查询?任何帮助将不胜感激。
编辑:
这是我的 VBA 代码的 sn-p。
deleteVerifTable = "DELETE * FROM VerifiedFormularies"
verifiedForm = "INSERT INTO VerifiedFormularies ([CLIENT ID], [CLIENT NAME], [MARKET SEGMENT], [FORMULARY ID], [FORMULARY NAME], [FORMULARY VERSION], [APPROVAL STATE], [ARCHIVED]) " & _
"SELECT DD.[CLIENT ID], DD.[CLIENT NAME], DD.[MARKET SEGMENT], DD.[FORMULARY ID], DD.[FORMULARY NAME], DD.[FORMULARY VERSION], DD.[APPROVAL STATE], [ARCHIVED] " & _
"FROM " & tableName & " as DD " & _
"Where DD.[APPROVAL STATE] IN (""APPROVED AND PUBLISHED"", ""APPROVED"", ""APPROVED WITH CHANGES"", ""APPROVED WITH POSTED CHANGES"") " & _
"AND DD.[Client ID] NOT IN (SELECT Exclusions.[Client ID] FROM Exclusions)" & _
"AND DD.[ARCHIVED] NOT IN(""YES"")" & _
"AND DD.[CLIENT ID] NOT IN(SELECT Exclusions.[Client ID] FROM Exclusions)" & _
"AND YEAR(DD.[APPROVED DATE]) >= " & year & " AND MONTH(DD.[APPROVED DATE]) > 1 AND DAY(DD.[APPROVED DATE]) > 1"
【问题讨论】:
-
自动化是什么意思?
-
你的 vba 代码是做什么的?
-
我的 VBA 代码允许用户输入某些日期并运行针对他们输入的信息量身定制的 SQL 查询。
-
喜欢搜索查询?这些不是自动的。 VBA 中有一些代码可以捕获用户事件(如单击按钮)并执行查询。这同样适用,但查询现在从 sql server 中提取而不是访问。
标签: sql-server ms-access vba ms-access-2010