/*
	功能：演示了Oracle非滚动游标操作

	定义游标时注意事项：
	1. DECLARE CURSOR语句必须是使用游标的第一条语句
	2. 游标名称是一个标识符，而不是宿主变量，其长度是可以任意的，但只有前31个字符有效
	3. 游标所对应的SELECT语句不能包含INTO子句
	4. 游标语句(DECLARE,OPEN,FETCH,CLOSE)必须在同一个预编译单元内
*/
#include 
#include 
#include 

#include 
#pragma comment(lib, "orasql10.lib")

int connect();
void cursor();
void sql_error();

void main()
{
	EXEC SQL WHENEVER SQLERROR DO sql_error();	// 安装错误处理句柄
	if(connect() == 0)
	{
		cursor();
		EXEC SQL COMMIT RELEASE;
	}
	else
		printf("连接失败\n");
}

int connect()					// connect to oracle database
{
	char username[10], password[10], server[10];

	strcpy(username, "scott");
	strcpy(password, "zzb888888");
	strcpy(server, "orcl");

	EXEC SQL CONNECT :username IDENTIFIED BY :password USING :server;

	if(sqlca.sqlcode == 0)
		return 0;
	else
		return sqlca.sqlcode;
}

void sql_error()				// print error infomation
{
	printf("%.*s\n", sqlca.sqlerrm.sqlerrml, sqlca.sqlerrm.sqlerrmc);
}

void cursor()					// 游标操作
{
	int dno, eno;				// 定义宿主变量
	char name[10];
	float salary;

	printf("输入部门号：");
	scanf("%d", &dno);

	EXEC SQL DECLARE emp_cursor CURSOR FOR Select empno, ename, sal from emp where deptno=:dno;	// 定义游标
	EXEC SQL OPEN emp_cursor;	// 打开游标
	EXEC SQL WHENEVER NOT FOUND DO break;	// 游标数据提取完毕后退出循环
	for(;  
	{
		EXEC SQL FETCH emp_cursor into :eno, :name, :salary;	// 循环提取数据
		printf("name = %s(%d), salary = %.2f\n", name, strlen(name), salary);
	}
	EXEC SQL CLOSE emp_cursor;	// 关闭游标

	printf("sqlca.sqlerrd[2] = %d\n", sqlca.sqlerrd[2]);		// sqlca.sqlerrd[2]存放着Select语句作用的行数
}

运行结果：

输入部门号：20
name = SMITH    (9), salary = 800.00
name = JONES    (9), salary = 2975.00
name = SCOTT    (9), salary = 3000.00
name = ADAMS    (9), salary = 1100.00
name = FORD     (9), salary = 3000.00
sqlca.sqlerrd[2] = 5