with con_unicooldb do
begin
DriverName := 'dbxmysql ';
GetDriverFunc := 'getSQLDriverMYSQL50 ';
LibraryName := 'dbxopenmysql50.dll ';
VendorLib := 'libmysql.dll ';
{$IFDEF rVersion}
Params.Append( 'Database=unicooldb ');
Params.Append( 'User_Name=root ');
Params.Append( 'Password=555555 ');
Params.Append( 'HostName=localhost ');
{$endif}
{$IFNDEF rVersion}
Params.Append( 'Database=unicooldb ');
Params.Append( 'User_Name=root ');
Params.Append( 'Password=bjc4t ');
Params.Append( 'HostName=localhost ');
{$endif}
Open;
end;
TSQLCONNECTION 设置 driver TSQLConnection连接Mysql数据库
最新推荐文章于 2024-08-08 16:06:05 发布