SQL语句中的语法错误(2)

问题描述:

我想在VBA宏中运行这条SQL语句,但由于某种原因,由于语法错误,我无法找到它,所以它不会运行。我对VBA相当陌生,所以任何帮助指出这个错误将不胜感激。SQL语句中的语法错误(2)

Dim dte As String, db As Database, tableName As String, DataDump As Recordset, clientTable As Recordset 
Set db = CurrentDb 
dte = InputBox("What date was the Data Dump run?", "Please Input a date") 
tableName = "FN_DataDump_ALL_" & dte 
Set DataDump = db.OpenRecordset(tableName, dbOpenDynaset, dbEditAdd) 
Set clientTable = db.OpenRecordset("Clients", dbOpenDynaset, dbEditAdd) 

MySQL = "SELECT DISTINCT DD.[Client ID] " & _ 
     "INTO Clients " & _ 
     "FROM " & tableName & "as DD " & _ 
     "Where CL.[Client ID] NOT IN (SELECT DD.[Client ID] ""FROM"" & tableName & ""as DD"") " 

db.Execute MySQL 

错位引号FROM,而遗漏的空间产生TABLENAMEAS,而不是:

= "SELECT DISTINCT DD.[Client ID] " & _ 
     "INTO Clients " & _ 
     "FROM " & tableName & " as DD " & _ 
     "Where CL.[Client ID] NOT IN (SELECT DD.[Client ID] FROM " & tableName & " as DD)" 
+0

谢谢!还有一件事,如果表已经存在,我可以'SELECT ... INTO'吗? – William 2014-12-02 19:01:05

+0

在这种情况下,您将使用INSERT INTO。 – 2014-12-02 19:03:57

+0

所以我只是将'SELECT'改为'INSERT'? – William 2014-12-02 19:04:54