VPF::Связь VB с базами Excel - Форум программистов

kminas

Дата 15.5.2007, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Я пишу программу на VB для заполнения таблиц Word текстовой информацией. Недавно выяснил, что базу для этих таблиц можно подключить из Excel. Разобрался как можно извлекать информацию, но как заставить при этом эту информацию взаимодействовать с компонентами VB не знаю. Ведь в зависимости от вида оборудования, его марки, исполнения и других параметров должен подключаться контейнер кнопок выбора, заполняться список Combobox-ов и т.д. Как это все подсоединить? Может ли кто-нибудь дать ссылку на примеры исходников?

Akina

Дата 15.5.2007, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Поди туда не знаю куда...

Знаешь что, давай конкретную проблему по коду, а не общее "мне бы примерчик"... а для начала рекомендую перестать называть таблицы Excel базой данных и рассмотреть возможность переноса данных из Excel в Access.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

AndreyK

Дата 15.5.2007, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Есть много способов, вот как я когда-то загружал данные при помощи элемента Data :

Код


Dim DataExcel as Data
'этот Data на самом деле находится в окне формы и у него ещё надо установить свойство 
'Connect="Excel 8.0" (или какая там версия требуется) и RecordsetType=Table
Dim CopyTable As DAO.TableDef
Dim TableName as String
Dim FileName as String

DataExcel.DatabaseName = FileName ' имя Excel-файла
DataExcel.RecordSource = vbNullString

On Error GoTo err1 'если не откроется, значит это не тот файл
DataExcel.Refresh
On Error GoTo 0

'узнаю название первой таблицы-листа
For Each CopyTable In DataExcel.Database.TableDefs
   If Mid$(CopyTable.Name, 1, 4) <> "MSys" Then
'уже не помню зачем этот MSys присутствует, но почему-то он тут есть ...
      TableName = CopyTable.Name
      Exit For
   End If
Next
      
DataExcel.RecordSource = TableName
DataExcel.Refresh

Далее извлекаю данные из DataExcel.Recordset обычным способом

Сейчас наверное правильно то-же самое делать при помощи средств OLEDB

Это сообщение отредактировал(а) AndreyK - 15.5.2007, 17:35

Akina

Дата 15.5.2007, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(AndreyK @ 15.5.2007, 18:05

)

Сейчас наверное правильно то-же самое делать при помощи средств OLEDB

DAO/OLEDB/ODBC есть смысл использовать, если требуются специальные фичи этих методов. Иначе разуммнее использовать либо ADO, либо Jet.

--------------------

AndreyK

Дата 15.5.2007, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Цитата("Akina")

Иначе разуммнее использовать либо ADO, либо Jet

ADO (Jet) - прекрасный метод, работает в три раза быстрее чем OLEDB (ели там нет SQL-сервера)...

Но эти сволочи (из Microsoft) не рекомендуют его перенос в VB.NET и программа трансляции (VB -> VB.NET) все Data заменяют на Label и после этого сидишь и паришся исправляя всё в ручную на OLEDB.

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