Delphi通过ADO连接MYSQL[转载]_沧浪雾月轩

导读：

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;

本文转自

http://hi.baidu.com/kr1423/blog/item/aa5aae8f5797dbebf11f3629.html