PB动态SQL语句执行应用

decimal c_value
integer li_returns
datetime ldt_date
string ls_date
ldt_date = adt_date

string ls_sqlstring

//ls_sqlstring = 'select isnull('+colname+',0) from '+&
// '(select usr_id,gwgz,qjj,wpbt,zfgjj,dkdj,fzf,ghhf,zfbt  from gzlr where datediff(mm,time,?) = 0 EXCEPT '+&
// 'select usr_id,gwgz,qjj,wpbt,zfgjj,dkdj,fzf,ghhf,zfbt  from gzlr where datediff(mm,time,?) = 0) as a '+&
// 'where a.usr_id = ?'
ls_sqlstring = 'select '+colname+' from '+&
'( select usr_id,gwgz,qjj,wpbt,zfgjj,dkdj,fzf,ghhf,zfbt  from gzlr where datediff(mm,time,?) = 1 ) as a '+&
' where a.usr_id = ?'
//'( select usr_id,gwgz,qjj,wpbt,zfgjj,dkdj,fzf,ghhf,zfbt  from gzlr where datediff(mm,time,?) = 1) as a '+&


//EXECUTE IMMEDIATE :ls_sqlstring USING SQLCA;
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA;


//SQLstatament = "SELECT emp_id FROM employee  WHERE emp_state = ?"
//ls_sqlstring = "select js from ksjs where 1 = ? and 2 = ?"
//int i = 1,j = 1
PREPARE SQLSA FROM :ls_sqlstring;


OPEN DYNAMIC my_cursor using :usrid;


//messagebox('',ls_sqlstring)
//messagebox('',colname+'/'+ls_date+'/'+usrid)
FETCH my_cursor INTO :c_value;


CLOSE my_cursor;
adc_lastvalue = c_value
if c_value <> colvalue then
return 1
else
return 0
end if