Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поместить результат выполнения хранимой процедуры в сводную таблицу? / 18 сообщений из 18, страница 1 из 1
21.03.2013, 13:27
    #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:49
    #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:59
    #38193177
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
set PC1.Connection = cn
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 14:03
    #38193193
Minch
Minch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
qwerty112set PC1.Connection = cn
Ошибка не в этом.
Такое впечатление что ему не нравиться строка подключения.
Хотя в случае с рекордсетом все нормально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 14:05
    #38193199
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
Minchqwerty112set PC1.Connection = cn
Ошибка не в этом.
Такое впечатление что ему не нравиться строка подключения.
Хотя в случае с рекордсетом все нормально.
может скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 14:16
    #38193231
Minch
Minch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
может скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
Run-time error 438:
Object doesn't support this property or method
Вот так вот ругается матом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 14:20
    #38193243
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
Minchможет скажешь всё-таки сообщение ошибки ?
или там матом, и ты "стесняессся" ?
Run-time error 438:
Object doesn't support this property or method
Вот так вот ругается матом
а ты, свойства объекта, всегда "на фарт" определяешь ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 14:57
    #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, 15:27
    #38193417
Minch
Minch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
И
PC1.Connection = cn
И
PC1.Adoconnection = cn

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

Set PC1.ADOConnection =
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 16:05
    #38193531
Minch
Minch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
То же самое пишет.
Надо еще в каком-нибудь направлении подумать. Что-то так не получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 16:16
    #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:18
    #38193572
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
O_o
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 16:21
    #38193576
Minch
Minch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поместить результат выполнения хранимой процедуры в сводную таблицу?
Так и не понял как сделать без рекордсета (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2013, 16:41
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поместить результат выполнения хранимой процедуры в сводную таблицу? / 18 сообщений из 18, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 465ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157089]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 313ms
total:  465ms
x
x
Закрыть


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