VBNet - Форум - Открытие *.mdb файла в Excel

Вопрос: Открытие *.mdb файла в Excel Добавлено: 19.10.04 10:20

Автор вопроса: inc666

Нужно открыть *.mdb файла в Excel.

Пишу

Set ses = CreateObject("ADODB.Connection")
ses.Provider = "Microsoft.Jet.OLEDB.4.0"
ses.Open "MyPath\File.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = ses

sql = "SELECT * FROM File.Table"
rs.Open sql, ses, 1, 3

Все работает, пока не открою в Excel какую либо книгу, лежащую в другой папке. После этого когда выполняется rs.Open sql, ses, 1, 3 , таблица почему то ищется не в файле "MyPath\File.mdb", а "Путь где лежит последняя открытая книга\File.mdb", но там то его нет.

Может нужно еще чего указывать в rs.Open sql, ses, 1, 3 ?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330	Профиль \| \| #1	Добавлено: 19.10.04 10:46
	Попробуй: ChDir NewPath Ответить

Номер ответа: 2 Автор ответа: Mirgor Вопросов: 10 Ответов: 19	Web-сайт: mirgor.vn.ua Профиль \| \| #2	Добавлено: 19.10.04 10:54
	Пришли код - посмотрю, может разберемся. Ответить

Номер ответа: 3 Автор ответа: inc666 Вопросов: 1 Ответов: 4	Профиль \| \| #3	Добавлено: 19.10.04 19:02
	Так это собственно весь значащий код и есть, как только делаю rs.Open sql, ses, 1, 3, он сразу же пытаеться искать файл не там Ответить

Номер ответа: 4 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #4	Добавлено: 19.10.04 19:08
	http://vbnet.ru/samples/download.aspx?id=601 Ответить

Номер ответа: 5 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #5	Добавлено: 20.10.04 10:36
	К чему всё это? Всё оччень просто! Или используй абсолютный путь к файлу: ses.Open ":\Access\MyPath\File.mdb" И тогда базу никуда не перемещай. Или положи базу в одну папку с файлом Excel и делай так: ses.Open Application.Path & "\File.mdb" Ответить

Номер ответа: 6 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #6	Добавлено: 20.10.04 10:41
	> http://vbnet.ru/samples/download.aspx?id=601 Мой пример разместили... А у меня уже некоторый апдейт к нему имеется. Можно ли его новым файлом будет заменить? Там типа развитие той же темы. Ответить

Номер ответа: 7 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #7	Добавлено: 20.10.04 11:26
	2mc-black, давай. я просто архив заменю. Ответить

Номер ответа: 8 Автор ответа: inc666 Вопросов: 1 Ответов: 4	Профиль \| \| #8	Добавлено: 20.10.04 12:59
	Похоже все было из-за использования ActivX. Сделал как в примере, все заработало. mc-black за пример спасибо! Ответить

Страница: 1 |