Pro*C中CLOB的使用

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
/* 包含OCI头文件 */
#include <oci.h>

/* 包含SQLCA头文件 */
#include <sqlca.h>

void connect();
void sql_error();
void init_clob();
void read_clob();
void write_clob();

int main()
{
char action;
/* 安装错误处理句柄 */
exec sql whenever sqlerror do sql_error();

/* 连接到数据库 */
connect();

for( ; ; )
{
printf("\nI:插入雇员,");
printf("A:添加简历,");
printf("S:检索简历,");
printf("X:退出.");
printf("输出入操作:");

scanf("%c" , &action);
getchar();

switch(action)
{
case 'i':
case 'I':
/* 添加雇员，初始化clob列 */
init_clob();
break;

case 'a':
case 'A':
/* 添加简历，修改clob列 */
write_clob();
break;

case 's':
case 'S':
/* 检索简历，读取clob列 */
read_clob();
break;

case 'x':
case 'X':
/* 提交事务，断开连接 */
exec sql commit work release;
return 0;

default:
continue;
}
}

return 0;
}

void connect()
{
EXEC SQL BEGIN DECLARE SECTION;
/* 定义宿主变量 */
char username[20] , password[20];
EXEC SQL END DECLARE SECTION;
/* 输入用户名、口令和网络服务名 */
printf("输入用户名：");
gets(username);

printf("输入口令：");
gets(password);

/* 连接到数据库 */
exec sql connect :username identified by :password;
}

void sql_error()
{
/* 显示SQL错误信息 */
printf("%.*s\n" , sqlca.sqlerrm.sqlerrml , sqlca.sqlerrm.sqlerrmc);
}

void init_clob()
{
EXEC SQL BEGIN DECLARE SECTION;
/* 定义宿主变量 */
int id;
char name[10];
EXEC SQL END DECLARE SECTION;
/* 为输入宿主变量输入数据 */
printf("请输入雇员ID号：");
scanf("%d" , &id);
getchar();

printf("请输入雇员名：");
gets(name);

/* 插入数据并初始化clob列 */
exec sql insert into lobexample values(:id , :name , empty_clob());

/* 提交事务 */
exec sql commit;
}

void read_clob()
{
EXEC SQL BEGIN DECLARE SECTION;
/* 定义clob定位符 */
OCIClobLocator* c1;

/* 定义宿主变量 */
int id , amount;
char buf[1024];
EXEC SQL END DECLARE SECTION;
/* 为输入宿主变量输入数据 */
printf("请输入雇员ID号：");
scanf("%d" , &id);
getchar();

/* 为clob定位符分配内存 */
exec sql allocate :c1;

/* 取得clob定位符 */
exec sql select resume into :c1 from lobexample where id = :id;

/* 获得clob列数据的长度 */
exec sql lob describe :c1 get length into :amount;

/* clob列数据-> 缓冲区*/
exec sql lob read :amount from :c1 into :buf;

/* 释放clob定位符占用的内存 */
exec sql free :c1;

/* 显示clob列数据 */
printf("简历：%.*s\n" , amount , buf);
}

void write_clob()
{
EXEC SQL BEGIN DECLARE SECTION;
/* 定义clob定位符 */
OCIClobLocator* c1;

/* 定义宿主变量 */
int id , amount , offset;
char buf[1024];
EXEC SQL END DECLARE SECTION;
/* 为输入宿主变量输入数据 */
printf("请输入雇员ID号：");
scanf("%d" , &id);
getchar();

printf("请输入雇员简历：");
gets(buf);
amount = strlen(buf);

/* 为clob定位符分配内存 */
exec sql allocate :c1;

/* 取得clob定位符 */
exec sql select resume into :c1 from lobexample where id = :id for update;

/* 获得clob列数据长度 */
exec sql lob describe :c1 get length into :offset;

/* 缓冲区->clob列数据 */
offset = offset + 1;
exec sql lob write :amount from :buf into :c1 at :offset;

/* 释放clob定位符占用的内存 */
exec sql free :c1;

/* 提交事务 */
exec sql commit;

}

运行结果：