ADO - 如何复制表中的记录

Question

我正在创建将TableiN复制到TableOut

cn.Execute _
    "INSERT INTO TableOut" & _
    "SELECT FirstName, Status " & _
    "FROM TableiN"

如果状态等于＆＃34; a + b＆＃34;在TableiN记录中，我需要在TableOut中复制两次该记录：一个记录状态=＆＃34; a＆＃34;状态=＆＃34; b＆＃34;

Answer 1

使用CROSS JOIN复制记录。 UNION ALL可用于指定两种状态。

cn.Execute _
    "INSERT INTO TableOut" & _
    "SELECT FirstName, Status " & _
    "FROM TableiN CROSS JOIN (SELECT 'a' as status UNION ALL SELECT 'b' as status) as status_tb"