猫
Delphi技术
日志阅读：3189
日志评论：0

上一篇日志 «
下一篇日志 »

TADOConnection连接MySql

该日志由 samool 发表于 2006-12-14 3:28 PM

try
     con1.ConnectionString:=('DRIVER={MySQL ODBC 3.51 Driver};'+
                    'SERVER=localhost;'+
                    'DATABASE=test;'+
                    'USER=root;'+
                    'PASSWORD=root;'+
                    'OPTION=3;');
     con1.Close;
     con1.Open;

     qry1.SQL.Clear;
     qry1.SQL.Add('Select * from user');
     qry1.Open;
except
        application.MessageBox('无法连接数据库服务器.请与管理员联系','提示',MB_ICONINFORMATION);
end;