Ошибка доступа MS с DAO Recordset

Question

Я пытаюсь создать пустой набор записей DAO rs2, структура которого аналогична существующему набору записей rs1 (который содержит более 200 полей). Но я столкнулся с ошибкой, которая не возникает, когда я использую набор записей ADO:

dim rs2 as recordset 

With rs2.Fields 
    For Each fld In rs.Fields 
     .Append fld, adVariant 
    Next 
End With 

Ошибка в неправильном количестве аргументов.

Answer 1

ADO позволяет вам добавить поле в коллекцию Recordset.Fields при определенных обстоятельствах. Вот почему версия вашего кода ADO работает без ошибок.

Однако метод DAO Fields.Append не может использоваться с Recordset. Вместо этого вам нужно будет добавить в таблицу поле или выражение поля для запроса, которое будет использоваться в качестве источника данных набора записей.

Answer 2

Я знаю, что это решение не подходит для производительности, но вы можете попробовать в любом случае. Во-первых, клонировать записей:

Set rs2 = rs.clone 

И затем, если вам нужно только структуру, пустой это:

Do until rs2.EOF 
    rs2.Delete 
Loop