错了,3应该是“只加一个MessageBox()”
解决方案 »
- 求:vc++小源码转换DELPHI
- simpledataset的delta怎样付给另一个simpledataset的data
- 金山office2005是用delphi开发的,讨论一下为什么金山选择Delphi呢?
- ~~~delphi6如何建立资源文件?~~~~
- Dephi7中有没有与ValueListEditors类似,但列数大于二的控件?
- ★建议论坛增加加亮楼主回复的帖子的功能!同意的请举手,谢谢!
- 在adodataset的AfterScroll中写代码实现了在edit中显示dbgrid中的数据的功能,但是添加的功能就不可以用了
- 如何保存image控件上某块位置上的图像到本地?
- 世界杯冠军预测,大家认为世界杯的冠军是谁?
- 单位让我作一个单机版数据库软件,记录大约有150万到二○○万条,其中涉及大量的查询,统计以及分析功能,我用常用的桌面数据库根本就玩不转,请问各位采取什么样的数据库比较合适?请说明原因
- 客户的问题我们有责任去解决吗
- 在前台怎样对后台adotable中某个特定的字段增加或删除记录。不显示table。
Application.MessageBox('连接指定的数据源时发生错误,错误信息:' + E.Message, '错误', MB_OK + MB_ICONHAND + MB_DEFBUTTON1 + MB_APPLMODAL);
改正后的程序如下:
try
……
except
on E:exception do
begin
ErrorMessage := '连接指定的ODBC数据源时发生错误!' + #10 + #13 + '错误信息:' + E.Message;
Application.MessageBox(PChar(ErrorMessage), '错误信息',
MB_OK + MB_ICONHAND + MB_DEFBUTTON1 + MB_APPLMODAL);
end;
end;还有几个疑问:1.在作try...except...中应该怎样判断会发生什么错误类型?2.在except段中显示错误信息时,是否我自己的错误信息会屏蔽掉系统错误信息?或者说在except段中错误信息的显示是不是有一个优先权的问题?
begin
ADOConnection.Connected := False;
ADOConnection.ConnectionString := '……' //在这里设定连接字符串
ADOConnection.Connected := True;
end;
except
on E: EOldException do
begin
ErrorMessage := '连接指定的数据源时发生错误,错误信息:' + E.Message;
Application.MessageBox(PChar(ErrorMessage), '错误',
MB_OK + MB_ICONHAND + MB_DEFBUTTON1 + MB_APPLMODAL);
end;
end;
用 Exception 也行,
不过这个太泛泛了,当有可能多个语句出现异常的释后很难正确的区分异常类型。但是
adotable 和
adoquery的异常类型又是EDatabaseError了