Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CopyFromRecordset выводит не все записи / 18 сообщений из 18, страница 1 из 1
26.11.2014, 20:29
    #38817775
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
Код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Set cn = New ADODB.Connection
     strConnect = "Provider=MSOLAP.4;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ICat;Data Source=DS;MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error"
cn.CommandTimeout = 300
cn.Open strConnect
Set rs = New ADODB.Recordset
StrMDX = "MDX запрос"
 rs.Source = StrMDX
Set rs.ActiveConnection = cn
rs.Open
MsgBox rs.RecordCount  ' Показывает 240000 записей в рекордсете
Cells.Clear
Range("A2").CopyFromRecordset rs             ' Выводит 127000 записей
For i = 0 To rs.Fields.Count - 1
    Cells(1, i + 1) = ИмяПоля(rs.Fields(i).Name)
Next
MsgBox rs.RecordCount   ' Показывает 240000 записей в рекордсете


выводит не все записи:
Число записей примерно 240000, выводится около 127000. Сообщений об ошибках нет, Эксель 2010. Как бороться?
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2014, 22:43
    #38817854
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik,

Возможно запрос возвращает более одной таблицы/результата.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2014, 12:28
    #38818254
guest123456
guest123456
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
iMrTidyNikVik,

Возможно запрос возвращает более одной таблицы/результата.

+1
Проверяйте NextRecordset
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2014, 23:54
    #38818910
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
попробовал так:
Код: vbnet
1.
2.
3.
Range("A2").CopyFromRecordset rs             ' Выводит 127000 записей
rs.NextRecordset
Range("Q2").CopyFromRecordset rs             ' пусто


второй рекордсет пустой, если он есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2014, 23:59
    #38818911
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik,

А что из себя представляет запрос?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2014, 00:11
    #38818916
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik
Код: vbnet
1.
rs.NextRecordset

тогда уж
Код: vbnet
1.
Set rs = rs.NextRecordset
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2014, 21:13
    #38820019
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
Shocker.Proтогда уж
Код: vbnet
1.
Set rs = rs.NextRecordset

Попробовал, похоже нет второго рекордсета
rs = Null

Кстати, команда:
Код: vbnet
1.
rs.Save NewName, adPersistXML

сохраняет все записи.

Игрался с MDX запросами (что бы уменьшить количество записей в рекордсете).
На количестве записей от нескольких сотен до нескольких тысяч, появился ещё эффект:
включение в код
Код: vbnet
1.
rs.Save NewName, adPersistXML

увеличивает количество записей, выводимых
Код: vbnet
1.
Range("A2").CopyFromRecordset rs


Минимизировал количество записей в рекордсете до минимума (41 запись).
CopyFromRecordset выводит одну, первую (в ней общая сумма).
Если перед этим включить rs.Save, выводятся все записи.
iMrTidyNikVik,

А что из себя представляет запрос?
Вот "минимальный" запрос:
Код: sql
1.
2.
3.
SELECT {[Measures].[Кол-во]}  ON COLUMNS , NON EMPTY 
Hierarchize(AddCalculatedMembers({DrilldownLevel({[Prof_Products].[Prod_ID].[All]})}))  ON ROWS  FROM [PROF] WHERE 
([Группы_A].[Группы_A].[Левел 0 _A].&[Bluetooth ремешок Akaiwa],[Дата].[Даты по годам].[Год].&[2014])


В общем, нет пока у нас с рекордсетом взаимности.
Хелп.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2014, 08:22
    #38820994
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik, а какое поведение будет при
Код: vbnet
1.
2.
3.
rs.MoveLast
rs.MoveFirst
Range("A2").CopyFromRecordset r
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2014, 12:11
    #38821247
ex-zel
ex-zel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik,

16659078
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2014, 23:22
    #38822044
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
HandKotNikVik, а какое поведение будет при
Код: vbnet
1.
2.
3.
rs.MoveLast
rs.MoveFirst
Range("A2").CopyFromRecordset r

даёт ошибку Error Code 0x80040E24 (The rowset does not support fetching backwards) на:
Код: vbnet
1.
rs.MoveLast



добавление одной строки
Код: vbnet
1.
rs.MoveFirst

действует аналогично
Код: vbnet
1.
rs.Save NewName, adPersistXML

(иногда увеличивает количество выводимых записей)

ex-zelNikVik,

16659078 не понимаю, как этим воспользоваться. Не смог найти работающий пример.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2014, 08:10
    #38822140
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVik
Код: vbnet
1.
2.
3.
rs.MoveLast
rs.MoveFirst
Range("A2").CopyFromRecordset r

даёт ошибку Error Code 0x80040E24 (The rowset does not support fetching backwards) на:
Код: vbnet
1.
rs.MoveLast




