使用IN型別引數執行Oracle儲存過程。

2021-10-06 12:15:17 字數 1637 閱讀 7570

該執行緒包含一些示例**,這些示例**顯示了從vb執行oracle儲存過程和函式的方法。

希望使用者發現它們有用。

僅以in型別作為引數模式的oracle procedure。

create or replace procedure deptins

(dno dept.deptno%type,

dn dept.dname%type,

lc dept.loc%type

)authid current_user

isbegin

insert into dept values(dno,dn,lc);

dbms_output.put_line('one row inserted......!');

exception

when dup_val_on_index then

when others then

end;

從vb呼叫上述oracle過程。
'general declaration

dim con as new adodb.connection

dim rs as new adodb.recordset

dim pr as new adodb.parameter

dim pr1 as new adodb.parameter

dim pr2 as new adodb.parameter

dim cmd as new adodb.command

private sub command1_click()

on error goto myerr

con.open "provider=msdaora.1;password=debasis;user id=debasis;data source=das;persist security info=true"

cmd.activeconnection = con

cmd.commandtype = adcmdstoredproc

cmd.commandtext = "deptins"

set pr = cmd.createparameter("dno", adnumeric, adparaminput, 2, val(t1.text))

set pr1 = cmd.createparameter("dn", advarchar, adparaminput, 14, trim(t2.text))

set pr2 = cmd.createparameter("lc", advarchar, adparaminput, 13, trim(t3.text))

cmd.execute

con.close

exit sub

myerr:

i = val(mid(err.description, 4, 6))

if i = -20002 then

msgbox "duplicate entry"

elseif i = -20001 then

msgbox "some other error"

end if

end sub

還要檢查

具有in和out型別引數的儲存過程。

from:

InputOutput引數型別使用

在 c 呼叫帶返回值的儲存過程 一文中介紹了用c 呼叫帶返回值的儲存過程,用到了輸入引數input 輸出引數output以及返回值returnvalue。其實,在.net中呼叫儲存過程時,還有一種引數型別是inputoutput,引數既能輸入,也能輸出。今天寫了段程式試了一下,了解了具體使用方法。1...

函式引數中使用const型別的引數

作用 在函式的引數中使用const,可以讓編譯器知道在函式呼叫過程中,對於某個引數不會修改引數的資料,從而可以提供給編譯器更多的優化機會。比如標準函式 char strcpy char dst,const char src 這裡,第二個輸入引數使用const char src,而不是char src...

使用sqoop從Hive導數到Oracle

導數命令 sqoop export table u cl ctl.mid order vip level change ma connect jdbc oracle thin 1521 biedwmiu username password columns id,vip no,order no,vip...