异常处理出错EOleException

2004-03-30 09:11:38 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++ Builder 6实战教程：从零构建Windows桌面应用，掌握C++与VCL核心开发 C++作为一门经典的面向对象编程语言，其核心价值在于对内存管理、指针操作和底层系统调用的精细控制，这使得它在需要高性能和硬件直接交互的桌面应用开发中依然占据重要地位。其技术原理通过类、继承、多态等机制，实现了代码的模块化和复用，为构建复杂软件系统提供了坚实基础。在工程实践中，快速应用程序开发工具能够显著提升GUI程序的开发效率，通过可视化拖拽和事件驱动编程模型，将界面设计与业务逻辑紧密结合。C++ Builder 6正是这样一款经典的RAD工具，它基于VCL组件库，让开发者能够在直观的IDE环境中，快速构建阅读详情

我使用了如下的异常处理，但总是提示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;

...全文

反激电源占空比为何必须小于0.5？次谐波振荡与斜坡补偿详解在开关电源设计中，峰值电流模式控制因其优异的动态响应和逐周期限流保护而被广泛应用。其工作原理是通过采样电感电流的峰值，与误差电压比较来控制开关管的导通与关断。然而，这种控制方式在反激等隔离拓扑中，当占空比超过50%时，会面临一个固有的稳定性挑战——次谐波振荡。这是由于电流扰动会在相邻开关周期内被放大而非衰减，导致系统在开关频率一半处发生振荡，严重影响输出纹波和可靠性。为解决这一问题，工程上引入了斜坡补偿技术，通过向控制信号叠加一个固定斜率的斜坡，改变环路增益条件，从而在宽输入电压或高占空比需求下维持系统稳定阅读详情

jiagu

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

madyak 2004-03-30

打赏
举报

哈哈，在上面的“管理”按钮下结贴

madyak 2004-03-30

打赏
举报

直接运行Exe,不要在IDE中运行，看看

jiagu 2004-03-30

打赏
举报

顺便问一下，我在什么地方给你们结贴加分呢，我好像没找到过，真是不好意思

jiagu 2004-03-30

打赏
举报

谢谢
但是程序还是会报我前面提到的两次EOleException错，这个咚咚怎么解决啊？是不是我的程序有什么问题或是在ADO的连接上有什么错误啊？

madyak 2004-03-30

打赏
举报

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;
//在这里加入,可进入下次循环.不熟悉mysql
Continue;

end;
end;
ProgressBar1.Position:=ProgressBar1.Position+1;
data.sybase_query1.Next;

jiagu 2004-03-30

打赏
举报

做F7调试后，在碰到第一个data.sybase_query1.Next;后并没有转入执行下一次循环而是继续执行了后面的ProgressBar1.Position:=ProgressBar1.Position+1;data.sybase_query1.Next;

这并不是我所想的，是不是还差什么没写？同时我也希望不要在在执行第一个sql插入语句时报EOleException错了。请指教！

jiagu 2004-03-30

打赏
举报

使用了ComObj后确实不需要定义这个异常类的错了，但是为什么程序还是在执行第一个插入时报了EOleException错，同时也执行了执行第二个插入部分，并没有向我所设想的在程序报EOleException错后转向出错处理执行完第二个插入部分后转入下一次循环，我把完整的原代码拷贝如下，同时说明做这样的异常处理是因为我想将sybase数据库中的部分数据导入mysql，我在导入时能导入600条记录，但在碰到形如“阿瑟毒发似懂非懂发 ?”字段时出EOleException错，别人告诉我这是因为mysql不支持半字符集，同时我每次调试程序时在程序执行到连接mysql的ADO时总是弹出“project **.exe raised exception class EOleException with message'对象或提供者不能执行所需的操作。'process stopped,use step or run to continue'”,但点击确定继续能继续执行程序，我不知道这是为什么。我在次虚心请教了……

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
insert: TButton;
delect: TButton;
ProgressBar1: TProgressBar;
procedure insertClick(Sender: TObject);
procedure delectClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2,ComObj;

{$R *.dfm}

procedure TForm1.insertClick(Sender: TObject);
var
sqll,sy_nbxh,sy_qymc,sy_zch,sy_zs,sy_mclx,sy_djjg,sy_zyfzr:string;
sy_zczb:real;
begin
with data.sybase_query1 do //统计遵义地区的记录总数
begin
close;
sql.Clear;
sql.Add('select count(nbxh) as total from dbo.a_qymccx where djjg like ''5203%''');
open;
end;
ProgressBar1.Max:=data.sybase_query1.fieldbyname('total').AsInteger;

with data.sybase_query1 do
begin
close;
sql.Clear;
sql.Add('select dbo.a_qymccx.nbxh,dbo.a_qymccx.qymc,dbo.a_qymccx.zch,');
sql.Add('dbo.a_qymccx.zczb,dbo.a_qymccx.zs,dbo.a_bm_mclx.nr,dbo.a_bm_djjg.nr,');
sql.Add('dbo.a_qymccx.zyfzr from dbo.a_qymccx,dbo.a_bm_mclx,dbo.a_bm_djjg where dbo.a_qymccx.mclx=dbo.a_bm_mclx.bm and ');
sql.Add('dbo.a_qymccx.djjg=dbo.a_bm_djjg.bm');
showmessage(sql.Text);
open;
end;

with data.mysql_query1 do
begin
close;
sql.Clear;
sql.Add('select * from qyxxcx');
open;
end;
if (data.mysql_query1.Recordset.RecordCount=0) then
begin
while not data.sybase_query1.Eof do
begin
sy_nbxh:=data.sybase_query1.Fields[0].Value;
sy_qymc:=data.sybase_query1.Fields[1].Value;
sy_zch:=data.sybase_query1.Fields[2].Value;
sy_zczb:=data.sybase_query1.Fields[3].AsFloat;
sy_zs:=data.sybase_query1.Fields[4].AsString;
showmessage(sy_zs);
sy_mclx:=data.sybase_query1.Fields[5].Value;
sy_djjg:=data.sybase_query1.Fields[6].Value;
sy_zyfzr:=data.sybase_query1.Fields[7].Value;
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;
end
else
begin
showmessage('"企业基本信息"表不为空，请清空表的内容后在次点击"导入记录"');
end;
end;

procedure TForm1.delectClick(Sender: TObject);
begin
with data.mysql_query1 do
begin
close;
sql.Clear;
sql.Add('truncate table qyxxcx');
execsql;
end;
if (data.mysql_query1.Recordset.RecordCount=0) then
showmessage('"企业基本信息表"已清空')
else
showmessage('操作不成功');
end;

end.

zhlwyy 2004-03-30

打赏
举报

用F7试试单步调试！

madyak 2004-03-30

打赏
举报

加上

uses
ComObj;试一下

异常处理出错EOleException

相关推荐