Копирование записи

[X-BOND]

Имею две таблицы, структура абсолютно одинакова.
Как правлильно скопировать определенную запись (все поля) из одной таблицы в другую?

[skiperski]

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

"INSERT INTO Table1 SELECT * FROM Table2 WHERE Id = " & Id

[X-BOND]

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

"INSERT INTO Table1 SELECT * FROM Table2 WHERE Id = " & Id

А что перед этим писать надо? RS.OpenRecordset что-ли?

[skiperski]

Для ADODB

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

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
cn.Open ConnectionString

sql = "INSERT INTO Table1 SELECT * FROM Table2 WHERE Id = " & Id
cn.Execute sql

cn.Close

[X-BOND]

Я работаю с DAO

[alibek]

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

Dim db As DAO.Database
Set db = OpenDatabase(...)
db.Execute SQL
db.Close
Set db = Nothing

[X-BOND]

Вери Сенкс Вам уважаемый skiperski и Вам господин Alibek
Усе работает