OTL调用Oracle存储过程
2007-04-13 15:08 flyingfish 阅读(3005) 评论(0) 编辑 收藏 举报OTL很早前用过,今天写东西要调存储过程,程序写完了,调试死活通不过,折腾了一早晨。
最后才发现错误,这里总结一下:
1、代码写的不规范。
有个参数后边少写了个“,”以至于总是抱错。而单独写的测试例子就没问题,后来一步一步跟踪了后才发现。
2、调用格式
a、如果#define OTL_ORA9I // Compile OTL 4/OCI8编译
则过程调用采用:
begin
过程名(:参数1<类型,in|out|inout>,:参数2<类型,in|out|inout>,.....);
end;
的形式,和在pl/sql中一样。
b、如果用#define OTL_ODBC // Compile OTL 4.0/ODBC编译
则用常规的形式:
{call my_proc("
" :A<int,inout>, "
" :B<char[31],out>, "
" :C<char[31],in> "
")}"
3、附文档中给出的测试代码
// 创建存储过程
/*
Create Or Replace Procedure Test(P1 In Number, P2 In Number, P3 Out Number) Is
Begin
P3 := P1 + P2;
End Test;
*/
//调用代码
#include <iostream>
using namespace std;
#include <stdio.h>
#define OTL_ORA9I//OTL_ODBC // Compile OTL 4.0/ODBC
#include <otlv4.h>
#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<int,inout>,"
":b1<char[31],out>, "
":c2<char[31],in> "
");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<<"Test String1" // assigning :1 = 1, :3 = "Test String1"
int a;
char b[31];
o>>a>>b;
cout<<"A="<<a<<", B="<<b<<endl;
}
void stored_proc2(void)
// invoking stored procedure
{
char* call_sql = "Begin test("
":1<int,in>,"
":2<int,in>,"
":3<int,out>);end;"
otl_stream o(1,call_sql,db);
int a=1;
int b=3;
o<<a<<b; // assigning :1 = 1, :3 = "Test String1"
int c;
o>>c;
cout<<"A="<<a<<", B="<<b<<", C="<<c<<endl;
}
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<<p.msg<<endl; // print out error message
cerr<<p.code<<endl; // print out error code
cerr<<p.var_info<<endl; // print out the variable that caused the error
cerr<<p.sqlstate<<endl; // print out SQLSTATE message
cerr<<p.stm_text<<endl; // print out SQL that caused the error
}
db.logoff(); // disconnect from the data source
getchar();
return 0;
}