В начало

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

 

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


База данных 1000 пользователей Instagram
База данных 1000 пользователей Instagram


Код для скачивания файла Учёт ДТП 2 2003.mdb
Код для скачивания файла Учёт ДТП 2 2003.mdb


База трастов - профили - разные тематики (v. 1)
База трастов - профили - разные тематики (v. 1)