Обновление невозможно. База данных или объект доступны только для чтения

@yuniki · Регистрация: 28.09.2007

Студворк — интернет-сервис помощи студентам

Пишу в макросе Excel нижеприведенный код для соединения с именованным диапазоном активной книги, и при попытке обновить поле получаю :
Обновление невозможно. База данных или объект доступны только для чтения.
Кто может посоветовать как правильно здесь выполнить операцию ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim cnn As ADODB.Connection, Rs As ADODB.Recordset , rngName As String
rngName = 'NameA'
Set cnn = New ADODB.Connection
cnn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
         'Data Source=' & _
         ActiveWorkbook.Path + ' ' + ActiveWorkbook.Name & ';' & _
         'Extended Properties=Excel 8.0' 'HDR=Yes;'
Set Rs = New ADODB.Recordset
Rs.Open Source:='SELECT  F1,F2, F3 from ' & rngName & _
        ' group by F1,F2,f3 order by F1,F2,f3 ', _
        ActiveConnection:=cnn, _
        CursorType:=adOpenDynamic, _
        LockType:=adLockPessimistic, _
        Options:=adCmdText
Rs.MoveFirst
Rs.Fields('F1')='123'

@am86 · 13.05.2008, 09:34

Попробуй сделать так, после создания объекта Rs (Set Rs = New ADODB.Recordset)вставь следующий код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Rs.SourseRs.LockType = adLockOptimistic
Rs.CursorType = adOpenKeyset
 
Rs.Source = 'SELECT F1,F2, F3 from ' & rngName & ' group by F1,F2,f3 order by F1,F2,f3 '
 
Rs.ActiveConnection = cn
Rs.Open
Rs.MoveFirst
Rs.Fields('F1')='123'
Rs.Update

Удачи....

Армен Мнацаканян

@yuniki · 15.05.2008, 01:30 **[ТС]**

Попробовал. К сожалению сработал коммутативный закон - от перестановки слагаемых результат не изменился. Правда, метод Rs.rsSource.Cursortype я понял как Rs.Cursortype .
Но! Но что все-таки тут за бякушка ??? Может надо искать где-то в Excel - защищенный лист, или что-ни еще, Хотя все переискал - не нашел. Да и установки в Excel стоят что выставлены были еще инсталлятором MS-Office . Задачка-то д.б. пустяковая для проффессионалов ...

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK сделайте это, JDK, то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера . . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285
	15.05.2008, 01:30 [ТС]
	Попробовал. К сожалению сработал коммутативный закон - от перестановки слагаемых результат не изменился. Правда, метод Rs.rsSource.Cursortype я понял как Rs.Cursortype . Но! Но что все-таки тут за бякушка ??? Может надо искать где-то в Excel - защищенный лист, или что-ни еще, Хотя все переискал - не нашел. Да и установки в Excel стоят что выставлены были еще инсталлятором MS-Office . Задачка-то д.б. пустяковая для проффессионалов ... 0