В начало

Чтение таблицы «Должники»

 

            Есть база данных, разработанная в «MS Access 2002» под названием «Должники банков», содержащая три связанные таблицы: Банки, Должники, Кредиты.

            Необходимо подключиться к этой базе средствами «Delphi 7» через ADO, что означает ActiveX Data Objects. И прочитать данные таблицы «Должники».

            Описание полей таблиц базы данных «Должники банков» приведены ниже.

Таблица 1. Поля таблицы «Должники»

Поле

Тип

Размер поля

ID_Должника

Счетчик

Длинное целое

Фамилия

Текстовый

30

Имя

Текстовый

20

Отчество

Текстовый

20

Домашний адрес

Текстовый

55

Паспорт

Текстовый

11

Телефон

Текстовый

11

 

Таблица 2. Поля таблицы «Кредиты»

Поле

Тип

Размер поля

ID_Кредита

Счетчик

Длинное целое

Дата выдачи

Дата/Время

Краткий формат даты

Дата погашения

Дата/Время

Краткий формат даты

Вид договора

Тестовый

50

Статус возврата

Логический

Дает

ID_Банка

Числовой

Длинное целое

ID_Должника

Числовой

Длинное целое

 

Таблица 3. Поля таблицы «Банки»

Поле

Тип

Размер поля

ID_Банка

Счетчик

Длинное целое

Название

Текстовый

50

Город

Текстовый

20

Телефон

Текстовый

11

 

            Размещаем на главной форме приложения компонент «ADOConnection» с палитры «ADO», двойным кликом мыши на этом компоненте вызываем окно в котором настраиваем  параметр свойств «ConnectionString», жмем кнопку «Build…»  и на закладке «Поставщик данных» указываем «Microsoft Jet 4.0 OLE DB Provider». А на закладке «Подключение» указываем путь к базе данных. На закладке «Дополнительно» выбираем права доступа к базе.  Также нужно установить свойство «LoginPromt» как «False», чтобы каждый раз не выскакивало окно с запросом на Логин/пароль к базе данных.

            Затем с палитры компонентов «ADO» перетаскиваем мышкой на форму компонент «ADOQuery». В свойстве «Connection» этого компонента указываем/выбираем «ADOConnection1».

            Далее добавляем на форму компонент «DataSource» с палитры компонентов «Data Access». Устанавливаем свойство «DataSet» этого компонента как «ADOQuery1».

            Для того чтобы, например, показать таблицу «Должники», в компоненте «ADOQuery1», свойстве «SQL» необходимо написать запрос вида:

SELECT * FROM Должники;

            А для визуального отображения на форме данных таблицы нужно разместить компонент «DBGrid» с палитры «Data Controls». И установить его свойству «DataSource» значение «DataSource1».

            В итоге мы получаем следующую цепочку для работы с базой данных:

Рис. 1. Цепочка компонентов для работы с базой

            Чтобы активизировать подключение нужно добавить на кнопку следующий код:

ADOQuery1.Open;

или

ADOQuery1.Active:=True;

 

Рис. 1. Чтение таблицы «Должники» базы «Должники банков»