Проблемы с OpenSchema

[kdvstat]

Во время работы с OpenSchema возникла проблема.Я считываю в Rst список колонок в моей таблице. Затем в цикле пытаюсь выполнять SQL запросы к этой же таблице. появляется сообщение об ошибке что таблица уже открыта для монопольного доступа.

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


Dim SQLstr As String
Dim Rst As Recordset

Set Rst = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, "MyTable", Empty))
Do Until Rst.EOF
     SQLstr = "UPDATE MyTable SET [" & Rst!COLUMN_NAME & "]='ДА' WHERE [OKPO]=" & Trim(Form_MyTable.OKPO.Text) & ";"
     DoCmd.RunSQL SQLstr
     Rst.MoveNext
Loop
Rst.Close


Попытался использовать метод Clone для копирования записи из OpenSchema, но появляется сообщение об ошибке типа курсора.

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


Dim SQLstr As String
Dim Rst, Rst1 As Recordset

Set Rst1 = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, "MyTable", Empty))
Set Rst = Rst1.Clone
Do Until Rst.EOF
     SQLstr = "UPDATE MyTable SET [" & Rst!COLUMN_NAME & "]='ДА' WHERE [OKPO]=" & Trim(Form_MyTable.OKPO.Text) & ";"
     DoCmd.RunSQL SQLstr
     Rst.MoveNext
Loop
Rst.Close


Как можно скопировать запись из OpenSchema??

[alibek]

А что должен делать данный код?

[kdvstat]

В данном коде я работаю с таблицей MyTable, в которую динамически добавляются столбцы с определенной отметкой(ОТОБРАНА, НЕ ОТОБРАНА). Поэтому, чтобы узнать какие столбцы есть в таблице, использую OpenSchema. У меня есть событие(Допустим нажатие кнопки), по которому меняется отметка во всех столбцах для определенной записи.

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


    Set Rst1 = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, "MyTable", Empty))
    Set Rst = Rst1.Clone
    Do Until Rst.EOF
        If DCount("*", "MyTable", "[" & Rst!COLUMN_NAME & "]='НЕ ОТОБРАНА' and [OKPO]=" & Form_MyTable.OKPO.Text) > 0 Then
                SQLstr = "UPDATE MyTable SET [" & Rst!COLUMN_NAME & "]='ОТОБРАНА' WHERE [OKPO]=" & Trim(Form_MyTable.OKPO.Text) & ";"
                DoCmd.RunSQL SQLstr
        End If
        Rst.MoveNext
    Loop
    Rst.Close


Возникает проблема, так как OpenSchema использует таблицу в монопольном режиме и SQL запросы не проходят. Также не возможно клонировать запись из OpenSchema, так как не поддерживается курсор. Не знаю что делать..

[HandKot]

так результат OpenSchema перекиньте в массив или коллекцию и закройте этот рекордсет