querystr:='select 日期,期号,奖号,百位,十位,个位 from 中奖数据 where 百位='+a+' and 十位='+b+' and 个位='+c+' union select 日期,期号,奖号,百位,十位,个位 from 中奖数据 where 数据ID in (select 数据ID+1 from 中奖数据 where 百位='+a+' and 十位='+b+' and 个位='+c+')';
Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add(querystr);
try
query1.Open;
except
on EVariantTypeCastError do
howMessage('你要查询的奖号在历史上没有出现过!');
我在执行以上查询时,当查询的奖号在数据表中不存在时系统出错提示如下:
Project fc3ddpr.exe raised exception class EVariantTypeCastError with message
'Could not convert variant of type (Null) into type (Double)'. Process stopped. Use Step or Run to continue.
加了一个try ... except 语名还是行好像是on EVariantTypeCastError do这一句还是不行,拦截不到错误
请高手指点一下:
Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add(querystr);
try
query1.Open;
except
on EVariantTypeCastError do
howMessage('你要查询的奖号在历史上没有出现过!');
我在执行以上查询时,当查询的奖号在数据表中不存在时系统出错提示如下:
Project fc3ddpr.exe raised exception class EVariantTypeCastError with message
'Could not convert variant of type (Null) into type (Double)'. Process stopped. Use Step or Run to continue.
加了一个try ... except 语名还是行好像是on EVariantTypeCastError do这一句还是不行,拦截不到错误
请高手指点一下:
解决方案 »
- DELPHI+科密KC35考勤机,TCP/IP通讯
- 如何把数字以流的方式保存到.dat文件并读取出来
- 如何在delphi7中显示word文件内容?
- quickreport的sub detail中的TQRDBRichText如果为空,后面的内容(在同一个sub detail中)如何实现自动往上提?
- 一个有趣的问题,程序员一般生女儿?请留言你生的是女孩还是男孩
- 关于delphi与mysql的问题
- 我是新手-->关于Socket的问题请大虾帮忙!!!
- 更改网页中的数据的问题 [Error] Unit1.pas(55): Statement expected but 'PROCEDURE' found [Fatal Error] Project2.dpr(9): Could not compil
- ShowMessage的用法
- Delphi程序员=汤锅中的青蛙
- 未来的C/S谁会是王道?
- FastReport,当条码为空的时候,它自动打印000012345678的条码
请高手指点一下:
try
....
except
on e:EVariantTypeCastError do ..........
end;
....
except
on e:EVariantTypeCastError do ..........
end;
用以上的语名不行拦截不到这个错误;
但以下语名好像不起什么作用:
try
....
except
on EVariantTypeCastError do ..........
end;
要不要都没有影响,就好像这个错误不见了一样,不知这样有没有影响,在程序正式发布之后,也就是会不会出错?