PB动态SQL怎么没有返回值

[dos123]

string name,ls_sql,code
dec ld_value
code= "1"

ls_sql= "select sum(a.value) from ttt a"

DECLARE c1 DYNAMIC CURSOR FOR SQLSA;

PREPARE SQLSA FROM :ls_sql;

OPEN DYNAMIC c1 USING :code;

FETCH c1 INTO :ld_value;

If SQLCA.SQLCode=0 then //如果成功取出记录
messagebox('',string(ld_value))
end if

CLOSE c1;


怎么执行后没有返回值,请大家帮忙看看!!!

[xuam]

select sum(a.value) from ttt a

有没有值？

[dos123]

肯定有数据

[xuam]

试试这个：

string ls_sql  
dec ld_value
  
ls_sql= "select sum(a.value) from ttt a"  

DECLARE c1 DYNAMIC CURSOR FOR SQLSA;  
PREPARE SQLSA FROM :ls_sql;  
FETCH c1 INTO :ld_value;  

If SQLCA.SQLCode=0 then //如果成功取出记录  
  messagebox('',string(ld_value))
end if  

CLOSE c1; 

[PB菜鸟]

[Quote=引用楼主 dos123 的回复:]
string name,ls_sql,code
dec ld_value
code= "1"

ls_sql= "select sum(a.value) from ttt a"

DECLARE c1 DYNAMIC CURSOR FOR SQLSA;

PREPARE SQLSA FROM :ls_sql;

OPEN DYNAMIC c1 USING……
[/Quote]

OPEN DYNAMIC c1 USING :code; 这句家参数有何用处？
请看F1 Dynamic SQL Format 3 SQL statement

[gui41021]

string name,ls_sql,code   
dec ld_value
code= "1"   

ls_sql= "select sum(a.value) from ttt a where code = ?"   

DECLARE c1 DYNAMIC CURSOR FOR SQLSA;   

PREPARE SQLSA FROM :ls_sql;   

OPEN DYNAMIC c1 USING :code;   

FETCH c1 INTO :ld_value;   

If SQLCA.SQLCode=0 then //如果成功取出记录   
  messagebox('',string(ld_value))
end if   

CLOSE c1; 

这样就可以了

[dos123]

各位兄弟,测试了 ,还是一样啊

[dos123]

已经解决 谢谢各位