Форум АНТИЧАТ - Подключение БД в Delphi

================================================== ==================================================

В данной статье будет рассмотрен пример подключения базы данных в Delphi, с помощью технологии ADO, БД MS Access.
================================================== ==================================================

Перед тем подключить БД нужно сначала ее создать. Открываем MS Access.
Можете создать с помощью мастера, мне удобней в режиме конструктора.

Вводим имя поля и тип данных которое оно будет содержать.
Я ввел: имя поля - log, pass. Тип данных у обоих полей текстовый.
Ключевым полем выбираем log.

Нажимаем кнопку сохранить. Появится окно ввода имени таблицы. Вводим users.
Лучше всего сохранить БД в той же директории где находится Ваша программа, чтобы
не было проблем с переносом программы на другой компьютер.

Подключение.

Запускаем Delphi. В кладке ADO есть компонент ADOConnection, помещаем его на форму.
Этот компонент служит для подключения БД в программу. Выбираем свойство ConnectionString
в появившемся окне жмем кнопку Build. Далее нужно выбрать драйвер доступа к БД.

http://img149.imageshack.us/img149/7792/47220732gn2.gif
рис(1)

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

Если все прошла удачно, то появится следующее сообщение:

http://img149.imageshack.us/img149/8306/35278319sp2.gif
рис(2)

В противном случаем переподключите базу.
Жмем ОК. Подключение базы закончено.

В компоненте ADOConnection свойство LoginPrompt устанавливаем в false.
Иначе, каждый раз будет выходить табличка для ввода пароля доступа к базе.
Теперь мы можем с ней оперировать.

Работа с базой.

Помещаем на форму компонент ADOQuery. Этот компонент служит, для составления запросов SQL в базу.
В свойстве Connection, выбираем ADOConnection1.
Отрываем свойство SQL. В появившееся окно вводим запрос.

Запрос:

Код:

SELECT *

FROM users

Свойство Active устанавливаем в true.

Далее, из кладки Data Access, помещаем компонент DataSource, этот компонент служит для отображения содержимого базы.
В свойстве DataSet выбираем ADOQuery1.

Кладка DataControls, компонент DBGrid, это таблица, которая собственно и отображает базу.
В свойстве DataSource выбираем DataSource1. После этого на этом компоненте должны появится поля базы.

http://img371.imageshack.us/img371/9407/96955396rr5.gif
рис(3)

Добавление записи.

Поместим на форму 2 Edit'a, одно для того, чтобы ввести логин, а другое для пароля, также поместим Button.

Прописываем процедуру Button1Click:

Код:

procedure TMain_Form.Button1Click(Sender: TObject);

var query:string;

begin

     query:='INSERT INTO users VALUES('''+Edit1.Text+''','''+Edit2.Text+''');';//**Запрос для добавления записи

     ADOQuery1.SQL.Clear;//**Очистка предыдущего запроса.

     ADOQuery1.SQL.Text:=query;//**Заносим запрос

     ADOQuery1.ExecSQL;//**Выполнения запроса

     //**Отображения содержимого базы

     ADOQuery1.Active:=false;

     ADOQuery1.SQL.Clear;

     ADOQuery1.SQL.Add('SELECT * FROM users ORDER BY log;');

     ADOQuery1.Active:=true;

end;

Другие запросы создаются аналогично.

23.07.08