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

Есть база данных, разработанная в «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. Чтение таблицы «Должники» базы «Должники банков»