это говорит о том, что у Вас ForwardOnly курсор
Если почитать про RecordCount, то там есть заметка
Код: plaintext
1.
The cursor type of the Recordset object affects whether the number of records can be determined.  The RecordCount property will return -1 for a forward-only cursor ; 
the actual count for a static or keyset cursor; and either -1 or the actual count for a dynamic cursor, depending on the data source.

что приводит к мысли, что то число, которое вы получаете - это просто бага, т.к этот тип курсора не поддерживает подсчет кол-ва
Для проверки сделайте так

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set cn = New ADODB.Connection
     strConnect = "Provider=MSOLAP.4;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ICat;Data Source=DS;MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error"
cn.CommandTimeout = 300
cn.Open strConnect
Set rs = New ADODB.Recordset
StrMDX = "MDX запрос"
 rs.Source = StrMDX
 rs.CursorLocation = adOpenStatic
Set rs.ActiveConnection = cn
rs.Open
rs.Movelast
rs.MoveFirst
MsgBox rs.RecordCount  ' Показывает 240000 записей в рекордсете
Cells.Clear
Range("A2").CopyFromRecordset rs             ' Выводит 127000 записей
For i = 0 To rs.Fields.Count - 1
    Cells(1, i + 1) = ИмяПоля(rs.Fields(i).Name)
Next
MsgBox rs.RecordCount   ' Показывает 240000 записей в рекордсете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2014, 14:44
    #38822633
guest123456
guest123456
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
HandKotДля проверки сделайте так

А ещё лучше клиентский курсор используйте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2014, 15:43
    #38822711
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
guest123456HandKotДля проверки сделайте так

А ещё лучше клиентский курсор используйте.
блин, не так написал. надо
Код: vbnet
1.
rs.CursorType= adOpenStatic
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2014, 19:13
    #38822960
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
HandKot,

Добавление строки
Код: vbnet
1.
rs.CursorType = adOpenStatic

ничего не изменило.

Добавление строки
Код: vbnet
1.
rs.CursorLocation = adOpenStatic

исправило ситуацию, теперь выводятся все записи (столько, сколько показывает rs.RecordCount).


Огромное спасибо! Я уже начал терять надежду)
Правда я не понимаю, как это работает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2014, 23:37
    #38823115
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVikHandKot,

....
Добавление строки
Код: vbnet
1.
rs.CursorLocation = adOpenStatic

исправило ситуацию, теперь выводятся все записи (столько, сколько показывает rs.RecordCount).

...


Вам поразительно повезло в том что, по счастью, adOpenStatic = 3
.CursorLocation надо присваивать значениям из набора CursorLocationEnum,
а не из набора CursortypeEnum, как вы пытались сделать в присваивании
Код: vbnet
1.
rs.CursorLocation = adOpenStatic

.

В CursorLocationEnum за тройку отвечает adUseClient

Конечно, от этого в исполнении кода ничего не изменится, но пристойно переписать присвоение либо на
Код: vbnet
1.
rs.CursorLocation = adUseClient


либо
Код: vbnet
1.
rs.CursorLocation = 3



Это будет указывать будущим читателям, что вы не случайно подставляли все, что вам посоветовали в интернете, а понимали, что делали.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2014, 08:18
    #38823200
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
NikVikОгромное спасибо! Я уже начал терять надежду)
Правда я не понимаю, как это работает...
как уже сказано
CursorType - отвечает за тип курсора: изменяемый, статичный, только в перед и т.д
CursorLocation - отвечает за местоположение курсора, т.е где будет находится результат после выполнения: сервер, клиент или еще где-то

Установив местоположение курсора в "клиент", весь результат выполнения сразу был передан с сервера на Ваш компьютер.
Возможно CopyFromRecordset не умеет корректно работать с серверным курсором и надо было делать что-нибудь типа FETCH

Лично я всегда использовал "клиентский курсор", как думаю большинство, и поэтому с такой проблемой как у Вас не сталкивался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2015, 17:20
    #39037702
splenish
splenish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
HandKot,

Здравствуйте , столкнулся с той же проблемой возврата частичных данных , добавил по Вашей рекомендации указание работать с курсором на клиенте ,
после этого ексел 2013 стабильно вылетает , пробовал на нескольких машинах , и даже через VSTO...

просто экспортировать в XML не помогает , пока -что сделал загрузку обратно XML в ексел - работает ,

кто нибудь сталкивался ? есть идеи ?

Спасибо

Splenish
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2015, 07:55
    #39038008
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset выводит не все записи
splenish, а ошибка есть?
хотя может проблема именно в эксель, я с таким ещё не работал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CopyFromRecordset выводит не все записи / 18 сообщений из 18, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 447ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173378]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 316ms
total:  447ms
x
x
Закрыть


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