执行存储过程时报错

Question

各位高手帮帮忙：
存储过程执行到 "OraStoredProc1.Execute" 报错"Project P_yztx.exe raised exception class N_17 with message'net error 0'.process stopped. Used or step to continue"以前执行存储过程都可以  后来在执行时就报了上面的错误不知道怎么解决  具体执行存储过程代码如下function TCAccessQuery.FileUpdate(flpath:string;fftrid:string):Boolean;
var
  fpath,fname,exepath:string;
  fid,fver,i,j:integer;
  strsql:string;
begin
  if trim(fftrid) <>'' then
  begin
    fname:=ExtractFileName(flpath);
    fname:=UpperCase(fname);
    exepath:=ExtractFilePath(flpath);
    if Pos(exepath,flpath)<=0 then
    begin
      result:=false;
      exit;
    end;
      Frm_DataModule.OraStoredProc1.StoredProcName := 'accupdate';//插入存储过程
      Frm_DataModule.OraStoredProc1.PrepareSQL;
      Frm_DataModule.OraStoredProc1.ParamByName('fftrid').AsInteger:=StrToInt64(trim(fftrid));
      Frm_DataModule.OraStoredProc1.ParamByName('Fname').AsString:=trim(fname);
      Frm_DataModule.OraStoredProc1.ParamByName('fblob').ParamType := ptInput;
      try
      Frm_DataModule.OraStoredProc1.ParamByName('fblob').AsOraBlob.LoadFromFile(flpath);
      except
        //Frm_DataModule.OraStoredProc1.ParamByName('fblob').AsOraBlob.LoadFromFile(pchar(ExtractFilePath(flpath)+'1'+fname));
      end;
      try
        Frm_DataModule.OraStoredProc1.Execute;
        query.Free;
        showmessage('文件更新成功!');
      except
        Result:=false;
        exit;
        
        showmessage('文件更新失败!');      end;
      result:=true;
  end;end;

Answer 1

'net error 0'
是访问不了数据库吧？