MS Access SQL语句进行追加

Question

我对MS Access和SQL比较陌生。

我在访问数据库中有一个查询，用于将一个表追加到另一个表，并按特定的列升序排列，然后使用该列添加列，以分配唯一的标识符。

查询本身在访问中运行良好，但是，我想将其写入表单的VBA代码中，以便在单击按钮时进行操作。

Access中的SQL视图为我提供了以下代码，但是当我将其写入代码时，则表明缺少运算符，有人可以提出建议吗？

码：

DoCmd.RunSQL ("INSERT INTO tblImport ( CustomerAccount, OrderReference, OrderDate, DueDate, CustomerRef," & _
    "StockNo, OrderQuantity, AddressName, Add1, Add2, Add3, Town, County, PostCode, Country, ServiceLine )" & _
    "SELECT tblImport2.CustomerAccount, tblImport2.OrderReference, tblImport2.OrderDate, tblImport2.DueDate," & _
    "tblImport2.CustomerRef, tblImport2.StockNo, tblImport2.OrderQuantity, tblImport2.AddressName, tblImport2.Add1," & _
    "tblImport2.Add2, tblImport2.Add3, tblImport2.Town, tblImport2.County, tblImport2.PostCode, tblImport2.Country," & _
    "tblImport2.ServiceLine" & _
    "FROM tblImport2" & _
    "ORDER BY tblImport2.OrderReference")

Answer 1

保存查询。 然后可以从代码中调用它：

CurrentDb.QueryDefs("NameOfYourAppendQuery").Execute

还是没有查询：

Dim Sql As String

Sql = "<Your SQL string>"
Debug.Print Sql     ' Check SQL.
CurrentDb.Execute Sql

Answer 2

您是否知道在VBA中指定多行字符串（如此处的查询），您需要像这样将这些行连接在一起？ 否则， VBA不会知道它应该是单个字符串。

mySql = "INSERT INTO tblImport ( CustomerAccount, OrderReference, OrderDate, DueDate, CustomerRef, StockNo, OrderQuantity, AddressName, Add1, Add2, Add3, Town, County, PostCode, Country, ServiceLine ) " & _
"SELECT tblImport2.CustomerAccount, tblImport2.OrderReference, tblImport2.OrderDate, tblImport2.DueDate, tblImport2.CustomerRef, tblImport2.StockNo, tblImport2.OrderQuantity, tblImport2.AddressName, tblImport2.Add1, tblImport2.Add2, tblImport2.Add3, tblImport2.Town, tblImport2.County, tblImport2.PostCode, tblImport2.Country, " & _
"tblImport2.ServiceLine " & _
"FROM tblImport2 " & _
"ORDER BY tblImport2.OrderReference; "