请问如何在PB执行Store Procedure?

jameshw 2008-02-27 04:08:55
请问如何在PB执行Store Procedure? 以下是我的程序代码,执行后没有结果产生。

integer li_i
string ls_itemno,ls_storeno,ls_today
ls_today = string(today(),'yyyymmdd') //预交日的where argument
SetPointer(HourGlass!)
IF dw_1.rowcount() = 0 THEN
MESSAGEBOX(gs_msg,'无数据显示!')
sle_1.setfocus()
RETURN
ELSE
FOR li_i=1 TO dw_1.rowcount()
ls_itemno = dw_1.GetItemString (li_i, "td004") //品号
ls_storeno= dw_1.GetItemString (li_i, "cmsmc_mc001") //库别代号
DECLARE proc1 PROCEDURE FOR SP_INVMC_PRE
@itemno = :ls_itemno,
@storeno = :ls_storeno,
@today = :ls_today;
EXECUTE proc1;
NEXT
dw_1.settransobject(SQLCA)
dw_1.retrieve()
END IF
SetPointer(arrow!)
...全文
92 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jameshw 2008-02-28
请问如何在PB执行Store Procedure? 以下是我的程序代码,执行后没有结果产生。

integer li_i
string ls_itemno,ls_storeno,ls_today
ls_today = string(today(),'yyyymmdd') //预交日的where argument
SetPointer(HourGlass!)
IF dw_1.rowcount() = 0 THEN
MESSAGEBOX(gs_msg,'无数据显示!')
sle_1.setfocus()
RETURN
ELSE
FOR li_i=1 TO dw_1.rowcount()
ls_itemno = dw_1.GetItemString (li_i, "td004") //品号
ls_storeno= dw_1.GetItemString (li_i, "cmsmc_mc001") //库别代号
DECLARE proc1 PROCEDURE FOR SP_INVMC_PRE
@itemno = :ls_itemno,
@storeno = :ls_storeno,
@today = :ls_today;
EXECUTE proc1;
NEXT
dw_2.settransobject(SQLCA)
dw_2.retrieve()
END IF
SetPointer(arrow!)
回复
jameshw 2008-02-28
sorry,,,
貼錯了.

dw_2.settransobject(SQLCA)
dw_2.retrieve()
回复
jameshw 2008-02-28
您们好,
我的程序结构如下,可否请您们指导一下:

1.在PB端传品号(ls_itemno),库别代号( ls_storeno),今日日期(ls_today)此三个参数给store procedure(SP_INVMC_PRE)。
2.SP_INVMC_PRE负责计算『在该库别下的该品号,到今日为止的库存可用量』,并将结果写入INVMC_PRE这个Table里。
3.dw_2的data object 是 select INVMC_PRE字段的Tabular。
4.dw_2.settransobject(SQLCA)
dw_2.retrieve()
显示结果。
以上!

附注:
我在 EXCE SP_INVMC_PRE 时,数据跑出来是正确的,且有INSERT INTO 到
INVMC_PRE这个TABLE 里。
所以我怀疑是我在PB端的程序有问题。
请指导一下,谢谢。
回复
dangerous123 2008-02-27
同意楼上的,为何把事务关连和检索数据放在最后了,顺序错了吧.
回复
青锋-SS 2008-02-27
IF dw_1.rowcount() = 0 THEN
为什么在
dw_1.settransobject(SQLCA)
dw_1.retrieve()
的前面?
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

866

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2008-02-27 04:08
社区公告
暂无公告