public overloads sub update(byval authorityarr as ilist)
log.debug("update a record in table tbl_m_authority")
dim connection as oracleconnection = new oracleconnection(orahelper.conn_string_local)
dim ***mand as oracle***mand = new oracle***mand(plsql_update, connection)
***mand.***mandtype = ***mandtype.storedprocedure
dim txn as oracletransaction
dim updateparms() as oracleparameter =
dim authinfo as authorityinfo
tryconnection.open()
txn = connection.begintransaction(isolationlevel.read***mitted)
for each authinfo in authorityarr
updateparms(0).value = authinfo.auth_cd
updateparms(1).value = authinfo.auth_name
updateparms(2).value = authinfo.shori_staff_cd
updateparms(3).value = authinfo.void_***
if authinfo.disp_order_str is nothing or authinfo.disp_order_str.trim = "" then
updateparms(4).value = dbnull.value
else
updateparms(4).value = decimal.parse(authinfo.disp_order_str)
end if
dim params as oracleparameter
***mand.parameters.clear()
for each params in updateparms
***mand.parameters.add(params)
next
***mand.executenonquery()
next
txn.***mit()
catch ex as exception
txn.rollback()
log.debug(ex.message)
log.debug(ex.stacktrace)
throw ex
finally
if not connection is nothing then
connection.close()
connection.dispose()
end if
if not ***mand is nothing then
***mand.dispose()
end if
end try
end sub
minixml使用的乙個小例子
xml檔案 version 2.0 width 1920 height 1080 width 1920 height 1080 textex 命令按鈕1 textex 電器1 textex 電器2 commandbutton1 textex 命令按鈕2 textex 命令按鈕3 page width...
mysql儲存過程小例子
drop procedure if exists customview logs pro delimiter create procedure customview logs pro in counts bigint begin declare i bigint default 1 declare ...
乙個使用pivot的儲存過程
alter procedure dbo p getgameconsumebytype add the parameters for the stored procedure here dtbegin datetime,dtend datetime,ngametype int asbegin set ...