如何在Delphi中调用Oracle 的(包)package

最新推荐文章于 2020-03-11 11:34:49 发布

原创最新推荐文章于 2020-03-11 11:34:49 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #oracle

delphi 专栏收录该内容

3 篇文章

订阅专栏

博客展示了使用BDE连接Oracle的代码。代码中包含对查询结果是否为空的判断，创建存储过程，设置数据库名、存储过程名，创建参数，为参数赋值，以及执行存储过程等操作，最后获取输出参数的值。

用BDE连接Oracle
if QryViewMain.IsEmpty then
   exit;
  StoredPr:=TStoredProc.Create(nil);
  WITH StoredPr DO
  BEGIN    //CWCB_PAKES.SALE_CANPUTTONORMALSHIPBILL
   DatabaseName:='DBNAME';
   StoredProcName:=uppercas('CWCB_PAKES.SALE_CANPUTTONORMALSHIPBILL');
   Params.Clear;
   Params.CreateParam(ftstring, 'AXIAOHUODH', ptinput);
   Params.CreateParam(ftstring, 'AZHIZAODH', ptoutput);
   Params.ParamBYNAME('AXIAOHUODH').Value :=
         QRYVIEWMAIN.FieldByName('f_cXiaoHuoDH').asstring;
   { Params.PARAMBYNAME('AXIAOHUODH').ASSTRING :=
         QRYVIEWMAIN.FieldByName('f_cXiaoHuoDH').asstring; }
   PREPARE;  EXECPROC;  aZhiZaoDH:='';
                        //Params.
   aZhiZaoDH:= TRIM(Params.ParamBYNAME('AZHIZAODH').ASSTRING);
END;
  END;