Способ реализации подключения delphi7 к mysql5

В этой статье кратко описывается метод реализации подключения Delphi7 к базе данных MySQL. Конкретные шаги заключаются в следующем:

Сначала загрузите его: http://www.justsoftwasolves.co.uk/delphi/dbexpress_and_mysql_5.html.

Затем разархивируйте загруженный файл dbxopenmysql5_dll.zip и поместите dbxopenmysql50.dll и libmysql.dll в папку проекта.

Поместите в форму TSQLConnection, TSQLQuery, TStringGrid, 3 TButtons и TLable.

Добавьте следующий код:

 модуль Unit1; интерфейсы используют Windows, сообщения, SysUtils, варианты, классы, графику, элементы управления, формы, диалоги, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr; тип TForm1 = класс (TForm) SQLConnection1: TSQLConnection1: TSQLQuery1; : TStringGrid; Кнопка1: TButton; Button2: TButton; Label1: TLabel; процедура Button1Click (Отправитель: TObject); процедура Button3Click (Отправитель: TObject); var Form1: реализация процедуры {$R *.dfm} TForm1; TForm1.Button1Click(Sender: TObject);begin SQLConnection1:= TSQLConnection.Create(nil); SQLConnection1.DriverName:= 'dbxmysql'; SQLConnection1.GetDriverFunc:= 'getSQLDriverMYSQL50'; SQLConnection1.LibraryName:= 'dbxopenmysql50.dll'; SQLConnection1.VendorLib: = 'libmysql.dll'; SQLConnection1.LoginPrompt: = false; SQLConnection1.Params.Append('Database=mysql'); SQLConnection1.Params.Append('User_Name=root'); 'Пароль='); SQLConnection1.Params.Append('HostName=localhost'); SQLConnection1.Connected = true, то start SQLQuery1.SQLConnection := SQLConnection1; Label1.Caption := 'success!'; не удалось!';конец; процедура TForm1.Button2Click(Sender: TObject);var i, j: Integer;begin SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); SQLQuery1.Active := true; i := 0; SQLQuery1.eof не начинается для j := 0 до SQLQuery1. .FieldCount - 1 do StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); end; SQLQuery1.Active := false;end; процедура TForm1.Button3Click(Sender: TObject);begin, если SQLConnection1.Connected = true, то SQLConnection1.Free;end;

После тестирования может быть достигнуто нормальное соединение и запрос.