delphi 鏈接MYSQL 的方法

須要的控件：(view as form)

一、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

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

三、DataSource1: TDataSource
DataSet = ClientDataSet1

四、DataSetProvider1: TDataSetProvider
DataSet = SQLTable1

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

六、DBGrid1: TDBGrid
DataSource = DataSource1

七、 DBNavigator1: TDBNavigator
 DataSource = DataSource1
 

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

 

代碼：

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

最後找到兩個庫文件一同發佈就能夠了。

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