如何实现ADOConnection连接出错时的这种效果?
新建一data module,在上面放置adoconnection1,新建连接词如下:
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DataBaseName;Data Source=127.0.0.1
把LoginPrompt置为false
可是当把程序移植到其他机子上运行的时候,由于他人的机子上用户sa设置了密码,登陆就会失败
现在想制作出这样的效果,如何在登陆失败时弹出一个窗体,窗体上显示:登陆失败,可能是由以下原因造成.....并出现三个按钮:恢复数据库(就是将备份的数据库文件恢复到数据库中) 输入用户名密码重试 退出程序
请问应该在程序的哪个位置对连接失败进行检测?
最好能给出完整代码,谢谢~
[解决办法]
try
adoconnection1.connected:=true;
except
on E:Exception do
beign
Application.messagebox( '连接失败,可能原因: ' '+#13#13+E.Message+ ',mb_ok+mb_stop);
end;
并出现三个按钮:恢复数据库(就是将备份的数据库文件恢复到数据库中) 输入用户名密码重试 退出程序
//另外做一个窗体吧,....不要老是希望别人给你原代码,,,最好自己动手写,碰到解决不了的再问......
[解决办法]
来晚了
