try
adostoredproc1.Close;
adostoredproc1.ProcedureName:='dtdq_succ';
adostoredproc1.Parameters.Clear;
adostoredproc1.Parameters.Refresh;
adostoredproc1.Parameters.ParamByName('@linkid').Value:=linkid;
adostoredproc1.ExecProc;
if adostoredproc1.RecordCount<>0 then
begin
if adostoredproc1.FieldByName('status').asstring='DELIVRD' then
result:=1 //计费成功
else
result:=2; //没计费
end
else
result:=0; //无数据处理
except
result:=-1; //excption....
end;那的问题?
adostoredproc1.Close;
adostoredproc1.ProcedureName:='dtdq_succ';
adostoredproc1.Parameters.Clear;
adostoredproc1.Parameters.Refresh;
adostoredproc1.Parameters.ParamByName('@linkid').Value:=linkid;
adostoredproc1.ExecProc;
if adostoredproc1.RecordCount<>0 then
begin
if adostoredproc1.FieldByName('status').asstring='DELIVRD' then
result:=1 //计费成功
else
result:=2; //没计费
end
else
result:=0; //无数据处理
except
result:=-1; //excption....
end;那的问题?
解决方案 »
- 问一个关于list语法相关的问题
- delphi中用一button实现当前dbgrid中查询出的数据导出到excel中
- 判断线程是否已经结束
- treeview 问题........
- 我的163免费邮箱进不去了,你们有用这个的吗?
- 请问高手建立了data module以后如何调用啊?急用!!!在线等待!真的是非常谢谢了!!
- MIDAS请进来,高分奉送!
- 从ShellListView如何将局域网中指定的文件名复制到本地文件家中?
- 两个串口采集数据并绘图,一个定时器控制采集的开始,停止。程序会卡顿
- 怎么对PARADOX数据库的文件进行加密????
- 我想在按钮单击事件中调用这个webservice中的MobileNumberConvert函数,如何做
- 这样的媒体播放器应如何做?
看行不行
如果返回结果集用open