Подключение БД к программе

Работа с базами данных в Delphi очень важна, а тем более Access. Эта программа, на мой взгляд, является самая легкой для создания базы данных, с которой можно работать в Delphi. Для совершения данной операции на нашу главную форму «ставим» следующие компоненты:

· TDBGrid

· TDataSource

· TADOConnection

· TADOQuery

TDBGrid находится на вкладке DataControls, предназначен для отображения данных БД в нашей программе (приложении).

TDataSource находится на вкладке Data Access, предназначен для связи нашей сетки отображения данных с самой БД.

TADOConnection находится на вкладке ADO, предназначен для подключения нашей БД по определенному провайдеру.

TADOQuery находится также на вкладке ADO, предназначен для получение нужных результатов из нашей БД.

TADOQuery в свойстве Connection я «связываю» с TADOConnection, из выпадающего списка я выбираю имя данного компонента.

TDataSource в свойстве DataSet я «связываю» с TADOQuery, из выпадающего списка я выбираю имя данного компонента

TDBGrid в свойстве DataSource я «связываю» с TDatasource, из выпадающего списка я выбираю имя данного компонента.

Далее выделяем компонент TADOConnection и в свойстве LoginPromt ставим на False. Это делаем для того, чтобы при подключении к БД у нас не запрашивался пароль, дальше в свойстве ConnectionString нажимаем на кнопку с «…» и появляется окно следующего вида:

Рис.11 Источник соединения

В данном окне нажимаем на кнопку «Build…» и появляется окно следующего вида:

Рис.12 Выбор подключаемых данных

В данном окне мы выбираем провайдера, а именно Microsoft Jet 4.0 OLE DB Provaider и нажимаем кнопку «Далее».

Рис.13 Путь к БД

В данном окне мы указываем путь к нашей БД и имя пользователя по умолчанию Admin. Наша БД находится в корневом каталоге с программой, поэтому в данном поле достаточно указать ее имя с расширением.

Почти все закончили, осталось только нажать кнопку «Ок» и в свойстве компонента TADOConnection – Mode выбрать из выпадающего списка cmShareDenyNone.

Вот и все, подключение у нас организовано и теперь нам осталось только отобразить наши данные в таблице. Для этого в событии нашей главной формы OnCreate напишем следующее:

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Lines.Clear;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM gost');

ADOQuery1.Active:=True;

end;

В этом коде мы делаем обычный запрос к нашей таблице gost, как мы и называли ее. Этим запросом мы запрашиваем в таблице все поля с данными и после этого просто активируем наш запрос с помощью свойства Active чтобы данные отобразились на экране.

Дата добавления: 2015-06-28