Excel VBA 访问 SQL 语句

Question

我正在尝试将数据从 Excel 添加到访问数据库中，我想一次性添加许多值。

问题在于 Excel 报告 SQL 缺少尾随分号 (;) 这是失败的 SQL 代码的摘录。

这是构建的 SQL 语句

INSERT INTO ThisTable (FirstName, LastName) VALUES ('John','Smith'),('Ringo','Star'),('Chris','Jones');

' --- Test Access Creation --- '
Sub Example2()
    'the path to create the new access database
    Dim strPath As String
    'an DAO object
    Dim db As DAO.Database
    
    Dim command As String
    Let command = "INSERT INTO ThisTable (FirstName, LastName) " & _
                "VALUES " & _
                "('John','Smith')," & _
                "('Ringo','Star')," & _
                "('Chris','Jones');"
    
    Debug.Print command
    
    strPath = "A:\NewDB"
    Set db = DAO.OpenDatabase(strPath)
    'Set db = DAO.CreateDatabase(strPath, DAO.dbLangGeneral)
    'db.Execute "CREATE TABLE ThisTable " _
            & "(FirstName CHAR, LastName CHAR);"
            
    db.Execute command
                
    
    Dim rst As DAO.Recordset
    Set rst = db.OpenRecordset("Select * FROM ThisTable")
    
     'Begin row processing
    Do While Not rst.EOF
        
        Debug.Print Trim(rst.Fields(0)) & " " & Trim(rst.Fields(1))
        rst.MoveNext
       
    Loop
    
    db.Close
    
End Sub

Answer 1

使用 UNION 查询在一个 INSERT 操作中添加多个带有文字字符串的记录。

    Let command = "INSERT INTO ThisTable (FirstName, LastName) " & _
                  "SELECT FirstName, LastName FROM (" & _
                      "SELECT 'John' AS FirstName, 'Smith' AS LastName FROM ThisTable "  & _
                      "UNION SELECT 'Ringo', 'Star' FROM ThisTable " & _
                      "UNION SELECT 'Chris', 'Jones' FROM ThisTable)" & _