跳过ADO错误，程序继续！(200分)

S

superbenben

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #1

我是在导一个表到另一个表时，在数据重复时会报错，但是老是解决不了。
现在想要在ADO报错后提示按确定后，怎样还会继续导下一条记录呢？

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #2

你应该捕捉它的错误，然后自己处理，

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #3

try
finally
end;

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #4

while not data.eof do
try
........导入
except
end;
注意小完说的finally不对

 

W

wgzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #5

try
........导入
except
showmessage('有数据重复');
end;

 

Q

qq74

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #6

try
在此写导入代码
except
showmessage('有数据重复');
还应加上事务的回滚代码
end;

 

Z

zhumoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #7

把重复的去掉再导吧.

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #8

都说完了
还说？ []

 

秋

秋之叶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #9

While not EOF do
begin
try
导入语句；
Except
MessageBox('导入该数据出错！');
end;
Next;
end;

 

S

superbenben

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #10

上面的方法还是不行，在提示错误时不会跳到下一条记录去继续导，只会一直循环弹出
错误对框！

 

G

GanQuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #11

ok，do it like this！

while not adotable1.Eof do
begin
try
adotable2.Insert;
adotable2.FieldByName('uid').Value := adotable1.fieldbyname('uid').Value;
adotable2.FieldByName('name').Value := adotable1.fieldbyname('Name').Value;
adotable2.Post;
except
adotable2.Cancel; //add this
showmessage('error');
end;
adotable1.Next;
end;

 

S

superbenben

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #12

多人接受答案了。