ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ADODB.Recordset в QueryTable (Excel)
12 сообщений из 12, страница 1 из 1
ADODB.Recordset в QueryTable (Excel)
    #34094473
vba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba
Гость
Код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Set GConnection = New ADODB.Connection
    GConnection.CursorLocation = adUseClient
    GConnection.Open "provider=msdaora; data source..."
    Set GCommand = New ADODB.Command
    Set GCommand.ActiveConnection = GConnection
    Set GRecordset = New ADODB.Recordset
    Set GRecordset.ActiveConnection = GConnection
    GCommand.CommandText = "select * from aaa where b=?"
    GCommand.CommandType = adCmdText
    GCommand.Parameters.Append Object:=GCommand.CreateParameter("", adVarChar, adParamInput, Len("aaa"), "aaa")
    GCommand.Execute
    GRecordset.Open  GCommand
With Application.ActiveSheet           
      Set QT = .QueryTables.Add(GRecordset, .Range("A3"))
      QT.Refresh
End With

На Refresh выдает Runtime Error 1004, Application-defined or object-defined error.
ADO 2.8
куда копать?
...
Рейтинг: 0 / 0
31.10.2006, 14:58:24
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34094599
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
а не пробовал этот запрос через построитель запросов сделать? в этом случае будет обновлять или нет, может оттуда какие-то появятся идеи..
...
Рейтинг: 0 / 0
31.10.2006, 15:21:31
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34094668
vba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba
Гость
Проблема не с запросом (не важно какой, но параметризуемый). Recordset прекрасно читается. Просто нужно положит Recordset именно в QueryTable, а не рабоает.
...
Рейтинг: 0 / 0
31.10.2006, 15:35:51
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34094747
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
ну так через построитель запросов ты также QueryTable создаешь
...
Рейтинг: 0 / 0
31.10.2006, 15:50:40
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34094822
vba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba
Гость
Структура приложения, требует создание Recordset, код который я привел - это просто сведенный из кусков. Recordset создаеться в другом куске, я получаю его по вызову функции и надо его сложить именно в querytable, а не просто положить результат на лист
...
Рейтинг: 0 / 0
31.10.2006, 16:03:06
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34095113
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
да это понятно. просто ты пишешь, что ошибка при .refresh, т.е. в методе QueryTable. Чем ты создал Connection не имеет значения (VBA или Query Wizard). Но за то ты будешь видеть как Excel получит данные и что будет писать при ошибке.
...
Рейтинг: 0 / 0
31.10.2006, 16:58:49
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34095508
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vbaСтруктура приложения, требует создание Recordset, код который я привел - это просто сведенный из кусков. Recordset создаеться в другом куске, я получаю его по вызову функции и надо его сложить именно в querytable, а не просто положить результат на листНе надо надевать штаны через голову.
Если ты работаешь с ADO - работай с ADO целиком. Если хочешь работать с QueryTable - работай с QueryTable с самого начала.

Код: plaintext
1.
2.
3.
4.
5.
6.
With Application.ActiveSheet           
      Set QT = .QueryTables.Add("provider=msdaora; data source...", .Range("A3"))
      QT.CommandText = "select * from aaa where b=?"
      Set Param = QT.Parameters.Add("ParamB", xlParamTypeVarChar)
      Param.SetParam xlPrompt, "aaa"
      QT.Refresh
End With
И никакое ADO нафиг не нужно.
...
Рейтинг: 0 / 0
31.10.2006, 18:30:15
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34096170
vba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba
Гость
vbaСтруктура приложения, требует создание Recordset, код который я привел - это просто сведенный из кусков. Recordset создаеться в другом куске, я получаю его по вызову функции и надо его сложить именно в querytable, а не просто положить результат на лист
White OwlИ никакое ADO нафиг не нужно.
Оно нужно и используеться не просто так. Вопрос был не как положить результат запроса на querytable, а как recordset положить на querytable. Насчет штанов через голову вы глубоко ошибаетесь, еслибы был просто запрос, типа select * from ..., то никто не стал бы городить ADO.
...
Рейтинг: 0 / 0
01.11.2006, 08:50:32
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34098765
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vba White OwlИ никакое ADO нафиг не нужно.
Оно нужно и используеться не просто так.Ошибаетесь, юноша, для решения вашей задачи оно не нужно.

vbaВопрос был не как положить результат запроса на querytable, а как recordset положить на querytable. Насчет штанов через голову вы глубоко ошибаетесь,Хочешь извращаться? Ну запросто, открывай хелп на QueryTable.Recordset и смотри там примеры работы.

vbaеслибы был просто запрос, типа select * from ..., то никто не стал бы городить ADO.Ну-ну...
...
Рейтинг: 0 / 0
01.11.2006, 18:18:26
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34099491
vba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba
Гость
Хорошо, приведите мне пример работы с querytable если результат получаеться через выходной параметер вызова процедуры возвращающий ref_cursor на oracle.
...
Рейтинг: 0 / 0
02.11.2006, 08:32:59
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34100102
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
а попробуй строку запроса в свойство QueryTables().Sql записать
...
Рейтинг: 0 / 0
02.11.2006, 11:30:51
| Ответить | Цитировать | Написать  
ADODB.Recordset в QueryTable (Excel)
    #34102089
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vbaХорошо, приведите мне пример работы с querytable если результат получаеться через выходной параметер вызова процедуры возвращающий ref_cursor на oracle.С out параметрами, действительно сложности будут...
Ну хорошо, в данном случае действительно использование ADO оправдано будет. Но зачем копировать результатирующий рекордсет в QueryTable я все равно не понимаю.
...
Рейтинг: 0 / 0
02.11.2006, 18:30:17
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ADODB.Recordset в QueryTable (Excel)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34098765&tid=2183996]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 205ms
total:  309ms
созд. / загр.: 309ms
x
x
Закрыть


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