В начало

«MS Excel» через «ODBC»

 

            Постановка задачи: необходимо создать подключение к файлам «MS Excel» через «ODBC».

            Для создания нового подключения в «Windows XP» нужно перейти в раздел «ПУСК – Панель управления – Администрирование – Источники данных (ODBC)». Далее, на закладке «Пользовательский DSN» нажать кнопку «Добавить…».

Рис. 1. АИД ODBC, закладка «Пользовательский DSN»

Рис. 1. АИД ODBC, закладка «Пользовательский DSN»

 

            Затем надо выбрать драйвер «Driver do Microsoft Excel (*.xls)».

Рис. 2. Выбор нужного драйвера

Рис. 2. Выбор нужного драйвера

 

            Далее нужно ввести имя и описание для нового подключения.

           

Рис. 3. Ввод имени и описания

Рис. 3. Ввод имени и описания

            После этого всего новое подключение появится в списке источников данных на закладке «Пользовательский DSN» окна «АИД ODBC».

Рис. 4. Окно АИД ODBC, после добавления нового подключения

Рис. 4. Окно АИД ODBC, после добавления нового подключения

 

            Проверить работу только что созданного подключения можно в среде разработки «Delphi 7». Для этого в новом приложении нужно перетащить на форму компоненты: ADOConnection, ADOTable, DataSource, DBGrid.

            Самое важное в этом деле это настроить строку подключения в компоненте «ADOConnection1». Кликаем по нему 2 раза и запускается мастер создания строки подключения.

На  закладке «Поставщик данных» выбираем «Microsoft OLE DB Provider for ODBC Driver».

Рис. 5. Закладка «Поставщик данных»

Рис. 5. Закладка «Поставщик данных»

 

            Затем на закладке «Подключение» выбираем вариант «Использовать строку подключения» и начинаем использовать ее по полной. Т.к. в нашем подключении не указана конкретная БД, точнее файл. Нажимаем кнопку «Сборка…».

Рис. 6. Закладка «Подключение»

 

            Потом выбираем источник на закладке «Источник данных компьютера» и жмем кнопку «Ок».

Рис. 7. Закладка «Источник данных компьютера»

Рис. 7. Закладка «Источник данных компьютера»

 

            Появится диалог выбора конкретного файла на диске. Ищем нужный файл и выбираем.

Рис. 8. Диалог выбора файла

Рис. 8. Диалог выбора файла

 

            После этого можно проверить подключение, нажав на кнопку «Проверить подключение», но наверняка все в порядке.

            Далее донастраиваем настройки компонентов. Параметр «ConnectionString» компонента «ADOConnection1» можно переделать, а можно и так оставить. Дело в том, что этот параметр заполнился так, что  свойство «DeafaultDatabase» по сути пустует, хотя все нормально работает и к файлу «Магазины.xls» доступ есть.

п/п

Компонент

Настройка, значение

1

ADOConnection1

ConnectionString = «Provider=MSDASQL.1;Persist Security Info=False;
Extended Properties="DSN=
Файлы MS Excel; DBQ=C:\EXCEL\Магазины.xls;DefaultDir=C:\EXCEL;DriverId=790;
FIL=excel 8.0;MaxBufferSize=2048;PageTimeout=5;"»

LoginPrompt = False

2

ADOTable1

Connection = ADOConnection1

TableName = [Лист1$]

3

DataSource1

DataSet = ADOTable1

4

DBGrid1

DataSource = DataSource1

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

Procedure TForm1.Button1Click(Sender: TObject);

Var

 i: byte;

Begin

   ADOTable1.Active := True;

   For i:= 0 to DBGrid1.Columns.Count-1 do

      DBGrid1.Columns.Items[i].Width:=100;

End;

            Далее запускаем приложение и проверяем подключение к файлу «Магазины.xls»

 

Рис. 9. «Лист1» в файле «Магазины.xls»

Рис. 9. «Лист1» в файле «Магазины.xls»


База данных предприятий Чебоксары (11935 адресов)
База данных предприятий Чебоксары (11935 адресов)


База сайтов на CMS CS-Cart | 17,996 [Июль 2019]
База сайтов на CMS CS-Cart | 17,996 [Июль 2019]


База данных словарь воровского жаргона
База данных словарь воровского жаргона