在做了前面的插入數據的實驗以后，感覺更新也應該差不多的，所以就動手做執行存儲過程的例子了，下面介紹一下：
首先是存儲過程的代碼：
create or replace procedure QUERYSTRUCT(TableName in nvarchar2,Res out nvarchar2) is
cname all_tab_columns.COLUMN_NAME%type;
dtype all_tab_columns.DATA_TYPE%type;
clen all_tab_columns.CHAR_LENGTH%type;
dpri all_tab_columns.DATA_PRECISION%type;
temp nvarchar2(10);
cursor c(tname nvarchar2) is
select column_name,data_type,char_length,data_precision
from all_tab_columns
where owner='LIUGANG'
and table_name = upper(tname);
begin
open c(TableName);
loop
fetch c into cname,dtype,clen,dpri;
exit when c%notfound;
if dtype != 'NUMBER' then
temp:=TO_CHAR(clen);
else
temp:=TO_CHAR(dpri);
end if;
Res:= Res || rpad(cname,7,' ') || dtype || '(' || temp || ')'|| CHR(10);
end loop;
close c;
end QUERYSTRUCT;
這個存儲過程是實現查詢表的結構的功能的
下面是OCI的代碼：
sprintf( szSqlStr,"%s", "begin querystruct(:tname,:res); end;");
OCIStmtPrepare(m_stmthp, m_errhp, (text*)szSqlStr, (ub4)strlen(szSqlStr),(ub4) OCI_NTV_SYNTAX, (ub4)OCI_DEFAULT);
OCIBindByPos(m_stmthp, &bndp, m_errhp, 1, (dvoid *)tname, (sb4)sizeof(tname), SQLT_STR, NULL, NULL, NULL, 0, NULL, (ub4)OCI_DEFAULT);
OCIBindByPos(m_stmthp, &bndp, m_errhp, 2, (dvoid *)res, (sb4)sizeof(res), SQLT_STR, NULL, NULL, NULL, 0, NULL, (ub4)OCI_DEFAULT);
OCIStmtExecute( m_svchp, m_stmthp, m_errhp, (ub4)1, (ub4) 0,(OCISnapshot *) NULL,(OCISnapshot *) NULL, (ub4)OCI_DEFAULT);
cout << res << endl;
下面是運行的結果：
posted on 2007-05-28 20:44
LG 閱讀(3991)
評論(0) 編輯 收藏 引用 所屬分類:
CPlusPlus