MySQL и Delphi – подключение к серверу MySQL

В данном тексте напишем программу, которая будет подключаться к серверу и опрашивать таблицу с базами данных. Результаты запроса – список баз данных, будем отображать в выпадающий список TCombobox.

Как подключиться из Delphi к MySQL?

Для разработки этого примера, предполагаем, что мы уже хорошо работаем с самим сервером MySQL. Для этого можете прочитать мой цикл статей MySQL – первые шаги для новичков.

Создадим простейшее подключение из клиента Delphi. Разместим на форме следующие компоненты – несколько labeledEdit, кнопки Connect и Disconnect, SQLConnection1, StatusBar снизу и все это на вкладке PageControl, так как будем расширять программу, в следующих статьях.

1

Кнопку Connect обработаем таким образом


Кнопку Disconnected таким образом…


Проверяем работу программы,нажав на Connect…

2

Видим в StatusBar, надпись Connected, значит всё подключилось…

Теперь попробуем cобирать информацию о списке баз данных, для этого сделаем следующие вещи

Как получить список баз данных MySQL и вывести его в Delphi?

Добавим компонент SimpleDataSet1 – в него будем собирать данные из запроса о базах данных, и изменим LabeledEdit для выбора базы данных на ComboBox, чтобы выводить в него данные.

Когда Вы проделаете все шаги, результат будет примерно таким…

4

Итак, поехали…

Для того, чтобы нам получить список БД, нам изначально нужно законнектиться к базе под именем mysql и сделать такой запрос (Более подробно об обсуждении как делать запрос здесь)

То есть, если бы мы делали это из клиента mysql.exe, то получилось бы таким образом…

3

 

Но мы находимся в Delphi, поэтому, предлагаю обработать получение списка данных в момент FormCreate главной и пока единственной формы.

 


Соответственно обработку кнопки Connect тоже пришлось изменить таким образом, внедрив в неё combobox…


Ну и под конец, немного разукрасил программу, использовав Alpha Skins…

5

 

Теперь введём неправильное значение

6

 

Исходники

46 MySQL Connection

Удачи в Ваших проектах. С уважением, Пантелеев Станислав.

This entry was posted in Delphi, MySQL, Без рубрики. Bookmark the permalink.