|
随着Linux操作系统的不断完善与发展，出现了大量基于 Linux平台的应用开发，原有的基于UNIX平台的商业软件也不断被移植到Linux上来。最典型的，Oracle公司宣布，他的现有的及未来所有的数据库产品和商业应用都将支持Linux平台。本文所述OCI for Linux的C语言库，正是Linux平台上Oracle的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 8.1.6(GNU/Linux)等；
可以作为静态或动态形式链接进入应用程序。
下面我们分步骤详细阐述如何在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
$>cd libsqlora8-2.1.5
$>LD_LIBRARY_PATH=$ORACLE_HOME/lib
$>export LD_LIBRARY_PATH
$>./configure
$>make
$>make install
对于要使用Oracle build-in trace功能的开发者，还要将以下环境变量设置好,SQLORA_TRACE_LEVEL，SOLORA_TRACE_FILE，SQLORA_ARRAYSIZE，当然，ORACLE_SID是一定要设好的。
5.下面，我们介绍一下Libsqlora8的主要函数。
1)int sqlo_init(int threaded_mode) 初始化程序库接口，读出环境变量，设置相应的全局变量。当前，threaded_mode设为0。
2)int sqlo_connect(int * dbh, char * connect_str) 连接数据库，dbh为数据库连接描述符，connect_str为用户名/口令字符串。
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)，返回一个打开的游标sth。
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) 将查询语句的传入参数，按照名字的形式与函数中的变量绑定。如果你使用数组，那么参数param_addr和ind_arr必须指向该数组。
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”可设为“1”。
11)在执行完数据库操作后，我们可用int sqlo_commit (int dbh)提交操作，或用int sqlo_rollback(int dbh)回滚操作。
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变量绑定。在变量绑定完毕后，就可以调用sqlo_execute函数来执行这个SQL语句。
好了，我们已经向大家介绍了Libsqlora8的基本使用方法，如果希望了解更多内容，Libsqlora8的程序包中带有详细的说明和例子，大家不妨自己钻研一下。有什么心得，欢迎和我联系。E-mail：[email protected]
/*-------------------------------------------------------------------------
* 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
#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);
if (status < 0)
{
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[i], ckey[i], nval[i], cval[i], dval[i]);
}
}
for (i = 0; i < rows_fetched; ++i)
{
if (!i)
printf("Execute fetched %d rowsn", rows_fetched);
printf("%3d %5s %19f %20s %10sn",
nkey[i], ckey[i], nval[i], cval[i], dval[i]);
}
rows_fetched_total += rows_fetched;
rows_to_fetch = 4;
while(!done_fetching)
{
rows_fetched = rows_to_fetch;
status = sqlo_fetch(sth, rows_to_fetch);
if (status < 0)
{
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[i], ckey[i], nval[i], cval[i], dval[i]);
}
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 VARCHAR);n"
"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 VARCHAR)n"
" 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, :CKEY, :NVAL, :CVAL, :DVAL)";
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, :CKEY, :NVAL, :CVAL, :DVAL)";
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] = i+1;
sprintf(ckey[i], "%c", A + i % 26 );
nval[i] = 1234567890.0 + i / 1000.0;
for (j = 0; j < 20; j++)
cval[i][j] = a + i % 26;
cval[i][20] = ;
sprintf(dval[i], "%02d-JUL-00", (i % 30 ) + 1);
nind[i] = 0;
cind[i] = 0;
dind[i] = 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, :CKEY, :NVAL, :CVAL, :DVAL)";
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] = i+1;
sprintf(ckey[i], "%c", A + i % 26 );
nval[i] = 1234567890.0 + i / 1000.0;
for (j = 0; j < 20; j++)
cval[i][j] = a + i % 26;
cval[i][20] = ;
sprintf(dval[i], "%02d-JUL-00", (i % 30) + 1);
nind[i] = 0;
cind[i] = 0;
dind[i] = 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");
if (argc > 1)
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[i], cstr);
if (SQLO_SUCCESS == status)
printf("Connected. dbh[i]=%dn", dbh[i]);
else
{
printf("connect failed with status: %d, %sn", status
, sqlo_geterror(dbh[i]));
exit(1);
}
if (!test_plsql(dbh[i]))
exit(1);
if (!test_insert(dbh[i]))
exit(1);
if (!test_array_insert(dbh[i])) /* bind by name */
exit(1);
if (!test_array_insert2(dbh[i])) /* bind by pos */
exit(1);
if (!test_exists(dbh[i]))
exit(1);
if (!test_count(dbh[i]))
exit(1);
if (!test_reopen(dbh[i]))
exit(1);
if (!test_select2(dbh[i]))
exit(1);
cleanup(dbh[i]);
if (SQLO_SUCCESS != (status = sqlo_rollback(dbh[i])))
printf("rollback failed (%d): %sn", status, sqlo_geterror(dbh[i]));
}
for (i = 0; i < MAX_LOOPS; i++)
{
if (SQLO_SUCCESS != sqlo_finish(dbh[i]))
{
printf("sql_finish failed for dbh: %dn%sn", dbh[i],
sqlo_geterror(dbh[i]));
exit(1);
}
}
return (0);
}
|