866
社区成员
请问如何在PB执行Store Procedure？
请问如何在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!)
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!)
...全文
当前发帖距今超过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!)
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()
貼錯了.
是
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端的程序有问题。
请指导一下，谢谢。
我的程序结构如下,可否请您们指导一下:
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()
的前面?
为什么在
dw_1.settransobject(SQLCA)
dw_1.retrieve()
的前面?
PB实用技巧 如何在PB5中自动生成行号 delelte数据窗口中若干行，然后update,出现: “rows changed between retrieve and update No changes made to database… Delete from table where ….” 请教是何缘故，该数据窗口是...
PB中的82个实用技巧 如何在PB5中自动生成行号 delelte数据窗口中若干行，然后update,出现: “rows changed between retrieve and update No changes made to database… Delete from table where ….” 请教是何缘故，该数据窗口是...
渣翻——Function、Method、Procedure和Subroutine的区别 原文链接：What are the main differences between a function, a method, a procedure and a subroutine?函数（function）函数可以接收参数作为输入，并且产生预定的...在可以执行函数的高级语言或机器出现之前，计
PB编程常用API函数 1. 如何使PB窗口总在最上层 通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗口永远不会被其他窗口覆盖，该函数声明为： Function Long SetWindowPos(Long hwnd, Long ord, ...
如何用VC创建可在PB中调用的DLL pb_struct->val2 = pb_struct->val2 + 1; } Header File //Includes functions declarations, variables and structures declaration and //initialization. long __declspec(dllexport) __stdcall foo3...
Hadoop详解(二)——HDFS的命令，执行过程，Java接口，原理详解。RPC机制 HDFS是Hadoop的一大核心，关于HDFS需要掌握的有：分布式系统与HDFS、HDFS的体系架构和基本概念、HDFS的shell操作、Java接口以及常用的API、Hadoop的RPC机制、远程debugDistributed File System数据量越来越多，在一...
C#下pb使用总结 As part of a new game project I'm working on, I had to store level information in a file and read it in for each new level. I had created a simple level editor as a windows WPF C# project and then I ...
解决 Plugin with id 'com.github.dcendents.android-maven' not found. 在Android studio中引用第三方库的时候，报这个错。 Error:(2, 0) Plugin with id 'com.github.dcendents.android-maven' not found. 搜了一下。 "这是原因为该项目的原作者会把项目发布到maven中央仓库中，所以...
盘点2019年晋升为Apache TLP以及进去Apache孵化器的大数据相关项目 今天是 2019年的最后一天了，明天就是新的一年，在这里预祝大家元旦快乐！也感谢大家过去一年对小编的支持！在过去两年，本博客盘点了当年晋升为 Apache TLP（Apache Top-...
云计算云存储的一些基本概念 我们在学习云计算和云存储之前，需要先了解一些很常见的基本概念，否则在学习过程中和选型时会比较晕。 云计算的三种服务模式：IaaS，PaaS和SaaS 云的分层 任何一个在互联网上提供其服务的公司都可以叫做云计算...
在网上找的－－Oracle数据库名词解释 l 分析和执行应用所发出的SQL语句。 l 从数据文件读必要的数据到SGA区的共享数据区。 l 返回必要信息给应用。 后台进程 Oracle系统使用一些附加的进程来处理系统的必须的工作。这些进程叫后台进程： l ...
SQL Server 2017正式发布，微软老牌数据库如何继往开来？ SQL Server 2017 带来了一系列全新的功能与设计，体现了微软在数据平台建设方面的最新思考和实践。InfoQ 特邀国双科技高级技术总监何恺铎撰文对 SQL Server 2017 进行深入探讨和解析，以飨各位读者。写在前面 数十年...
AIX常见问题 FAQ:怎样在AIX 5.1中建立热后备(hot spare)磁盘？ 环境AIX 5.1 问题怎样在AIX 5.1中建立热后备(hot spare)磁盘？ 解答 在AIX 5.1中可以在操作系统的级别上建立hot spare磁盘。 如需要在某一卷组(VG)中建立hot spare...
在客户端处理Oracle的数据行加锁问题(select for update) 在网络数据库处理数据中，需要保证数据的完整性、多事务的并发性和数据的一致性。数据库系统必须最大限度的保证数据内容的有效性和合理性，使得数据合法与合理，即保证数据的完整性。而网络（多用户）数据库应用系统...
python缓冲区_如何在Python中使用Google的协议缓冲区 python缓冲区When people who speak different languages get together and talk, they try to use a ... 当说不同语言的人聚在一起聊天时，他们会尝试使用小组中每个人都能理解的语言。 To achieve this, ev...
支持Linux和容器化的SQL Server 2017，微软数据库如何继往开来？ SQL Server 2017 带来了一系列全新的功能与设计，体现了微软在数据平台建设方面的最新思考和实践。InfoQ 特邀国双科技高级技术总监何恺铎撰文对 SQL Server 2017 进行深入探讨和解析，以飨各位读者。写在前面数十年...
Hadoop体系不可错过的五大助手 HDFS和MapReduce只是打造Hadoop平台最基本的核心套件，在Apache基金会的网站中还有其他的相关开源套件，共同组成了一个Hadoop体系（Hadoop Ecosystem）。 通过这些相关项目的延伸，开发人员就算不懂Java,也可以...
