Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VBA и SQL, Как совместить несовместимое? :-) 
:(
    Опции темы
StayAtHome
Дата 10.3.2004, 02:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: нет
Всего: 16



Имеем: Небольшой макрос на VBA (в MS Vord) в котроом мне нужно доступится к данным из Paradox таблицы, путем простой SQL выборки (Select ... where...).
Вопрос? Как все это проделать из MS Word VBA, если на компьютере не установлен Access? Что для этого нужно? Как это сделать правильно?
Смену "среды разработки" не предлагать. :-)
PM MAIL WWW ICQ YIM   Вверх
shilnik
Дата 10.3.2004, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 377
Регистрация: 22.12.2003

Репутация: нет
Всего: 1



Делаешь в макросе так:

Код

Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection

con.Open "Driver={Microsoft Paradox Driver (*.db )};DBQ=c:\tmp;DriverID=26"
rs.Open "Select * from Table1", con


И работаешь с рекордсетом.wink.gif


--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
StayAtHome
Дата 11.3.2004, 03:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: нет
Всего: 16



Спасиб, попробую. А пока скажи, как впредь узнать что нужно писать в параметре "Driver"? Что такое "DBQ=c:\tmp"? И какие библиотеки нужно подключить в VBA в References, чтобы обращатся к АДО? (Напоминаю, что на компе не установлен MS Access)
PM MAIL WWW ICQ YIM   Вверх
shilnik
Дата 11.3.2004, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 377
Регистрация: 22.12.2003

Репутация: нет
Всего: 1



Ну Access здесь в принципе не причем.
В строке подключения:
Driver - имя драйвера, который хочешь использовать;
DBQ - путь к базе данных (каталогу, где лежат таблицы);
DriverID - идентификатор версии
26 (Paradox 3.x)
282 (Paradox 4.x)
538 (Paradox 5.x)


Вообще в этой стоке для разных драйверов пишется по-разному. Надо смотреть в справках (например MSDN).

В References надо подключить Microsoft ActiveX Data Object 2.x Library



--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
StayAtHome
Дата 12.3.2004, 02:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: нет
Всего: 16



shilnik
Спасиб. Заработало!
Но после нескольких успешных выборок -- макрос начал вываливаться с 2неизвестной ошибкой" (точно код не помню, завтра запишу). Перезагрузка компа не помогла, код не менял.
WTF??
PM MAIL WWW ICQ YIM   Вверх
shilnik
Дата 12.3.2004, 08:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 377
Регистрация: 22.12.2003

Репутация: нет
Всего: 1



Что такое WTF??


--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0858 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.