本文主要向大家介绍了MySQL数据库之Delphi连接MySql(待测试验证) ,通过具体的内容向大家展现,希望对大家学习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;
以上就介绍了MySQL的相关知识,希望对MySQL有兴趣的朋友有所帮助。了解更多内容,请关注职坐标数据库MySQL频道!