ADO

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

 

            Постановка задачи: нужно получить список всех таблиц базы данных с помощью компонентов «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. Схема БД


База данных предприятий Сургут (8977 адресов)
База данных предприятий Сургут (8977 адресов)


База DLE для Xseon от 08.04.2013
База DLE для Xseon от 08.04.2013


бд Страховая компания.mdb
бд Страховая компания.mdb