如何捕获ADO链接时的错误(2分)

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #1

各位大虾好！
我建了一个登录窗体，用于链接到SQL SERVER 2000（使用ADO）。
但当密码错误时，系统马上提示链接错误。
使用try...Except 捕获不到这个错误。
怎么样才能捕获到这个错误。

******* delphi新手的菜问题　*******

 

F

fwq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #2

我也为ado的错误发愁！

 

W

wellknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #3

我刚好做了一个:
begin
try
...
except
on E: Exception do
begin
//单据保存失败 显示信息 来自触发器
Application.HandleException(Self);
DM.Dress.RollBackTrans;
M.Edit;//重置编辑状态
end;
end;//try
end;

 

O

ourself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

procedure TfrmConnection.FormShow(Sender: TObject);
var
s:string;
begin
try
adoConnection1.Open;
except
on E: Exception do
begin
showMessage('Error Class: ' + E.ClassName);
showMessage('Error Message: ' + E.Message);
end;
end;
end;

 

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #5

同意。（唉，来迟了）

 

J

jxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #6

我用ApplicationEvents 的 onException 判断E的内容

 

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #7

我也是用wellknow和ourself两位大虾的做法，但在自定义的提示前，系统已提示出错误。
对于jxj大虾的高见，我是一个新手，不晓得如何用，给点源码好吗？

 

J

jxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #8

procedure Tfrm_main.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
begin
if lowercase(sender.ClassName)='tadoconnection' then
begin
showmessage('数据库连接错误,请检察一下网络连接');
application.Terminate;
exit;
end;
end;

 

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #9

各位大虾，我成功了，你们的方法都行。是我的源码中有一点错误。
谢谢各位。
我只有5分，各位平分吧！

 

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #10

以前不晓得如何结贴，今天结了。