Подключение к MySQL через ADO

Всем привет, когда я рассматривал тему, про то, как можно работать с MySQL в Delphi, то в ней я приводил название компонентов, через которые осуществлялся доступ к БД и таблицам БД. Данный компонент, для доступа к MySQL, который я упоминал раньше, носит название — MyDAC. Если честно, то я не вкурсе развивается он сейчас, доступен ли он для новых версий Delphi, но зато я знаю, что компоненты ADO, уже установлены почти во всех версиях Delphi и что с помощью них, можно осуществлять доступ к БД MySQL. Один, у них, есть небольшой минус, то, что не все драйверы БД установлены сразу, некоторые приходится искать и устанавливать самому, вручную. Но, легче, ведь, скачать драйвер БД, чем компонент, который возможно не станет на Вашу версию Delphi, тем более, еще может быть и платный.

Так вот, в этой статье, я хотел бы рассказать, как можно подключиться к БД MySQL, через стандартные компоненты ADO. Destkop-оболочки для управления MySQL у меня не установлено, поэтому я буду использовать denwer и создавать таблицы, БД, пользователей, через phpmyadmin.

Ну что, поехали. Для начала, нам потребуется драйвер ODBC, для доступа к MySQL - MySQL Connector ODBC. Я, скачал версию 5.1.7. Скачать, можно тут. После установки данного драйвера, мы формируем наш проект, на форме у меня следующие компоненты:

TADOConnection
TADOQuery
TButton

Теперь давайте настроим наше подключение к MySQL. Выделяем компонент TADOConnection, далее открываем диалоговое окно свойства ConnectionString (можно и строковым значением подключить), после этого мы нажимаем на кнопку Build…, и после чего появляется следующее окно:

В данном окне выбираем драйвер — Microsoft OLE DB Provider for ODBC Drivers, в этом же окне нажимаем кнопку Далее>>. В следующей вкладке устанавливаем указатель на Использовать строку соединения и нажимаем кнопку Сборка, после чего появиться окно:

В данном окне необходимо указать путь к файлу настроек подключения к БД MySQL, но если у нас данного файла еще нету, то мы просто-напросто его создадим. В данном окне нажимаем на кнопку Создать, после чего появиться окно:

В данном окне выбираем MySQL ODBC Driver, то есть тот, который мы и устанавливали. После чего нажимаем на кнопку Далее> и в новом окне нажимаем кнопку Обзор и указываем путь для сохранения нашего файла настроек (не забываем ему также задать имя, имя файла настроек). После чего нажимаем на кнопку Готово и появиться окно подключения к БД MySQL:

Естественно в данном окне необходимо заполнить свои данные, в строчке TCP/IP Server можно указать также локальный адрес 127.0.0.1, а при нажатии на кнопку Test проверить подключение к Вашей БД.

Не забывайте, что у Вас сервер MySQL уже в это время должен быть включен, в моем случае работает denwer

После этого, как все настроено, во всех окнах нажимаем кнопку Ок. Все, теперь нам лишь остается проверить подключение, а точнее выполнить какой-нибудь запрос к нашей БД. Для этого выделяем компонент TADOQuery, в свойстве Connection выбираем TADOConnection, а на событие OnClick нашей кнопки пишем следующий код:

Исходный код

procedure TForm1.btn1Click(Sender: TObject); begin try with qry1 do begin SQL.Clear; SQL.Add('SELECT * FROM testtable'); Active:=True; ShowMessage(IntToStr(RecordCount)); end; except on e:Exception do end; end;

Теперь просто можете работать, как и с обычной БД, как мы и работали, например с БД MS Access. Главное всегда, чтобы был путь к файлу настроек подключения к MySQL.

В следующей статье, мы рассмотрим, как можно работать с Blob-полями СУБД MySQL.

Хочу заметить, что в настоящее время очень часто в строительстве стала применяться китайская фанера, что не просто так. Во-первых, довольно качественно ее изготавливают, во-вторых, подходит во многих видах строительных работ, ну а в-третьих, что в настоящее время очень главное, стоит довольно не больших денег.