mysql delphi_Delphi连接mysql数据库的三种方式

(1)通过ODBC＋ADO的方式连：

with ADOCon1 do

begin

Close;

ConnectionString:=( 'DRIVER={MySQL ODBC 5.1 Driver}; '+

'SERVER=192.168.1.107; '+

'DATABASE=test; '+

'USER=root; '+

'PASSWORD=root; '+

'PORT=3406; '+

'OPTION=3; ');

try

Open;

application.MessageBox( '连接成功！', '提示 ',MB_ICONINFORMATION);

except

application.MessageBox( '无法连接数据库服务器.请与管理员联系 ', '提示 ',MB_ICONINFORMATION);

end;  //try

end;  //with

(2)通过DBExpress连：

SQLConnection1.Connected:= false;

with SQLConnection1.Params do

begin

Text:='DriverName=MSSQL'+#13+

'ServerPort=' + 3406 + #13+

'HostName=' + '192.168.1.107'+ #13+

'DataBase= test' +#13+

'User_Name=root'+#13+

'Password=root'+#13+

'BlobSize=-1'+#13+

'ErrorResourceFile='+#13+

'LocaleCode=0000'+#13+

'ServerCharset=gb2312'+#13+

'MSSQL   TransIsolation=ReadCommited'+ #13+

'OS   Authentication=False';

end;

try

SQLConnection1.Connected:=true;

application.MessageBox( '连接成功！', '提示 ',MB_ICONINFORMATION);

except

application.MessageBox( '无法连接数据库服务器.请与管理员联系 ', '提示 ',MB_ICONINFORMATION);

end;

注：在delphi7及以下版本，ServerPort设置无效

(3)通过MyDAC连：

with ADOCon1 do

begin

Close;

Server:= '192.168.1.107';

Port:= 3406;

Username:= 'root';

Password:= 'root';

Database:= 'test';

Options.Charset:= 'gb2312';

try

Open();

application.MessageBox( '连接成功！', '提示 ',MB_ICONINFORMATION);

except

application.MessageBox( '无法连接数据库服务器.请与管理员联系 ', '提示 ',MB_ICONINFORMATION);

end;  //try

end;   //with