请教!帮助看一段程序,奇怪,此段程序执行时,竟然没有错误,是关于SQL SERVER存储过程的..(50分)

我编程一软件用到数据库存储过程..执行过后,没得到预期结果,记录没有被存储,请看:
begin
if data_use.ADOStoredProc3.active then
begin
data_use.ADOStoredProc3.Parameters.ParamByName('@Date_zk').value:=datetimepicker1.date;
data_use.ADOStoredProc3.Parameters.ParamByName('@Bm_zk').value:=ls_find;
.....
data_use.ADOStoredProc3.Prepared;
data_use.ADOStoredProc3.ExecProc;
end;

if data_use.ADOStoredProc3.active then

该为 if not data_use.ADOStoredProc3.active then 吧？ []

data_use.AdoStoredProc3.updatebatch;