Dynamic SQL queries with Pb parameters and result sets

 

Strselecteddepartment = trim (parent. cb_department.text)
String strselecteddepartmentcode

//************
String strsql
Strsql = "select BmbH from pub_bm where BMMC =? "
Declare Cr Dynamic Cursor for sqlsa;
Prepare sqlsa from: strsql;
Open dynamic Cr Using: strselecteddepartment;
Label:
Fetch Cr into: strselecteddepartmentcode;
If sqlca. sqlcode = 0 then // if the record is retrieved successfully
// Perform corresponding processing
Goto label // obtain the next one
End if

Close CR; // close the cursor
//**********