5,386
社区成员
发帖
与我相关
我的任务
分享
try
ADOConnection1.Close;
ADOConnection1.ConnectionString := ('DRIVER={MySQL ODBC 5.1 Driver};'
+'SERVER = ***;'
+'DATABASE=**;'
+'USER=**;'
+'PASWORD=***;OPTION=3;');
ADOConnection1.LoginPrompt := false;
ADOConnection1.Open;
except
showMessage('链接数据库出错');
ADOConnection1.Close;
end;
try
ADOConnection1.Close;
ADOConnection1.ConnectionString := ('DRIVER={MySQL ODBC 5.1 Driver};'
+'SERVER = ***;'
+'DATABASE=**;'
+'USER=**;'
+'PASWORD=***;OPTION=3;');
ADOConnection1.LoginPrompt := false;
ADOConnection1.Open;
except
showMessage('链接数据库出错');
ADOConnection1.Close;
end;