delphi7连接mysql5一方法

今天开始研究mysql,在网上搜了一下资料,都是要安装这个,安装那个,很麻烦。

经过一直摸索、测试,得到一个快速的方法,很实用,只是稳定性有待发现。

先去下载:http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html 

然后把下载到的dbxopenmysql5_dll.zip解压出来,再把dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。

在Form上放上TSQLConnection、TSQLQuery、TStringGrid、3个TButton、TLable。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    SQLQuery1: TSQLQuery;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure 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(‘Password=‘);
  SQLConnection1.Params.Append(‘HostName=localhost‘);
  SQLConnection1.Open;
  if SQLConnection1.Connected = true then
  begin
    SQLQuery1.SQLConnection := SQLConnection1;
    Label1.Caption := ‘success!‘;
  end
  else
    Label1.Caption := ‘failed!‘;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: Integer;
begin   
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add(‘SELECT * FROM user‘);
  SQLQuery1.Active := true;
  i := 0;
  SQLQuery1.First;
  while not SQLQuery1.eof do
  begin
    for j := 0 to SQLQuery1.FieldCount - 1 do
      StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString;
    SQLQuery1.next;
    inc(i);
  end;
  SQLQuery1.Active := false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if SQLConnection1.Connected = true then
    SQLConnection1.Close;
  SQLConnection1.Free;
end;

end.

  经测试,连接OK,查询OK。

    参考:JackSun‘s 技术博客 http://www.cnblogs.com/JackSun/archive/2010/12/16/1908145.html

 

delphi7连接mysql5一方法,古老的榕树,5-wow.com

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。