随着Linux操作系统的不断完善与发展，出现了大量基于 Linux平台的应用开发，原有的 基于UNIX平台的商业软件也不断被移植到Linux上来。最典型的，Oracle公司宣布，他的现有 的及未来所有的数据库产品和商业应用都将支持Linux平台。本文所述OCI for Linux的C语言 　　我们知道，在一个复杂的Oracle数据库应用中，C程序代码由于其语言本身的灵活性、高 效性，往往被加入到其商务逻辑的核心层模块中。Oracle数据库对C语言的接口就是 OCI(Oracle Common Interface) C-Library，该库是一个功能十分强大的数据库操作模块。它 支持事务处理，单事务中的多连接多数据源操作，支持数据的对象访问、存储过程的调用等一 系列高级应用，并对Oracle下的多种附加产品提供接口。但是我们发现，为了使OCI库在多种 平台上保持统一的风格并考虑向下兼容性，Oracle对大量的C语言类型和代码进行了重新封装 ，这使得OCI库初看上去显得纷繁复杂，初用者不知从何下手。由Kai Poitschke开发的 Libsqlora8库初步解决了这一问题，它使得在Linux下Oracle的非高端C语言开发变得比较方便 　　Libsqlora8 for *nix是GNU/Linux组织开发的针对Oracle8 OCI library的易用性C语言 封装。它将大量的OCI数据类型表现为通用C语言数据类型，将OCI函数按类型重新分类封装 ，大大减少了函数的调用步骤和程序代码量。Libsqlora8还有许多引人注目的特性: 　　易于使用的动态SQL特性； 　　同一连接中具有不同变量绑定的游标的重复打开； 　　相同事务中的多数据库连接； 　　Oracle数据库应用开发中的Build-in trace功能； 　　正确处理数据插入操作中的数组变量问题； 　　多平台支持Oracle 8.0.4(HP-UX 9), Oracle 8.05(GNU/Linux), Oracle 　　可以作为静态或动态形式链接进入应用程序。 　　下面我们分步骤详细阐述如何在Linux平台上利用Libsqlora8函数库开发Oracle数据库应 　　1.安装Linux操作系统，并对新系统进行适当的系统配置。在本例中我们选用RedHat Linux 6.2操作系统。在为系统分区时，我们为Oracle数据库专门分出两个分区：/u01,/u02, 作为Oracle数据库的系统软件和数据库文件的安装点。安装好系统后，我们为系统增添两个新 组：oinstall和dba,并创建一个新用户Oracle，他拥有整个数据库系统软件。这里就不详细说 　　2.下面我们应该安装Oracle数据库了，这次我们选用Oracle 8.1.6版本，该版数据库对国 际化有很好的支持。在安装数据库之前，我们要先对Oracle用户进行一些设置。主要是在该用 户的启动脚本中，加入一些必要的环境变量，在本例中可以如下设置： 　　ORACLE_BASE=/u01/app/oracle 　　ORACLE_HOME=$ORACLE_BASE/product/8.1.6 　　ORACLE_SID=oratest 　　PATH=$ORACLE_HOME/bin:/usr/bin:/etc:/bin:/usr/local/bin:/usr/X11R6/bin 　　LD_LIBRARY_PATH=$ORACLE_HOME/lib 　　export ORACLE_BASE ORACLE_HOME ORACLE_SID PATH 　　3.Oracle 8.1.6的数据库安装是比较简单的，我们选择缺省安装，在系统的提示下逐一完 成安装过程。注意，Oracle8i对系统的要求是比较高的,特别是内存，在一些特殊应用中，要 修改系统的缺省设置以提高数据库性能。有关数据库调优的讨论与本文无关，在此就不再详细 介绍了。启动数据库，好了，现在我们可以用sqlplus登录数据库，可以看到，缺省安装的 Oracle数据库有一类OCITest数据库表，就使用这些表作为我们例子中的缺省表。 　　4.安装Libsqlora8库函数。该库函数当前版本为Libsqlora8-2.1.5，可从许多Linux网站 上得到，也可从http://www.china-linux.org上下载libsqlora8-2.1.5.tar.gz源程序包。按 以下步骤安装： 　　$>tar -xzvf libsqlora8-2.1.5.tar.gz 　　对于要使用Oracle build-in trace功能的开发者，还要将以下环境变量设置好， SQLORA_TRACE_LEVEL，SOLORA_TRACE_FILE，SQLORA_ARRAYSIZE，当然，ORACLE_SID是一定要 　　5.下面，我们介绍一下Libsqlora8的主要函数。 　　1)int sqlo_init(int threaded_mode) 初始化程序库接口，读出环境变量，设置相应的 　　2)int sqlo_connect(int * dbh, char * connect_str) 连接数据库，dbh为数据库连接 　　3)int sqlo_finish(int dbh) 断开数据库连接。 　　4)int sqlo_open(int dbh, char * stmt, int argc, char *argv[]) 打开由stmt确定的 查询语句所返回的游标。Argc,argv为查询的参数，后面我们将用更清晰的方法传递参数。 　　5)int sqlo_close(int sth) 关闭由上一个函数打开的游标。 　　6)int sqlo_fetch(int sth) 从打开的游标中获取一条记录，并将之存入一个已分配内存 　　7)const char **sqlo_values(int sth, int *numbalues, int dostrip) 从内存中返回 上一次sqlo_fetch取得的值，是以字符串形式返回的。 　　8)以下介绍另一种检索方式，int sqlo_prepare(int dbh, char const *stmt)，返回一 　　9)int sqlo_bind_by_name(int sth, const char * param_name, int param_type, const void * param_addr, unsigned int param_size, short * ind_arr, int is_array) 将查询语句的传入参数，按照名字的形式与函数中的变量绑定。如果你使用数组，那么参数 　　int sqlo_bind_by_pos(int sth, int param_pos, int param_type, const void * param_addr, unsigned int param_size, short * ind_arr, int is_array) 将查询语句的传 　　10)int sqlo_execute(int sth, int iterations) 执行查询语句。“Iterations”可设 　　11)在执行完数据库操作后，我们可用int sqlo_commit (int dbh)提交操作，或用int 　　12)Libsqlora8还有其他一些操作函数，这里就不一一列出了。 　　下面举几个例子说明这些函数如何使用。 　　cstr = "ocitest/ocitest"; //用户名/口令 　　status = sqlo_init(0); 　　if (SQLO_SUCCESS != status) 　　{ printf ("sql_init failed. Exitingn"); 　　exit(1); 　　} 　　status = sqlo_connect(&dbh, cstr); // int dbh 　　以上源代码，显示了如何连接数据库。 　　/* Select all and display */ 　　char *select_stmt="SELECT cname, clength, colid FROM ocicolu"; 　　if (0>(sd = sqlo_open(dbh, select_stmt, 0, NULL))) 　　{ printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　while (0 == sqlo_fetch(sd,1)) 　　{ v = sqlo_values(sd, NULL, 1); 　　printf("Result: %sn",v); 　　} 　　if (0 > sqlo_close(sd)) 　　{ printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　以上例子展示了第一种查询方法，显然，这种方法较简单，但不够灵活。 　　char *update_stmt = 　　"UPDATE ocitest.upload_log SET upload_fresh = where log_name = :1"; 　　if (0 <= (sth = sqlo_prepare(dbh, update_stmt))) 　　{ if (SQLO_SUCCESS != 　　(sqlo_bind_by_name(sth, ":1", SQLOT_STR, packet_name, 64, NULL, 0) 　　)) 　　{ printf("sqlo_bind_param failed failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　} 　　if (SQLO_SUCCESS != sqlo_execute(sth, 1)) 　　{ printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　上面的代码显示了如何通过名字绑定变量，“：1”在Oracle SQL语句中表示为一个变量 （名字随意），在sqlo_bind_by_name函数中与packet_name变量绑定。在变量绑定完毕后，就 　　好了，我们已经向大家介绍了Libsqlora8的基本使用方法，如果希望了解更多内容， Libsqlora8的程序包中带有详细的说明和例子，大家不妨自己钻研一下。有什么心得，欢迎和 　　/*------------------------------------------------------------------------- 　　* testlora.c 　　* Test programm for libsqlora8(Kai Poitschke) 　　* Assuming you installed the library with prefix=/usr/local, the command 　　* to compile this is: 　　* gcc -o sample sample.c -lsqlora8 -L$ORACLE_HOME/lib -lclntsh 　　*-----------------------------------------------------------------------*/ 　　#include 　　#include "sqlora.h" 　　#define MAX_ITERS 10 　　#define MAX_LOOPS 1 /* how many time we run the tests */ 　　#define CLOSE_CURSOR 1 　　/*------------------------------------------------------------------------- 　　* create our test table 　　*-----------------------------------------------------------------------*/ 　　int create_table( int dbh ) 　　{ 　　int nkey; 　　char ckey[6]; 　　double nval; 　　char cval[21]; 　　char dval[11]; 　　int sth; 　　char * create_table = 　　"CREATE TABLE T_SQLORA_TEST (n" 　　"NKEY NUMBER(8) NOT NULL,n" 　　"CKEY VARCHAR2(5) NOT NULL,n" 　　"NVAL NUMBER(16,4) NULL,n" 　　"CVAL VARCHAR2(20) NULL,n" 　　"DVAL DATE)"; 　　/* Check if the table already exists */ 　　if (SQLO_NO_DATA == 　　sqlo_exists(dbh, "USER_TABLES", "TABLE_NAME", "T_SQLORA_TEST", NULL)) 　　{ 　　/* No, create it */ 　　if (SQLO_SUCCESS != sqlo_exec(dbh, create_table)) 　　{ 　　printf("create_table failed: %sn%sn", sqlo_geterror(dbh), 　　create_table); 　　return 0; 　　} 　　printf("Table T_SQLORA_TEST createdn"); 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* Query the test table 　　*-----------------------------------------------------------------------*/ 　　int do_select( int dbh ) 　　{ 　　int sd; 　　const char **v; 　　int argc; 　　const char *argv[1]; 　　char * select_stmt = 　　"SELECT NKEY, CKEY, NVAL, CVAL, DVAL FROM T_SQLORA_TEST WHERE NKEY >= :1"; 　　argc = 0; 　　argv[argc++] = "0"; 　　/* Select all and display */ 　　if (0>(sd = sqlo_open(dbh, select_stmt, argc, argv))) 　　{ 　　printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　/* sqlo_print(sd);*/ 　　while (0 == sqlo_fetch(sd,1)) 　　{ 　　v = sqlo_values(sd, NULL, 1); 　　printf("%4s%6s%19s%21s%11sn", v[0], v[1], v[2], v[3], v[4]); 　　} 　　#ifdef CLOSE_CURSOR 　　if (0 > sqlo_close(sd)) 　　{ 　　printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　#endif 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* Select with prepare/execute/fetch. 　　*-----------------------------------------------------------------------*/ 　　int test_select2( int dbh ) 　　{ 　　int sth; 　　int nkey[MAX_ITERS]; 　　char ckey[MAX_ITERS][6]; 　　double nval[MAX_ITERS]; 　　char cval[MAX_ITERS][21]; 　　char dval[MAX_ITERS][11]; 　　int wc = 1; 　　int status; 　　int i; 　　short nkeyl[MAX_ITERS]; 　　short ckeyl[MAX_ITERS]; 　　short nvall[MAX_ITERS]; 　　short cvall[MAX_ITERS]; 　　short dvall[MAX_ITERS]; 　　int rows_fetched = 0; 　　int rows_fetched_total = 0; 　　int rows_to_fetch; 　　int done_fetching = 0; 　　char * select_stmt = 　　"SELECT NKEY, CKEY, NVAL, CVAL, DVAL FROM T_SQLORA_TEST WHERE NKEY >= :1"; 　　printf("Test select via classic methodsn"); 　　/* Select all and display */ 　　if (0>(sth = sqlo_prepare(dbh, select_stmt))) 　　{ 　　printf("sqlo_prepare failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　/* Bind input */ 　　if (SQLO_SUCCESS != 　　(sqlo_bind_by_name(sth, ":1", SQLOT_INT, &wc, sizeof(int), NULL, 0))) 　　{ 　　printf("sqlo_bind_by_name failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　/* Define Output */ 　　if (SQLO_SUCCESS != 　　(sqlo_define_by_pos(sth, 1, SQLOT_INT, nkey, sizeof(int),0,nkeyl, 1) || 　　sqlo_define_by_pos(sth, 2, SQLOT_STR, ckey[0], 6, 0, ckeyl, 1) || 　　sqlo_define_by_pos(sth, 3, SQLOT_FLT, nval, sizeof(double),0,nvall,1) || 　　sqlo_define_by_pos(sth, 4, SQLOT_STR, cval[0], 21, 0, cvall, 1) || 　　sqlo_define_by_pos(sth, 5, SQLOT_STR, dval[0], 11, 0, dvall, 1))) 　　{ 　　printf("sqlo_define_by_pos failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　rows_to_fetch = 3; 　　rows_fetched = rows_to_fetch; 　　status = sqlo_execute(sth, rows_to_fetch); 　　{ 　　printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return(0); 　　} 　　else if (status == SQLO_NO_DATA) 　　{ 　　/* arrays were filled fully. Get rowcount */ 　　rows_fetched = sqlo_prows(sth); 　　done_fetching = 1; 　　printf("Execute fetched all %d rowsn", rows_fetched); 　　printf("Fetched all in one gon"); 　　for (i = 0; i < rows_fetched; ++i) 　　{ 　　printf("%3d %5s %19f %20s %10sn", 　　nkey, ckey, nval, cval, dval); 　　} 　　} 　　for (i = 0; i < rows_fetched; ++i) 　　{ 　　if (!i) 　　printf("Execute fetched %d rowsn", rows_fetched); 　　printf("%3d %5s %19f %20s %10sn", 　　nkey, ckey, nval, cval, dval); 　　} 　　rows_fetched_total += rows_fetched; 　　rows_to_fetch = 4; 　　while(!done_fetching) 　　{ 　　rows_fetched = rows_to_fetch; 　　status = sqlo_fetch(sth, rows_to_fetch); 　　{ 　　printf("sqlo_fetch failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　if (status == SQLO_NO_DATA) 　　{ 　　rows_fetched = sqlo_prows(sth); 　　if (rows_fetched_total == rows_fetched) 　　{ 　　/* no new fetches */ 　　done_fetching = 1; 　　rows_fetched = 0; 　　} 　　else 　　{ 　　rows_fetched = rows_fetched - rows_fetched_total; 　　done_fetching = 1; 　　} 　　printf("sqlo_fetch fetched last %d rowsn", rows_fetched); 　　} 　　else if (status == SQLO_SUCCESS) 　　{ 　　printf("sqlo_fetch fetched %d rowsn", rows_fetched); 　　} 　　else 　　{ 　　printf("sqlo_fetch failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　for (i = 0; i < rows_fetched; ++i) 　　{ 　　printf("%3d %5s %19f %20s %10sn", 　　nkey, ckey, nval, cval, dval); 　　} 　　rows_fetched_total += rows_fetched; 　　} 　　#ifdef CLOSE_CURSOR 　　if (0 > sqlo_close(sth)) 　　{ 　　printf("sqlo_close failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　#endif 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_reopen 　　*-----------------------------------------------------------------------*/ 　　int test_reopen( int dbh ) 　　{ 　　int sth; 　　const char **v; 　　int argc; 　　const char *argv[1]; 　　char * select_stmt = 　　"SELECT NKEY, CKEY, NVAL, CVAL, DVAL FROM T_SQLORA_TEST WHERE NKEY >= :1"; 　　argc = 0; 　　argv[argc++] = "0"; 　　/* Select all and display */ 　　if (0>(sth = sqlo_open(dbh, select_stmt, argc, argv))) 　　{ 　　printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　while (0 == sqlo_fetch(sth,1)) 　　{ 　　v = sqlo_values(sth, NULL, 1); 　　printf("%s|%6s%19s%21s%11sn", v[0], v[1], v[2], v[3], v[4]); 　　} 　　argv[0] = "5"; 　　if (SQLO_SUCCESS != sqlo_reopen(sth, argc, argv)) 　　{ 　　printf("sqlo_reopen failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　printf("Fetch againn"); 　　while (0 == sqlo_fetch(sth,1)) 　　{ 　　v = sqlo_values(sth, NULL, 0); 　　printf("%s|%6s%19s%21s%11sn", v[0], v[1], v[2], v[3], v[4]); 　　} 　　#ifdef CLOSE_CURSOR 　　if (0 > sqlo_close(sth)) 　　{ 　　printf("sqlo_open failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　#endif 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_plsql 　　*-----------------------------------------------------------------------*/ 　　int test_plsql( int dbh ) 　　{ 　　int ip2, op1; 　　double ip1; 　　char op2[40]; 　　char * create_pack = 　　"CREATE OR REPLACE PACKAGE SQLORA_TEST ISn" 　　" PROCEDURE P1(ip1 IN NUMBER, ip2 IN NUMBER, op1 OUT NUMBER, op2 OUT 　　"END;n"; 　　char * create_pack_body = 　　"CREATE OR REPLACE PACKAGE BODY SQLORA_TEST ISn" 　　" PROCEDURE P1(ip1 IN NUMBER, ip2 IN NUMBER, op1 OUT NUMBER, op2 OUT 　　" IS n" 　　" BEGINn" 　　" op1 := TO_NUMBER(ip1) + ip2;n" 　　" op2 := TO_CHAR(op1);n" 　　" END;n" 　　"END;n"; 　　char * stmt = 　　"BEGINn" 　　" SQLORA_TEST.P1(:ip1, :ip2, :op1, :op2);n" 　　"END;n"; 　　int sth; 　　printf("Testing PL/SQL proceduren"); 　　if (SQLO_SUCCESS != sqlo_exec(dbh, create_pack)) 　　{ 　　printf("sqlo_exec failed: %sn%sn",sqlo_geterror(dbh), create_pack ); 　　return 0; 　　} 　　printf("Package createdn"); 　　if (SQLO_SUCCESS != sqlo_exec(dbh, create_pack_body)) 　　{ 　　printf("sqlo_exec failed: %sn%sn",sqlo_geterror(dbh), create_pack_body ); 　　return 0; 　　} 　　printf("Package body createdn"); 　　ip1 = 1.123456789012345; 　　ip2 = 20; 　　op1 = 0; 　　*op2 = 0; 　　if (0 <= (sth = sqlo_prepare(dbh, stmt))) 　　{ 　　if (SQLO_SUCCESS != 　　(sqlo_bind_by_name(sth, ":ip1", SQLOT_FLT, &ip1, sizeof(ip1),0,0) || 　　sqlo_bind_by_name(sth, ":ip2", SQLOT_INT, &ip2, sizeof(ip2),0,0) || 　　sqlo_bind_by_name(sth, ":op1", SQLOT_INT, &op1, sizeof(op1),0,0) || 　　sqlo_bind_by_name(sth, ":op2", SQLOT_STR, op2, sizeof(op2),0,0) 　　)) 　　{ 　　printf("sqlo_bind_param failed failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　else 　　{ 　　if (SQLO_SUCCESS != sqlo_execute(sth, 1)) 　　{ 　　printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　} 　　#ifdef CLOSE_CURSOR 　　if (SQLO_SUCCESS != sqlo_close(sth)) 　　{ 　　printf("sqlo_close failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　#endif 　　printf ("ip1: %.16f, ip2: %d, op1: %d, op2: %sn", ip1, ip2, op1, op2); 　　} 　　else 　　{ 　　printf("sqlo_open failed: Status: %d, %sn", sth, sqlo_geterror(dbh) ); 　　return 0; 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_insert with bind by pos 　　*-----------------------------------------------------------------------*/ 　　int test_insert( int dbh ) 　　{ 　　int nkey; 　　char ckey[6]; 　　double nval; 　　char cval[21]; 　　char dval[11]; 　　int sth; 　　char * insert_stmt = 　　"INSERT INTO T_SQLORA_TEST (NKEY, CKEY, NVAL, CVAL, DVAL) VALUES (:NKEY, 　　printf("Testing Insert (bind by pos)n"); 　　if (!create_table(dbh)) 　　return 0; 　　nkey = 100; 　　strcpy(ckey, "CKEY"); 　　nval = 1234567890.001; 　　strcpy(cval,"aaaaaaaaaaaaaaaaaaaa"); 　　strcpy(dval,"01-JUL-00"); 　　if (0 <= (sth = sqlo_prepare(dbh, insert_stmt))) 　　{ 　　if (SQLO_SUCCESS != 　　(sqlo_bind_by_pos(sth, 1, SQLOT_INT, &nkey, sizeof(int),0,0) || 　　sqlo_bind_by_pos(sth, 2, SQLOT_STR, ckey, 6,0,0) || 　　sqlo_bind_by_pos(sth, 3, SQLOT_FLT, &nval, sizeof(double),0,0) || 　　sqlo_bind_by_pos(sth, 4, SQLOT_STR, cval, 21,0,0) || 　　sqlo_bind_by_pos(sth, 5, SQLOT_STR, dval, 11,0,0) 　　)) 　　{ 　　printf("sqlo_bind_param failed failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　else 　　{ 　　if (SQLO_SUCCESS != sqlo_execute(sth, 1)) 　　{ 　　printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　} 　　#ifdef CLOSE_CURSOR 　　if (SQLO_SUCCESS != sqlo_close(sth)) 　　{ 　　printf("sqlo_close failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　#endif 　　do_select(dbh); 　　} 　　else 　　{ 　　printf("sqlo_open failed: Status: %d, %sn", sth, sqlo_geterror(dbh) ); 　　return 0; 　　} 　　printf("finished test_insertn"); 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_array_insert 　　*-----------------------------------------------------------------------*/ 　　int test_array_insert( int dbh ) 　　{ 　　int nkey[MAX_ITERS]; 　　char ckey[MAX_ITERS][6]; 　　double nval[MAX_ITERS]; 　　char cval[MAX_ITERS][21]; 　　char dval[MAX_ITERS][11]; 　　short nind[MAX_ITERS]; 　　short cind[MAX_ITERS]; 　　short dind[MAX_ITERS]; 　　int sth, i, j; 　　int status; 　　char * insert_stmt = 　　"INSERT INTO T_SQLORA_TEST (NKEY, CKEY, NVAL, CVAL, DVAL) VALUES (:NKEY, 　　printf("Testing Array Insert (bind by name)n"); 　　if (!create_table(dbh)) 　　return 0; 　　/* setup bind arrays */ 　　for ( i = 0 ; i < MAX_ITERS; i++) 　　{ 　　nkey = i+1; 　　sprintf(ckey, "%c", A + i % 26 ); 　　nval = 1234567890.0 + i / 1000.0; 　　for (j = 0; j < 20; j++) 　　cval[j] = a + i % 26; 　　cval[20] = ; 　　sprintf(dval, "%02d-JUL-00", (i % 30 ) + 1); 　　nind = 0; 　　cind = 0; 　　dind = 0; 　　} 　　if (0 <= (sth = sqlo_prepare(dbh, insert_stmt))) 　　{ 　　if (SQLO_SUCCESS != 　　(sqlo_bind_by_name(sth, ":NKEY", SQLOT_INT, &nkey[0], sizeof(int), NULL,1) || 　　sqlo_bind_by_name(sth, ":CKEY", SQLOT_STR, &ckey[0], 6, NULL,1) || 　　sqlo_bind_by_name(sth, ":NVAL", SQLOT_FLT, &nval[0], sizeof(double), nind,1) 　　sqlo_bind_by_name(sth, ":CVAL", SQLOT_STR, &cval[0], 21, cind,1) || 　　sqlo_bind_by_name(sth, ":DVAL", SQLOT_STR, &dval[0], 11, dind,1) 　　)) 　　{ 　　printf("sqlo_bind_param failed failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　else 　　{ 　　if (SQLO_SUCCESS != sqlo_execute(sth, MAX_ITERS)) 　　{ 　　printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　} 　　#ifdef CLOSE_CURSOR 　　if (SQLO_SUCCESS != sqlo_close(sth)) 　　{ 　　printf("sqlo_close failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　#endif 　　do_select(dbh); 　　} 　　else 　　{ 　　printf("sqlo_open failed: Status: %d, %sn", sth, sqlo_geterror(dbh) ); 　　return 0; 　　} 　　if (SQLO_SUCCESS != (status = sqlo_commit(dbh))) { 　　printf("commit failed (%d): %sn", status, sqlo_geterror(dbh)); 　　return 0; 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_array_insert2 (by pos) 　　*-----------------------------------------------------------------------*/ 　　int test_array_insert2( int dbh ) 　　{ 　　int nkey[MAX_ITERS]; 　　char ckey[MAX_ITERS][6]; 　　double nval[MAX_ITERS]; 　　char cval[MAX_ITERS][21]; 　　char dval[MAX_ITERS][11]; 　　short nind[MAX_ITERS]; 　　short cind[MAX_ITERS]; 　　short dind[MAX_ITERS]; 　　int i, j; 　　int status; 　　int sth; 　　char * insert_stmt = 　　"INSERT INTO T_SQLORA_TEST (NKEY, CKEY, NVAL, CVAL, DVAL) VALUES (:NKEY, 　　printf("Testing Array Insert ( bind by pos)n"); 　　if (!create_table(sth)) 　　return (0); 　　/* setup bind arrays */ 　　for ( i = 0 ; i < MAX_ITERS; i++) 　　{ 　　nkey = i+1; 　　sprintf(ckey, "%c", A + i % 26 ); 　　nval = 1234567890.0 + i / 1000.0; 　　for (j = 0; j < 20; j++) 　　cval[j] = a + i % 26; 　　cval[20] = ; 　　sprintf(dval, "%02d-JUL-00", (i % 30) + 1); 　　nind = 0; 　　cind = 0; 　　dind = 0; 　　} 　　if (0 <= (sth = sqlo_prepare(dbh, insert_stmt))) 　　{ 　　if (SQLO_SUCCESS != 　　(sqlo_bind_by_pos(sth, 1, SQLOT_INT, &nkey[0], sizeof(int), NULL,1) || 　　sqlo_bind_by_pos(sth, 2, SQLOT_STR, &ckey[0], 6, NULL,1) || 　　sqlo_bind_by_pos(sth, 3, SQLOT_FLT, &nval[0], sizeof(double), nind,1) || 　　sqlo_bind_by_pos(sth, 4, SQLOT_STR, &cval[0], 21, cind,1) || 　　sqlo_bind_by_pos(sth, 5, SQLOT_STR, &dval[0], 11, dind,1) 　　)) 　　{ 　　printf("sqlo_bind_param failed failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　else 　　{ 　　if (SQLO_SUCCESS != sqlo_execute(sth, MAX_ITERS)) 　　{ 　　printf("sqlo_execute failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　} 　　#ifdef CLOSE_CURSOR 　　if (SQLO_SUCCESS != sqlo_close(sth)) 　　{ 　　printf("sqlo_close failed: %sn", sqlo_geterror(dbh) ); 　　return 0; 　　} 　　#endif 　　do_select(dbh); 　　} 　　else 　　{ 　　printf("sqlo_open failed: Status: %d, %sn", sth, sqlo_geterror(dbh) ); 　　return 0; 　　} 　　if (SQLO_SUCCESS != (status = sqlo_commit(dbh))) { 　　printf("commit failed (%d): %sn", status, sqlo_geterror(dbh)); 　　return 0; 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_exists 　　*-----------------------------------------------------------------------*/ 　　int test_exists(int dbh) 　　{ 　　int status; 　　if (SQLO_SUCCESS == 　　(status = sqlo_exists(dbh, "T_SQLORA_TEST", "CKEY", "B", NULL))) 　　printf("test_exists(1) okn"); 　　else 　　{ 　　printf("test_exists(1) failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　if (SQLO_SUCCESS == 　　(status = sqlo_exists(dbh, "T_SQLORA_TEST", "CKEY", "xxx", NULL))) 　　printf("test_exists(2) failedn"); 　　else 　　{ 　　if (status != SQLO_NO_DATA) 　　{ 　　printf("test_exists(2) failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　else 　　printf("test_exists(2) okn"); 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* test_count 　　*-----------------------------------------------------------------------*/ 　　int test_count(int dbh) 　　{ 　　int count; 　　if ((count = sqlo_count(dbh, "T_SQLORA_TEST", NULL, NULL, NULL))) 　　printf("test_count(1) okn"); 　　else 　　{ 　　printf("test_count(1) failed: %sn", sqlo_geterror(dbh)); 　　return 0; 　　} 　　if ((count = sqlo_count(dbh, "T_SQLORA_TEST", "CKEY", "xxx", NULL))) 　　{ 　　printf("test_count(2) failed (count=%d)n", count); 　　} 　　else 　　{ 　　if (count < 0) 　　{ 　　printf("test_count(2) failed (count=%d): %sn", count, sqlo_geterror(dbh)); 　　return 0; 　　} 　　else 　　printf("test_count(2) okn"); 　　} 　　return 1; 　　} 　　/*------------------------------------------------------------------------- 　　* int cleanup 　　*-----------------------------------------------------------------------*/ 　　int cleanup(int dbh) 　　{ 　　/* ignore all errors maybe they weren created */ 　　sqlo_exec(dbh, "DROP TABLE T_SQLORA_TEST"); 　　sqlo_exec(dbh, "DROP PACKAGE BODY SQLORA_TEST"); 　　sqlo_exec(dbh, "DROP PACKAGE SQLORA_TEST"); 　　return 1; 　　} 　　/*========================================================================= 　　* main 　　*=======================================================================*/ 　　int main (int argc, char * argv[]) 　　{ 　　int status; 　　int dbh[MAX_LOOPS]; 　　char * cstr; 　　int i; 　　printf("-------------------------------------------------------------nn"); 　　cstr = argv[1]; 　　else 　　cstr = "scott/tiger"; 　　status = sqlo_init(0); 　　if (SQLO_SUCCESS != status) 　　{ 　　printf ("sql_init failed. Exitingn"); 　　exit(1); 　　} 　　for (i = 0; i < MAX_LOOPS; i++) 　　{ 　　status = sqlo_connect(&dbh, cstr); 　　if (SQLO_SUCCESS == status) 　　printf("Connected. dbh=%dn", dbh); 　　else 　　{ 　　printf("connect failed with status: %d, %sn", status 　　, sqlo_geterror(dbh)); 　　exit(1); 　　} 　　if (!test_plsql(dbh)) 　　exit(1); 　　if (!test_insert(dbh)) 　　exit(1); 　　if (!test_array_insert(dbh)) /* bind by name */ 　　exit(1); 　　if (!test_array_insert2(dbh)) /* bind by pos */ 　　exit(1); 　　if (!test_exists(dbh)) 　　exit(1); 　　if (!test_count(dbh)) 　　exit(1); 　　if (!test_reopen(dbh)) 　　exit(1); 　　if (!test_select2(dbh)) 　　exit(1); 　　cleanup(dbh); 　　if (SQLO_SUCCESS != (status = sqlo_rollback(dbh))) 　　printf("rollback failed (%d): %sn", status, sqlo_geterror(dbh)); 　　} 　　for (i = 0; i < MAX_LOOPS; i++) 　　{ 　　if (SQLO_SUCCESS != sqlo_finish(dbh)) 　　{ 　　printf("sql_finish failed for dbh: %dn%sn", dbh, 　　sqlo_geterror(dbh)); 　　exit(1); 　　} 　　} 　　return (0); 　　} 　　---------- 　　from linuxbyte 　　-