- 论坛徽章:
- 0
|
求教:如何在pb中调用db2的存储过程?
你在PB中的语句有错!
For example:
declare probom procedure for sds.getBom1 @aID=:strID,@aDepth= epth using sdsSqlCa;
//Depth=10
execute probom;
fetch probom into :li_Level,:ls_ID,:ls_pID,:li_Num,:ld_Rate;
nCount=1
do while sdssqlca.sqlcode =0
if trim(ls_ID)<>;"0" then
liA_Level[nCount]=li_Level
lsA_ID[nCount]=ls_ID
lsA_pID[nCount]=ls_pID
liA_Num[nCount]=li_Num
ldA_Rate[nCount]=ld_Rate
nCount++
end if
fetch probom into :li_Level,:ls_ID,:ls_pID,:li_Num,:ld_Rate;
loop
close probom; |
|