А что, Access не инсертит UNION'ы??

[VVitafresh]

Хотел выполнить элементанрый запрос типа:

Код: Выделить всё

Set cn = Application.CurrentProject.Connection
SQL = "insert into b(acc) " & _
       "select acc1 from a1 UNION select acc2 from a2"
cn.Execute SQL

Пишет:

Run-time error: -2147217900. Syntax error in FROM clause

Неужели в Access нельзя проинсертить результат нескольких объединенных Select'ов
Или я где-то ошибся?

[GSerg]

Двумя...

[VVitafresh]

Неа...
Будет задвоение записей. Мне нужна уникальность.

[GSerg]

Двумя...
Двумя запросами...
Один SELECT UNION SELECT, другой - INSERT SELECT FROM Запрос1...

[VVitafresh]

Тогда такой детский вопрос (с Access я работаю редко). Как программно сохранить этот SQL запрос:

Код: Выделить всё

select acc1 from a1 UNION select acc2 from a2

как запрос Access.

[GSerg]

Дык как всегда...

Код: Выделить всё

    Set c = New ADOX.Catalog
    c.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
   
    Set cm = New ADODB.Command
    Set cm.ActiveConnection = c.ActiveConnection
    cm.CommandType = adCmdText
   
    cm.CommandText = "SELECT acc1 FROM a1 UNION SELECT acc2 FROM a2"
    c.Procedures.Append "Query1", cm
   
    c.ActiveConnection.Close

[VVitafresh]

Ага, спасибо.