关于adoconnection异步执行时的错误处理的问题？(200分)

I

iampawpaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-26

• #1

我用了一个adoconnection，在异步执行一个sql时，
我在executecomplete事件里判断执行并显示error,
但是，在第二次执行sql时就会把刚才的错误报出来
（我没有关闭adoconnection）

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #2

很奇怪，把代码贴一点出来？

 

I

iampawpaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #3

savetime：谢谢你的关心。

procedure TForm1.adcExecuteComplete(Connection: TADOConnection;
RecordsAffected: Integer; const Error: Error;
var EventStatus: TEventStatus; const Command: _Command;
const Recordset: _Recordset);
begin
DBExecuting:=False;
if error <> nil then
begin
self.Caption:=error.Description;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
x:integer;
begin
adc.Execute('asdfasdf',x,[eoAsyncExecute])
end;

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #4

有没有试一下提前设置
TADOCommand.ExecuteOption

Execute 不带参数

 

I

iampawpaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #5

试过了，没有用。
还是抱错。

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #6

我测试了一下没有问题啊
开始怀疑是Delphi和ADOExpress的问题
我用Delphi5 + updatepack1 + adoupdatepack1 + adoupdateupak2

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #7

//显示错误信息后将Error清除一下？
ADOConnection.Errors.Clear;

 

I

iampawpaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #8

我试过了 ADOConnection.Errors.Clear;，但是没用。
我用的是 xp 2600,delphi 7 no pack