异常处理出错EOleException
jiagu 2004-03-30 09:11:38 我使用了如下的异常处理,但总是提示EOleException没有定义,这是什么问题?
代码如下:
try
with data.mysql_query1 do
begin
close;
sql.Clear;
sqll:='INSERT INTO qyxxcx (nbxh,qymc,zch,zczb,zs,mclx,djjg,zyfzr) VALUES('''+sy_nbxh+''','''+sy_qymc+''','''+sy_zch+''','''+floattostr(sy_zczb)+''','''+sy_zs+''','''+sy_mclx+''','''+sy_djjg+''','''+sy_zyfzr+''')';
showmessage(sqll);
sql.Add(sqll);
showmessage(sql.Text);
execsql;
end;
except
//on E:EOleException do
//begin
with data.mysql_query2 do
begin
close;
sql.Clear;
sql.Add('insert into except values('''+sy_nbxh+''')');
execsql;
end;
data.sybase_query1.Next;
//end;
end;
ProgressBar1.Position:=ProgressBar1.Position+1;
data.sybase_query1.Next;
end;