动态SQL的奇怪问题

[侠雨飞飞]

以下是核心代码

PREPARE SQLSA FROM :Sqlstatement ;

DESCRIBE SQLSA INTO SQLDA ;

DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;

OPEN DYNAMIC my_cursor USING DESCRIPTOR SQLDA ;


do while true


FETCH my_cursor USING DESCRIPTOR SQLDA ;

if sqlca.sqlcode<>0 then
exit
end if


row=dw_2.insertrow(0)
// 显示当前插入的行数
w_wait.st_row.text=string(row)
//循环列
for i=1 to li_count

CHOOSE CASE SQLDA.OutParmType[i]


CASE TypeString! //ok
//messagebox('','TypeString')

Stringvar = GetDynamicString(SQLDA, i)
dw_2.setitem(row,i,stringvar)
case typedouble! //ok
doublevar = GetDynamicNumber(SQLDA, i)
//dw_2.setitem(row,i,doublevar)
case typedate! //ok
//messagebox('','typedate')
datevar=GetDynamicDate(sqlda,i)
//dw_2.setitem(row,i,datevar)

case typedatetime! //ok
//messagebox('','typedatetime')
datetimevar=GetDynamicDateTime(sqlda,i)
//dw_2.setitem(row,i,datetimevar)
case typelong! //常数被sqlserver识别为long型 //ok
longvar = GetDynamicNumber(SQLDA, i)
//dw_2.setitem(row,i,longvar)


case else
messagebox('警告','有无法识别数据格式，请联系程序开发人员')
exit
// CASE typeinteger!
// intvar =integer(GetDynamicNumber(SQLDA, i))
//
// dw_2.setitem(row,i,intvar)
// case typedecimal!
// decvar = GetDynamicNumber(SQLDA, i)



// case typereal!//,typeboolean!
//
// realvar = GetDynamicNumber(SQLDA, i)
// //decvar=round(decvar,2)




END CHOOSE
next

loop
CLOSE my_cursor ;

//-----------------------------------------------------------
上面这个动态SQL就是根据一个 select 语句产生结果集，然后，循环将每一行每一列插入到一个数据窗口对象中

现在的问题是，执行时，游标循环取了几百次后，系统就没有反应了
若将CHOOSE CASE SQLDA.OutParmType[i]里面的内容都注释掉
系统正常
我也单步执行过了
源数据就四种类型
TypeString! typedouble! typedatetime! typelong!
而且我也查过，源数据不存在为空的情况

但是为何循环一定次数就没有反应了呢，正常情况应该不断显示变化的行号
这个结果集有6万多条数据,偶尔也循环成功过（局部代码变化）

[youqiong]

游标
效率低
恐怕是它的问题

[youqiong]

最好把环境说下，想实现成什么样
或许会有更好的解决办法
＝＝
它执行成功过，应该不是代码对错的问题，考虑优化

[侠雨飞飞]

嘿嘿
好像不关程序什么事情
PB的问题
虽然动态显示数字没有变化
但循环一直在进行
看上去好像程序死掉一样
最后循环完毕也就正常了

[kucool]

-------------------------------
它执行成功过，应该不是代码对错的问题，考虑优化
---------------------------------------------
严重同意

[侠雨飞飞]

从SQLSERVER数据库表导数据到ORACLE

[li_d_s]

游标这种东西该淘汰了，用datastore动态创建dataobject再retrieve效率高的多

[侠雨飞飞]

是么，我昨晚也想这样，不行就不用游标了
很邪门，今天早上来，居然不报错了
6万多条都导入进去了
原来报错时候，也是每次都重启程序的