Este artigo apresenta brevemente o método de implementação do Delphi7 conectando-se ao banco de dados MySQL. As etapas específicas são as seguintes:
Primeiro faça o download: http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html
Em seguida, descompacte o dbxopenmysql5_dll.zip baixado e coloque dbxopenmysql50.dll e libmysql.dll na pasta do projeto.
Coloque TSQLConnection, TSQLQuery, TStringGrid, 3 TButtons e TLable no formulário.
Adicione o seguinte código:
unit Unit1;interfaz Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários, Diálogos, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr;tipo TForm1 = class(TForm) SQLConnection1: TSQLQuery1: TSQLQuery; : TStringGrid; TButton; Button2: TButton; Button3: TButton; TLabel; procedimento Button1Click(Remetente: TObject); procedimento Button2Click(Remetente: TObject); var Form1: TForm1; implementação do procedimento {$R *.dfm} TForm1.Button1Click(Sender: TObject);begin SQLConnection1 := TSQLConnection.Create(nil); SQLConnection1.DriverName := 'dbxmysql'; SQLConnection1.VendorLib := 'libmysql.dll'; SQLConnection1.LoginPrompt := false SQLConnection1.Params.Append('SQLConnection1.Params.Append('User_Name=root'); 'Senha='); SQLConnection1.Params.Append('HostName=localhost'); SQLConnection1.Open; se SQLConnection1.Connected = true então comece SQLQuery1.SQLConnection := SQLConnection1; falhou!';fim; procedimento TForm1.Button2Click(Sender: TObject);var i, j: Integer;begin SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); .FieldCount - 1 do StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); final SQLQuery1.Active := false;end; procedimento TForm1.Button3Click(Sender: TObject);início se SQLConnection1.Connected = true então SQLConnection1.Free;end;Após o teste, a conexão e a consulta normais podem ser alcançadas.