Dim iCatId As Integer = -1 commandLibrarian = New OleDbCommand("PLIB_LIBRARIAN_PKG.INS_PLIB_CATALOG", connectLibrarian) commandLibrarian.CommandType = CommandType.StoredProcedure Try commandLibrarian.Parameters.Add("P_CAT_TITLE", OleDbType.VarChar).Value = title commandLibrarian.Parameters.Add("P_CAT_DESCRIPTION", OleDbType.VarChar).Value = description commandLibrarian.Parameters.Add("P_CATEGORY_ID", OleDbType.VarChar).Value = categoryId commandLibrarian.Parameters.Add("P_CAT_AUTHOR", OleDbType.VarChar).Value = catAuthor commandLibrarian.Parameters.Add("P_CAT_PUBLISHED_DATE", OleDbType.VarChar).Value = catPublishedDate commandLibrarian.Parameters.Add("P_CAT_PUBLISHER", OleDbType.VarChar).Value = catPublisher commandLibrarian.Parameters.Add("P_CAT_EVAL_RELEVANT_KEYWORDS", OleDbType.VarChar).Value = eval_relevant_keywords commandLibrarian.Parameters.Add("P_CAT_REG_NUMBER", OleDbType.VarChar).Value = reg_number commandLibrarian.Parameters.Add("P_CAT_REG_SUBNUMBER", OleDbType.VarChar).Value = reg_subnumber commandLibrarian.Parameters.Add("P_CAT_CREATED_BY", OleDbType.VarChar).Value = createdBy commandLibrarian.Parameters.Add("P_CAT_CREATED_DATE", OleDbType.VarChar).Value = createdDate commandLibrarian.Parameters.Add("P_CAT_MODIFIED_BY", OleDbType.VarChar).Value = "" commandLibrarian.Parameters.Add("P_CAT_MODIFIED_DATE", OleDbType.VarChar).Value = Today() commandLibrarian.Parameters.Add("P_CAT_RESTRICTION_LEVEL", OleDbType.VarChar).Value = restrictionLevel commandLibrarian.Parameters.Add("P_LOCN_SITE", OleDbType.VarChar).Value = locnSite Dim param As New OleDbParameter("P_CAT_ID", OleDbType.Integer) param.Direction = ParameterDirection.Output commandLibrarian.Parameters.Add(param) connectLibrarian.Open() commandLibrarian.ExecuteScalar() iCatId = param.Value connectLibrarian.Close() Catch oraEx As OleDb.OleDbException objErrorLog.writeError(oraEx) Catch ex As Exception MsgBox(ex.Message) objErrorLog.writeError(ex) iCatId = -1 End Try Return iCatId