/*
	功能：演示了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 eno;					// 定义宿主变量
	char name[10], action;
	float salary;

	EXEC SQL DECLARE emp_cursor SCROLL CURSOR FOR Select empno, ename, sal from emp;	// 定义游标
	EXEC SQL OPEN emp_cursor;	// 打开游标
	EXEC SQL WHENEVER NOT FOUND DO BREAK;	// 游标数据提取完毕后退出循环
	for(;  
	{
		printf("\nF: 第一行，P：前一行，N：下一行，L：最后一行\n");
		printf("C: 当前行，X：退出\n请输入具体操作：");
		scanf("%c", &action);
		fflush(stdin);

		switch(action)
		{
		case 'F':
		case 'f':
			EXEC SQL FETCH FIRST emp_cursor into :eno, :name, :salary;
			break;
		case 'P':
		case 'p':
			EXEC SQL FETCH PRIOR emp_cursor into :eno, :name, :salary;
			break;
		case 'N':
		case 'n':
			EXEC SQL FETCH NEXT emp_cursor into :eno, :name, :salary;
			break;
		case 'L':
		case 'l':
			EXEC SQL FETCH LAST emp_cursor into :eno, :name, :salary;
			break;
		case 'C':
		case 'c':
			EXEC SQL FETCH CURRENT emp_cursor into :eno, :name, :salary;
			break;
		case 'X':
		case 'x':
			EXEC SQL CLOSE emp_cursor;
			return;
		}
		printf("name = %s(%d), salary = %.2f\n", name, strlen(name), salary);
	}

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