Список всех таблиц БД

Постановка задачи: нужно получить список всех таблиц базы данных с помощью компонентов «ADO» в среде разработки «Дельфи 7».

Создаем приложение, перетаскиваем компоненты на форму: ADOConnection, ADODataSet, DataSource, DBGrid, Button.

Настраиваем их, подключаясь к базе данных «Автовокзал.mdb».

№ п/п	Компонент	Настройка, значение
1	ADOConnection1	ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS\Автовокзал.mdb;Persist Security Info=False» LoginPrompt = False
2	ADODataSet1	Connection = ADOConnection1
3	DataSource1	DataSet = ADODataSet1
4	DBGrid1	DataSource = DataSource1

Сетку «DBGrid1» растягиваем пошире. А на кнопку «Button1» размещаем код.

Procedure TForm1.Button1Click(Sender: TObject);

Var

i: byte;

Begin

ADOConnection1.Open;

ADOConnection1.OpenSchema(siTables, EmptyParam, EmptyParam, ADODataSet1);

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

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

End;

Затем запускаем приложение, жмем кнопку и смотрим результат. Список таблиц находится в колонке «Table_Name».

Рис. 1. Схема БД