procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADOCon1.ConnectionString:=('DRIVER={MySQL ODBC 3.51 Driver};'+
'SERVER=localhost;'+
'DATABASE=lionx;'+
'USER=root;'+
'PASSWORD=109;'+
'OPTION=3;');
ADOCon1.Close;
ADOCon1.Open;
except
application.MessageBox('无法连接数据库服务器.请与管理员联系','提示',MB_ICONINFORMATION);
end ;
ADOQ1.Active:=true;
end;
Delphi通过ADO连接MYSQL
最新推荐文章于 2024-08-08 11:17:24 发布