TSQLCONNECTION 设置 driver TSQLConnection连接Mysql数据库

TSQLConnection连接Mysql数据库

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;