otl oracle存储过程,OTL调用Oracle存储过程

OTL很早前用过，今天写东西要调存储过程，程序写完了，调试死活通不过，折腾了一早晨。

最后才发现错误，这里总结一下：

1、代码写的不规范。

有个参数后边少写了个“，”以至于总是抱错。而单独写的测试例子就没问题，后来一步一步跟踪了后才发现。

2、调用格式

a、如果#define OTL_ORA9I // Compile OTL 4/OCI8编译

则过程调用采用：

begin

过程名(:参数1,:参数2,.....);

end;

的形式，和在pl/sql中一样。

b、如果用#define OTL_ODBC // Compile OTL 4.0/ODBC编译

则用常规的形式：

{call my_proc("

" :A, "

" :B, "

" :C "

")}"

3、附文档中给出的测试代码

// 创建存储过程

/*

Create Or Replace Procedure Test(P1 In Number, P2 In Number, P3 Out Number) Is

Begin

P3 := P1 + P2;

End Test;

*/

//调用代码

#include

using namespace std;

#include

#define OTL_ORA9I//OTL_ODBC // Compile OTL 4.0/ODBC

#include

#pragma comment(lib,"oci.lib")

otl_connect db; // connect object

void stored_proc1(void)

// invoking stored procedure

{

otl_stream o(1, // buffer size should be equal to 1 in case of stored procedure call

"begin my_proc("

":a1,"

":b1, "

":c2 "

");end;",

// stored procedure call

db // connect object

);

o.set_commit(0); // set stream auto-commit off since

// the stream does not generate transaction

o<<1<

int a;

char b[31];

o>>a>>b;

cout<

}

void stored_proc2(void)

// invoking stored procedure

{

char* call_sql = "Begin test("

":1,"

":2,"

":3);end;"

otl_stream o(1,call_sql,db);

int a=1;

int b=3;

o<

int c;

o>>c;

cout<

}

int main()

{

otl_connect::otl_initialize(); // initialize environment

try{

//CString str_conn;

db.rlogon(user/pwd@server); //更换到对应值

otl_cursor::direct_exec

(

db,

"CREATE OR REPLACE PROCEDURE my_proc "

" (A IN OUT NUMBER, "

" B OUT VARCHAR2, "

" C IN VARCHAR2) "

"IS "

"BEGIN "

" A := A+1; "

" B := C; "

"END;"

); // 也可以直接用代码创建来测试用的过程

stored_proc1(); // invoking stored procedure stored_proc2(); } catch(otl_exception& p) {  // intercept OTL exceptions cerr<