powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / QueryTable в Excel 2007
3 сообщений из 3, страница 1 из 1
QueryTable в Excel 2007
    #34880169
faustt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброго времени суток!
У меня проблема в следующем.. Мне нужно закинуть данные из SQL сервера в Excel, через VFP.
Я делаю так:
Первый раз, в чистом Эксель файле добавил обьект QueryTable: oExcel.ActiveSheet.QueryTables.Add(ConnectionString,oExcel.ActiveSheet.Range("A6"),xls_query).refresh
xls_query - это мой SQL запрос.

Потом я просто меняю запрос на другой, не создавая новой QueryTable, и делю рефреш.

LOCAL oExcel as Excel.Application

oExcel = CREATEOBJECT("Excel.Application")
oExcel.visible=.t.

oExcel.Workbooks.Open(fullpath("xls\vagonu_info.xls"))

oExcel.Range("Q1").Select
oExcel.ActiveCell.Value = a_no

oExcel.Range("Q2").Select
oExcel.ActiveCell.Value = a_lidz


ConnectionString = "ODBC;"+MyApp.CONNSTRING

xls_query = "Select * from blablabla"

oExcel.Range("A6").QueryTable.CommandText = xls_query
oExcel.Range("A6").QueryTable.Connection = ConnectionString
oExcel.Range("A6").QueryTable.Refresh

На рефреш постоянно выскакивает ошибка: "OLE error code 0x800a03ec. Unknown COM status code".
И в открывшемся xls файле выдает окно с авторизацией доступа на сервер, нотя я ему присваиваю ConnectionString с правильным логином и паролем.

Кто знает в чем крючок..
...
Рейтинг: 0 / 0
QueryTable в Excel 2007
    #34881477
faustt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо уже разобрался.=)
...
Рейтинг: 0 / 0
QueryTable в Excel 2007
    #34881769
Фотография yss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fausttВсем спасибо уже разобрался.=)

пожалуста . . .
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / QueryTable в Excel 2007
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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