delphi 连接MYSQL 的方法

需要的控件：(view as form)

1、SQLConnection1: TSQLConnection
ConnectionName = 'MYSQLCONNECTION'
DriverName = 'MySQL'
GetDriverFunc = 'getSQLDriverMYSQL'
LibraryName = 'dbxmys.dll'
LoginPrompt = False
Params.Strings = (
'HostName=localhost'
'Database=mysqldb'
'User_Name=root'
'Password=pswd'
'MaxBlobSize=-1

ServerCharSet=utf8')
VendorLib = 'libmysql.dll'
Connected = True

2、 SQLTable1: TSQLTable
GetMetadata = False
MaxBlobSize = -1
SQLConnection = SQLConnection1
TableName = 'human'

3、DataSource1: TDataSource
DataSet = ClientDataSet1

4、DataSetProvider1: TDataSetProvider
DataSet = SQLTable1

5、ClientDataSet1: TClientDataSet
Active = True
ProviderName = 'DataSetProvider1'

6、DBGrid1: TDBGrid
DataSource = DataSource1

7、 DBNavigator1: TDBNavigator
 DataSource = DataSource1
 

8、Button1: TButton
Caption = 'Button1'
OnClick = Button1Click

 

代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.ApplyUpdates(0);//更新
end;

最后找到两个库文件一同发布就可以了。

LibraryName = 'dbxmys.dll'
VendorLib = 'libmysql.dll'