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 command As OracleCommand = New OracleCommand (PLSQL_UPDATE, connection) command.CommandType = CommandType.StoredProcedure Dim txn As OracleTransaction
Dim updateParms () As OracleParameter = {New OracleParameter (PARM_AUTH_CD, OracleDbType.Varchar2) _, New OracleParameter (PARM_AUTH_NAME, OracleDbType.Varchar2) _, New OracleParameter (PARM_SHORI_STAFF_CD, OracleDbType.Decimal) _, New OracleParameter (PARM_VOID_FLG, OracleDbType.Varchar2) _, New OracleParameter (PARM_DISP_ORDER, ORACLEDBTYPE.DECIMAL)} DIM Authinfo As AuthorityInfo
Try connect.open ()
Txn = connection.begintransaction (isolationledLevel.Readcommitted)
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_flg 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) endiff
Dim params as oracleParameter Command.Parameters.clear ()
