简单的工作室

delphi连接mysql (通过libmysql.dll连接)

时间:2018-10-29 22:55来源:博客园 作者:liuweijie 点击:
首先在窗体上拖拽sqlconnection和sqlquery两个控件: 然后在测试连接中,写入以下代码(注意exe生成目录下需要有 dbxopenmysql50.dll和libmysql.dll) SQLConnection1 := TSQLConnection.Create( nil); SQLConnection1.DriverName := dbxmysql; SQLConnection1.GetDriver

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

20160711105154835.png

20160711105158533.png

然后在测试连接中,写入以下代码(注意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. SQLConnection1.Open;

  12. if SQLConnection1.Connected = true then

  13. begin

  14. SQLQuery1.SQLConnection := SQLConnection1;

  15. SQLQuery1.SQL.Clear;

  16. SQLQuery1.SQL.Text := 'SET NAMES gbk;';//设置mysql查询中文不乱码

  17. SQLQuery1.ExecSQL();

  18. MessageBox(0,'连接成功','提示',MB_ICONASTERISK and MB_ICONINFORMATION);

  19. end else

  20. begin

  21. showmessage('数据库连接失败!');

  22. SQLConnection1.Close;

  23. end;


(责任编辑:简单的工作室)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容