请各位看下下面的动态SQL语句为什么不能实现预期的效果

[zhf_1021]

sqlstatement = "insert into AccidentExpectRec values( ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"

prepare SQLSA from :_sqlstatement using mTrans_Target;
describe SQLSA into SQLDA;
declare my_cursor dynamic cursor for SQLSA;

int i_colNum, i_colCount
i_colCount = UpperBound(_data)
for i_colNum = 1 to i_colCount
SQLDA.SetDynamicParm( i_colNum, _data[i_colNum])
next

open dynamic my_cursor using descriptor SQLDA;
fetch my_cursor using descriptor SQLDA;

if mTrans_Target.SQLcode = 0 then
return True
else
MessageBox("插入数据", "错误")
return False
end if

------------------------------------------------
mTrans_Target是自定义事务
大家帮忙看看为什么一数据插入不到数据库中（sqlcode总是为-1）

[zhf_1021]

public function string getdynamicinsertclause (integer _colcount);string sqlstatement
sqlstatement = "insert into " + ms_TableName + " values( "
int i_colNum
for i_colNum = 1 to _colcount - 1
sqlstatement += "?,"
next

sqlstatement += "?)"

return sqlstatement
end function

public function boolean insertdatatotarget (any _data[], string _sqlstatement);

//string Sqlstatement
//sqlstatement = "insert into " + ms_TableName

prepare SQLSA from :_sqlstatement using mTrans_Target;
describe SQLSA into SQLDA;
declare my_cursor dynamic cursor for SQLSA;

int i_colNum, i_colCount
i_colCount = UpperBound(_data)
for i_colNum = 1 to i_colCount
SQLDA.SetDynamicParm( i_colNum, _data[i_colNum])
next

open dynamic my_cursor using descriptor SQLDA;
fetch my_cursor using descriptor SQLDA;

if mTrans_Target.SQLcode = 0 then
return True
else
MessageBox("插入数据", "错误")
return False
end if

//
end function

[zhf_1021]

没人会吗？

[仰天长啸qsx]

将sqlca.autocommit=true，执行完了再false

[ghost34]

.....
boolean lb_ret
open dynamic my_cursor using descriptor SQLDA;
fetch my_cursor using descriptor SQLDA;
if mTrans_Target.SQLcode = 0 then
commit;
lb_ret = true
else
rollback;
MessageBox("插入数据", "错误")
end if
close my_cursor;
return lb_ret

[zhf_1021]

SQLCode的值总是等于-1，commit根本不执行

[zhf_1021]

是不是sql语句有错误？

[rightyeah]

我从来不做这种危险又麻烦的动作的，我都用dw完成的

[freedom2001]

你把sqlerrtext错误信息打message出来，这样估计你自己就能看出问题了

[zhf_1021]

我查看了错误信息：Cursor is not open，（游标没有打开），可我已经打开了啊

[rita187878]

路过...... --------------------- |水 是 生 命 之 源! |买 点 卡,拿 工 资 |http://www.p ay 3 6 5.com.cn ---------------------

[zzepc]

使用数据存储吧

[AFIC]

那你在open Cursor 时在检查一下错误阿。