B
butterflylly
Unregistered / Unconfirmed
GUEST, unregistred user!
本人写了一个很简单的程序,主要功能叙述如下: 1:执行一个已写好的存储过程,得到数据后写入一个已格式好的Excel文档. 2:定时将这个文档以附件形式发送给指定的邮件. 经测试,问题是在执行存储过程的时候出现的. 代码如下: procedure TForm1.FiledADOSTORE(org: string; workdate: TDatetime; days: integer);begin with asPMCBYDEP do begin Active := false; Parameters.FindParam('@org_name').Value:=org; Parameters.FindParam('@workdate').Value:=workdate; Parameters.FindParam('@day_number').Value:=days; ExecProc; end;end; 调用时: FiledADOSTORE('',cur,days); 在这里就弹出错误了. 其实就是每天给老板发送一个他们要求要看的报表. 程序是放在公司服务器上的,刚开始运行几天没问题, 两三天后就出现这个问题,然后重新再运行,又能挺两三天, 就这样重复的出现问题,好烦哦! 请高手指教啊!