关闭

Delphi通过ADO连接MYSQL

2087人阅读 评论(0) 收藏 举报

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;

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:12519次
    • 积分:239
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:1篇
    • 译文:0篇
    • 评论:4条
    文章分类