delphi连接mysql

首先在窗体上拖拽sqlconnection和sqlquery两个控件

然后在测试连接中，写入以下代码（注意exe生成目录下需要有dbxopenmysql50.dll和libmysql.dll）

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=sampledb31');
   SQLConnection1.Params.Append('User_Name=test');
   SQLConnection1.Params.Append('Password=test');
   SQLConnection1.Params.Append('HostName=192.168.1.78');

   SQLConnection1.Open;
    if SQLConnection1.Connected = true then
    begin
      SQLQuery1.SQLConnection := SQLConnection1;
      SQLQuery1.SQL.Clear;
      SQLQuery1.SQL.Text := 'SET NAMES gbk;';//设置mysql查询中文不乱码
      SQLQuery1.ExecSQL();
      MessageBox(0,'连接成功','提示',MB_ICONASTERISK and MB_ICONINFORMATION);
    end else
    begin
      showmessage('数据库连接失败!');
      SQLConnection1.Close;
    end;