//使用try语句
try{
Query1->ExecSQL();
}
catch(EDatabaseError &E)
{
frm_->Database1->Rollback();
Application->MessageBox(("...."+E.Message).c_str(),"错误",MB_OK);
ProgressBar1->Position=0;
goto err;//或者查询Table或Query的OnUpdateError/OnPostError事件
}
err:
ListBox1->Items->Append("汇总销售数据失败!");
try{
Query1->ExecSQL();
}
catch(EDatabaseError &E)
{
frm_->Database1->Rollback();
Application->MessageBox(("...."+E.Message).c_str(),"错误",MB_OK);
ProgressBar1->Position=0;
goto err;//或者查询Table或Query的OnUpdateError/OnPostError事件
}
err:
ListBox1->Items->Append("汇总销售数据失败!");
解决方案 »
- report machine 报表如何导出EXCEL
- *************如何才能让女朋友HuaiYun呢,大家给支个招****************
- 哪位大侠能提供Webbrowse的示例程序
- 刚来没什么分给,请好人给我回答一下这个关于过程类型的问题。
- Dbgrid的问题,急,在线等!!
- 我该如何使用fastreport来制作动态不定多少字段的报表?给出意见的有分。
- 个人编写软件,需要用到版本控制吗?
- 关于在Delphi中使用MSXML4.0的问题
- 如何生成字体有边框的效果?
- 怎么办?!
- 兔子有一个忙需要大家的帮忙,请帮帮我好吗?100分相赠!~~~~~~~~~~~
- 各位大虾:怎样获得ShellListView控件(Samples)里选定的Item的文件名啊?
try
{
...
}
catch(EOleException &Err)
{
// 这里根据Err.Message的描述写出错处理的代码
}
好象要达到你说的那种通用的作法,只能用catch(...)了。