ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поместить результат выполнения хранимой процедуры в сводную таблицу?
18 сообщений из 18, страница 1 из 1
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193093
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
Пытаюсь сделать вот так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "FunctionBase.Supply.Report"
cmd.Parameters.Append cmd.CreateParameter("@user_id", adInteger, adParamInput, , userId)
Set rs = cmd.Execute()

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:=rs, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Лист5!R3C1", TableName:="Сводная2", DefaultVersion:=xlPivotTableVersion14
...
Рейтинг: 0 / 0
21.03.2013, 13:27
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193156
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
С предыдущим не разобрался теперь пытаюсь без рекордсета
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=Admin;Data Source=ANALITIKI"
cn.CursorLocation = adUseClient
cn.Open

Set PC1 = ActiveWorkbook.PivotCaches.Add(xlExternal)
PC1.Connection = cn
PC1.CommandType = adCmdStoredProc
PC1.CommandText = "FunctionBase.Supply.ReportWeekPlan"
PC1.CreatePivotTable Range("C5")



Если пытаться так, то ругается на PC1.Connection = cn.

Модератор: 1) Учимся использовать тэги оформления кода - FAQ
2) Учимся говорить четко, какая ошибка, приводить текст ошибки.
...
Рейтинг: 0 / 0
21.03.2013, 13:49
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193177
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
set PC1.Connection = cn
...
Рейтинг: 0 / 0
21.03.2013, 13:59
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193193
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
qwerty112set PC1.Connection = cn
Ошибка не в этом.
Такое впечатление что ему не нравиться строка подключения.
Хотя в случае с рекордсетом все нормально.
...
Рейтинг: 0 / 0
21.03.2013, 14:03
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193199
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Minchqwerty112set PC1.Connection = cn
Ошибка не в этом.
Такое впечатление что ему не нравиться строка подключения.
Хотя в случае с рекордсетом все нормально.
может скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
...
Рейтинг: 0 / 0
21.03.2013, 14:05
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193231
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
может скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
Run-time error 438:
Object doesn't support this property or method
Вот так вот ругается матом
...
Рейтинг: 0 / 0
21.03.2013, 14:16
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193243
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Minchможет скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
Run-time error 438:
Object doesn't support this property or method
Вот так вот ругается матом
а ты, свойства объекта, всегда "на фарт" определяешь ?
...
Рейтинг: 0 / 0
21.03.2013, 14:20
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193338
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
А теперь ругается как раз на
Код: vbnet
1.
Set PC1 = ActiveWorkbook.PivotCaches.Add(xlExternal).ADOConnection


Run-time error 1004:
Applicatin-defined or object-defined error
...
Рейтинг: 0 / 0
21.03.2013, 14:57
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193417
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
И
PC1.Connection = cn
И
PC1.Adoconnection = cn

ругается одинаково Object doesn't support this property or method
...
Рейтинг: 0 / 0
21.03.2013, 15:27
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193438
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Код: vbnet
1.
2.
Set PC1 = ActiveWorkbook.PivotCaches.Add(xlExternal)
Set PC1.Connection = cn
...
Рейтинг: 0 / 0
21.03.2013, 15:35
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193460
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
AndreTM
Код: vbnet
1.
2.
Set PC1 = ActiveWorkbook.PivotCaches.Add(xlExternal)
Set PC1.Connection = cn



В таком варианте ошибка на Set PC1.Connection = cn
Object doesn't support this property or method
...
Рейтинг: 0 / 0
21.03.2013, 15:43
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193474
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Последняя попытка

Set PC1.ADOConnection =
...
Рейтинг: 0 / 0
21.03.2013, 15:47
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193531
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
То же самое пишет.
Надо еще в каком-нибудь направлении подумать. Что-то так не получается.
...
Рейтинг: 0 / 0
21.03.2013, 16:05
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193565
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Блин, ну анекдот, в натуре. "Фигли тут думать, тут трясти надо".

У автора орден имени ЦЭ и черный пояс по выдумыванию несуществующих методов. У PivotCaches нет Add. По крайней мере в 2007м офисе.
...
Рейтинг: 0 / 0
21.03.2013, 16:16
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193566
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
Сделал так в итоге. Через рекордсет.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "FunctionBase.Supply.Report"
cmd.Parameters.Append cmd.CreateParameter("@user_id", adInteger, adParamInput, , userId)
Set rs = cmd.Execute()

Sheets.Add
Set objPivotCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
Set objPivotCache.Recordset = rs
objPivotCache.CreatePivotTable TableDestination:=Range("A3"), TableName:="Svodnaya"


Все заработало. Ура.
...
Рейтинг: 0 / 0
21.03.2013, 16:16
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193572
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
O_o
...
Рейтинг: 0 / 0
21.03.2013, 16:18
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193576
Minch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Minch
Участник
Так и не понял как сделать без рекордсета (
...
Рейтинг: 0 / 0
21.03.2013, 16:21
| Ответить | Цитировать | Написать  
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
    #38193621
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MinchТак и не понял как сделать без рекордсета (
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "FunctionBase.Supply.Report"
cmd.Parameters.Append cmd.CreateParameter("@user_id", adInteger, adParamInput, , userId)

Sheets.Add
Set objPivotCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
Set objPivotCache.Recordset = cmd.Execute()
objPivotCache.CreatePivotTable TableDestination:=Range("A3"), TableName:="Svodnaya"

вероятно так?
...
Рейтинг: 0 / 0
21.03.2013, 16:41
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поместить результат выполнения хранимой процедуры в сводную таблицу?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=61&tid=2157089]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 13ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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