Delphi连接mysql数据库的三种方式 – CSDN博客

(1)通过ODBC+ADO的方式连:    with ADOCon1 do    begin       Close;      ConnectionString:=( DRIVER={MySQL ODBC 5.1 Driver}; +                                  SERVER=192.168.1.107; +

来源: Delphi连接mysql数据库的三种方式 – CSDN博客

(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连(

Delphi的MySQL连接控件(mydac)http://download.csdn.net/download/fionwang/9733663

):

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

分享到: 更多 (0)