2,497
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.btn1Click(Sender: TObject);
var
strConn: string;
begin
con1 := TADOConnection.Create(Self);
strConn := 'Driver={MySQL ODBC 5.1 Driver};Server=122.114.108.238;Port=5503;Socket=MySQL;Database=fhxzsc;User=fhxzsc_f;Password=*****;Option=3';//景安服务器 连不上
//strConn := 'Driver={MySQL ODBC 5.1 Driver};Server=web.8code.cn;Port=3306;Socket=MySQL;Database=fhxzsc;User=fhxzsc;Password=****;Option=3';//自己服务器 成功连接
con1.ConnectionString := strConn;
con1.Open;
if con1.Connected then
begin
ShowMessage('连接数据库成功');
end
else
begin
ShowMessage('连接数据库失败');
end;
end;