6.3.9.txt

PowerBuilder数据库开发自学教程 课本源代码 最初由于作者的倏忽

1.
String MySQL
MySQL = "CREATE TABLE Employee" &
		+ " (emp_id integer not null, "&
		+"dept_id integer not null, "&
		+"emp_fname char(10) not null, "&
		+"emp+lname char(20) not null) "
EXECUTE IMMEDIATE :MySQL USING SQLCA;

2.
int Emp_id_var = 56
PREPARE SQLSA FROM "DELETE FROM employee WHERE emp_id + ? ";
EXECUTE SQLSA USING ;Emp_id_var;

3.
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA;
Int Emp_id_var
String Emp_state_var ="北京"
String Sqlstatement

Sqlstatament = "SELECT emp_id FROM employee  WHERE emp_state = ? "
PREPARE SQLSA FROM :Sqlstatement;
OPEN DYNAMIC my_cursor using :Emp_state_var;
FETCH my_cursor INTO :Emp_id_var;
CLOSE my_cursor;

4.
string Stringvar, Sqlstatement
int  	Intvar

Sqlstatement = "SELECT emp_id FROM employee"
PREPARE SQLSA FROM :Sqlstatement ;
DESCRIBE SQLSA INTO SQLDA ;
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
OPEN DYNAMIC my_cursor USING DESCRIPTOR SQLDA ;
FETCH my_cursor USING DESCRIPTOR SQLDA ;
//当FETCH语句执行成功时，动态描述区SQLDA中包含了结果集的
//第一行数据，反复执行FETCH语句即可得到其余数据。
// SQLDA.NumOutputs中包含了输出参数的个数。
// SQLDA.OutParmType数组中包含了各参数的数据类型，
//例如TypeInteger!, 或 TypeString!等
//使用CHOOSE CASE语句针对不同的输出参数类型调用不同的对象函数
//得到相应参数的值。
CHOOSE CASE SQLDA.OutParmType[1]
CASE TypeString!
Stringvar = GetDynamicString(SQLDA, 1)
CASE TypeInteger!
Intvar = GetDynamicNumber(SQLDA, 1)
END CHOOSE
CLOSE my_cursor ;