PowerBuilder 12.5 SQL游标事务大小错误

Question

我有一个主要问题，并试图找到一种解决方法。我有一个在PB12.5中的应用程序，在SQL和oracle数据库上工作..（与大量的数据）

我使用CURSOR在一个点，但只有在SQL应用程序崩溃。在PB中使用调试我发现sql连接由于事务大小巨大而退缩-1。但我想逐行读取我的数据..是任何解决数据如寻呼的工作？我的意思是让我们取下第一个1000行，然后是其他1000行，等等..我希望你明白我想实现的目标（如果可能的话，打破获取过程并因此减少交易规模），这里是我的代码

DECLARE trans_Curs CURSOR FOR 
SELECT associate_trans.trans_code 
FROM associate_trans 
WHERE associate_trans.usage_code = :ggs_vars.usage ORDER BY associate_trans.trans_code ; 

    OPEN trans_Curs; 
    FETCH trans_Curs INTO :ll_transId; 

    DO WHILE sqlca.sqlcode = 0 
    ll_index += 1 
     hpb_1.Position = ll_index 
     if not guo_associates.of_asstrans_updatemaster(ll_transId, ls_error) then 
     ROLLBACK; 
     CLOSE trans_Curs; 
     SetPointer(Arrow!) 
     MessageBox("Update Process", "Problem with the update process on~r~n" + sqlca.sqlerrtext) 
    cb_2.Enabled = TRUE 
    return 
end if 
FETCH trans_Curs INTO :ll_transId; 
LOOP 
CLOSE trans_Curs; 

Answer 1

首先感谢FDavidov为您的努力，所以我设法使用动态数据存储而不是光标，所以这里是我的解决方案，以防别人需要这个。

String ls_sql, ls_syntax, ls_err 
    Long ll_row 
    DataStore lds_info  

    ls_sql = "SELECT associate_trans.trans_code " & 
       + " FROM associate_trans " & 
       + " WHERE associate_trans.usage_code = '" + ggs_vars.usage +"' "& 
       + " ORDER BY associate_trans.trans_code" 
    ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, "", ls_err) 

    IF ls_err <> '' THEN 
    MessageBox('Error...', ls_err) 
    RETURN 
    END IF 

    lds_info = CREATE DataStore 
    lds_info.Create(ls_syntax, ls_err) 
    lds_info.SetTransObject(SQLCA) 
    lds_info.Retrieve()   

     DO WHILE sqlca.sqlcode = 0 and ll_row <= ll_count    
       FOR ll_row = 1 TO ll_count 
        ll_transId = lds_info.GetItemNumber(ll_row, 'trans_code')       
         ll_index += 1 
         hpb_1.Position = ll_index 
         do while yield(); loop 
         if not guo_associates.of_asstrans_updatemaster(ll_transId, ls_error) then 
          ROLLBACK; 
          DESTROY lds_info 
          SetPointer(Arrow!) 
          MessageBox("Update Process", "Problem with the update process on~r~n" + sqlca.sqlerrtext) 
          cb_2.Enabled = TRUE 
          return 
         end if    
        NEXT 
        DESTROY lds_info      
     LOOP   

Answer 2

由于源表的结构没有完全显示，我会在这里做一些假设。

我们假设这些记录包含一个可以用作参考的独特字段（可以是计数器或时间戳）。我会在这里假设该字段是一个时间戳。我们还假设PB接受带参数的游标（并非所有的解决方案都行;如果不行，则有简单的解决方法）。

你可以修改你的光标是这样的：

[注：我也假设，这里介绍的语法是有效的为您的环境;如果不是，修改是简单]

DECLARE TopTime TIMESTAMP ; 
DECLARE trans_Curs CURSOR FOR 
     SELECT ots.associate_trans.trans_code 
      FROM ots.associate_trans 
      WHERE ots.associate_trans.usage_code = :ggs_vars.usage 
      AND ots.associate_trans.Timestamp < TopTime 
      ORDER BY ots.associate_trans.trans_code 
      LIMIT 1000 ; 
: 
: 
IF (p_Start_Timestamp IS NULL) THEN 
    TopTime = CURRENT_TIMESTAMP() ; 
ELSE 
    TopTime = p_Start_Timestamp ; 
END IF ; 

OPEN trans_Curs; 
FETCH trans_Curs INTO :ll_transId; 
: 
: 

在上述：

1. p_Start_Timestamp是这将最初是空的，然后将包含OLDEST时间戳取在先前调用中接收的时间戳参数，

2. CURRENT_TIMESTAMP()是您的环境返回当前时间戳的函数。

该解决方案将单独工作时，你需要在一个方向（即从现在到过去的）进步和您所积累的所有提取的记录在内部缓冲区的情况下，你需要滚动再升。

希望这可以让事情更清楚。