ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вытянуть Recordset из PivotCache
12 сообщений из 12, страница 1 из 1
Как вытянуть Recordset из PivotCache
    #35586154
OIO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OIO
Гость
Добрый день,
есть Pivot Table, данные у него - запрос из внешей БД (не Access).
Мне надо получить его Recordset из PivotCache и дописать в него еще данные и присвоить обратно.
Использую такой код, чтобы получить Recordset:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim pt As PivotTable
Dim ptw As Worksheet
Dim cache As PivotCache
Dim rs As Recordset

Set pts = ThisWorkbook.Worksheets("Sheet1")
Set pt = pts.PivotTables("PivotTable1")
Set cache = pt.PivotCache
Set rs = pt.PivotCache.Recordset
на последней строчке выдает ошибку <Application-defined or object-defined error>
Неужели нельзя получить рекордсет? RecordCount для pt.PivotCache работает корректно.
...
Рейтинг: 0 / 0
09.10.2008, 16:31
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586190
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
Dim rs As Recordset
???
может там у тебя DAO, а надо ADO
...
Рейтинг: 0 / 0
09.10.2008, 16:40
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586378
OIO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OIO
Гость
если я правильно понял, то даже если
Код: plaintext
1.
2.
 
Dim rs
тот же результат.
...
Рейтинг: 0 / 0
09.10.2008, 17:35
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586468
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
Dim rs as ADODB.Recordset
намек не поняли ;)
...
Рейтинг: 0 / 0
09.10.2008, 18:01
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586522
OIO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OIO
Гость
Как раз понял:) и так тоже не работает, не могу понять почему.
...
Рейтинг: 0 / 0
09.10.2008, 18:35
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586545
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Там у вас наверняка pt.PivotCache.Recordset будет Nothing....
...
Рейтинг: 0 / 0
09.10.2008, 18:45
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586546
OIO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OIO
Гость
RecordCount выдает корректное значение.
...
Рейтинг: 0 / 0
09.10.2008, 18:47
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35586889
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Ну, раз вас это устраивает и вы готовы закрыть глаза на состояние PivotCache.Recordset...
...
Рейтинг: 0 / 0
09.10.2008, 23:30
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35587307
OIO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OIO
Гость
Проверил Вашу гипотезу:
Код: plaintext
1.
2.
If pt.PivotCache.Recordset Is Nothing Then
'do smth
на этой строчке вываливается в дебаг с той же ошибкой.
...
Рейтинг: 0 / 0
10.10.2008, 10:30
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35587686
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
http://msdn.microsoft.com/en-us/library/bb213289.aspx
...
Рейтинг: 0 / 0
10.10.2008, 12:23
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35588387
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Вот-вот. Вам надо позаботиться вначале о pt.PivotCache.Recordset, а не о Set rs =

Кстати, заодно уже, если вы пишете Set cache = pt.PivotCache , то почему не используете свою переменную cache и не хотите на следующей строчке писать Set rs = cache.Recordset ? Это загадочно...
...
Рейтинг: 0 / 0
10.10.2008, 15:22
| Ответить | Цитировать | Написать  
Как вытянуть Recordset из PivotCache
    #35588411
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Вот в дополнение к моим настойчивым намекам, Konst_One дал вам линк с примером. Там, если приглядеться, как раз можно заметить изначальную заботу о PivotCache.Recordset. Причем последовательно: вначале о PivotCache ( Set objPivotCache = ), затем уже о PivotCache.Recordset ( Set objPivotCache.Recordset = )

Просто нужно аккуратно проследить, чтобы все классы (объекты) в нужной очередности были инициированы.

Успехов
...
Рейтинг: 0 / 0
10.10.2008, 15:30
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вытянуть Recordset из PivotCache
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=177&tid=2161755]:
 0ms
get settings:
 11ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 233ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]