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)"
谢谢!还有一件事,如果表已经存在,我可以'SELECT ... INTO'吗? – William 2014-12-02 19:01:05
在这种情况下,您将使用INSERT INTO。 – 2014-12-02 19:03:57
所以我只是将'SELECT'改为'INSERT'? – William 2014-12-02 19:04:54