delphi連接mysql （通過libmysql.dll連接）

首先在窗體上拖拽sqlconnection和sqlquery兩個控件:

然后在測試連接中，寫入以下代碼（注意exe生成目錄下需要有dbxopenmysql50.dll和libmysql.dll）

1. SQLConnection1 := TSQLConnection.Create( nil);
2. SQLConnection1.DriverName := 'dbxmysql';
3. SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50';
4. SQLConnection1.LibraryName := 'dbxopenmysql50.dll';
5. SQLConnection1.VendorLib := 'libmysql.dll';
6. SQLConnection1.LoginPrompt := false;
7. SQLConnection1.Params.Append( 'Database=sampledb31');
8. SQLConnection1.Params.Append( 'User_Name=test');
9. SQLConnection1.Params.Append( 'Password=test');
10. SQLConnection1.Params.Append( 'HostName=192.168.1.78');
11.  
12. SQLConnection1.Open;
13. if SQLConnection1.Connected = true then
14. begin
15. SQLQuery1.SQLConnection := SQLConnection1;
16. SQLQuery1.SQL.Clear;
17. SQLQuery1.SQL.Text := 'SET NAMES gbk;';//設置mysql查詢中文不亂碼
18. SQLQuery1.ExecSQL();
19. MessageBox( 0,'連接成功','提示',MB_ICONASTERISK and MB_ICONINFORMATION);
20. end else
21. begin
22. showmessage( '數據庫連接失敗!');
23. SQLConnection1.Close;
24. end;