delphi中用dbexpress连接MySql5 收藏
一、将libmysql.dll和dbxopenmysql50.dll两个文件拷贝到delphi/bin目录下
二、配置和运用
方法一:
1) 在\delphi7\dbexpress\dbxdrivers.ini 添加[MYSQL5]节:
[MYSQL5]
GetDriverFunc=getSQLDriverMYSQL50
LibraryName=dbxopenmysql50.dll
VendorLib=libmysql.dll
BlobSize=-1
Database=DBNAME
ErrorResourceFile=
HostName=ServerName
LocaleCode=0000
Password=password
User_Name=user
ServerCharSet=GBK
2) 在\delphi7\dbexpress\dbxdrivers.ini的 [Installed Drivers] 节追加一行:
MYSQL5=1
3) 点击dbExpress面板的TSQLConnection,选择MYSQL[5]添加一个新的配置就可以了
方法二:
直接写代码,动态设置:
var
Connection: TSQLConnection;
begin
Connection := TSQLConnection.Create(nil);
Connection.DriverName := 'dbxmysql';
Connection.GetDriverFunc := 'getSQLDriverMYSQL50';
Connection.LibraryName := 'dbxopenmysql50.dll';
Connection.VendorLib := 'libmysql.dll';
Connection.Params.Append('Database=NAME_OF_DATABASE);
Connection.Params.Append('User_Name=NAME_OF_USER');
Connection.Params.Append('Password=PASSWORD');
Connection.Params.Append('HostName=localhost');
Connection.Open;
// ... do stuff
Connection.Free;
end;
或
conn.ConnectionName = "<连接名>";
conn.DriverName = "MYSQL5";
conn.GetDriverFunc = "getSQLDriverMYSQL50";
conn.KeepConnection = true;
conn.LibraryName = "dbxopenmysql50.dll";
conn.LoadParamsOnConnect = false;
conn.LoginPrompt = false;
conn.VendorLib = "libmysql.dll";
conn.Params.Append("Database=<数据库名>");
conn.Params.Append("User_Name=<用户名>");
conn.Params.Append("Password=<密码>");
conn.Params.Append("HostName=<主机名名>");
conn.Params.Append("ServerCharSet=UTF-8"); //或者GBK/GB2312
conn.Open();
// DB操作
conn.Close();