with adoquery do
begin
close;
sql.Clear;
sql.Add('select max(substring(项目编号,5,2)) as 最大编号 from 项目表 ');
sql.Add('where 年度=:year');
Parameters.ParamByName('year').Value:=glbyear;
active:=true;
open;
end;
ls_xmbh:=adoquery.Fieldbyname('最大编号').Value;
同题目,去值时防止sql不成功取得null,怎样判断?
begin
close;
sql.Clear;
sql.Add('select max(substring(项目编号,5,2)) as 最大编号 from 项目表 ');
sql.Add('where 年度=:year');
Parameters.ParamByName('year').Value:=glbyear;
active:=true;
open;
end;
ls_xmbh:=adoquery.Fieldbyname('最大编号').Value;
同题目,去值时防止sql不成功取得null,怎样判断?
解决方案 »
- 如何改变TdxTreeList行的颜色及字体?
- 关于TXT文件的问题很简单但我不会——————在线等待!!!!
- 取得当前控件的name
- 求助!
- idFTP如何连接UNIX L8 SUNOS系统FTP服务器,急!高手前进
- 寻求用delphi编写的中国,或者国际象棋的原代码。重谢!!!拜托了!
- 关于工资系统的讨论
- 如何在DBGrid的OnTitleclick时间中确定点击的是哪一列?
- 请教高手:数据库表操作
- 俺写了一个软件(用delphi5编写的),下载地址是:http://www.csdn.net/filebbs/list_topic.asp 帮我up一下。没分了,不好意思。
- 一个关于WinExec的小小小问题?
- 调用WinRAR时出现的问题
adoquery.open;
except
showmessage('error');
end;
if adoquery.isimpty then
....
else
....
try
//在此写入能sql成功操作
except
//sql异常的情况
end;
if adoquery.isimpty then
改为:
if adoquery.isempty then