Подключение к MySQL на Delphi

Как можно подключиться к БД MySQL, через стандартные компоненты ADO.

Для начала, нам потребуется драйвер 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 проверить подключение к Вашей БД.

После этого, как все настроено, во всех окнах нажимаем кнопку Ок. Все, теперь лишь остается проверить подключение, а точнее выполнить какой-нибудь запрос к нашей БД. Для этого выделяем компонент 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;