以下是引用片段：　　

PublicSub RemovedCallback（ByVal key AsString， ByVal value AsObject， ByVal reason As 　　CacheItemRemovedReason） 　　Dim Source As DataView 　　Source = getRecordFromdatabase（） 　　Cache.Insert（"employeeTable "， Source， New 　　System.Web.Caching.CacheDependency（"d：\download\tblemployee.txt"）， 　　Cache.NoAbsoluteExpiration， Cache.NoSlidingExpiration， 　　CacheItemPriority.Normal， onRemove） 　　EndSub

　　方法getRecordFromdatabase（）负责查询数据库表Employee并返回一个DataView对象引用。它使用一个名为getEmployee的存储过程来抽象从Employee表中取数据的SQL.这个方法有一个名为p_empid的参数，表示Employee的主键。

　　以下是引用片段：　　

PublicFunction getRecordFromdatabase （ByVal p_empid As Int32） As DataView 　　Dim con As OracleConnection = Nothing 　　Dim cmd As OracleCommand = Nothing 　　Dim ds As DataSet = Nothing 　　Try 　　con = getDatabaseConnection（ "UserId=scott；Password=tiger；Data Source=testingdb；"） 　　cmd = New OracleCommand（"Administrator.getEmployee"， con） 　　cmd.CommandType = CommandType.StoredProcedure 　　cmd.Parameters.Add（New OracleParameter（"employeeId"， OracleDbType.Int64））。Value = p_empid 　　Dim param AsNew OracleParameter（"RC1"， OracleDbType.RefCursor） 　　cmd.Parameters.Add（param）。Direction = ParameterDirection.Output 　　Dim myCommand AsNew OracleDataAdapter（cmd） 　　ds = New DataSet 　　myCommand.Fill（ds） 　　Dim table As DataTable = ds.Tables（0） 　　Dim index As Int32 = table.Rows.Count 　　Return ds.Tables（0）。DefaultView 　　Catch ex As Exception 　　ThrowNew Exception（"Exception in Database Tier Method getRecordFromdatabase （） " + ex.Message， ex） 　　Finally 　　Try 　　cmd.Dispose（） 　　Catch ex As Exception 　　Finally 　　cmd = Nothing 　　EndTry 　　Try 　　con.Close（） 　　Catch ex As Exception 　　Finally 　　con = Nothing 　　EndTry 　　EndTry 　　EndFunction

函数getDatabaseConnection接受一个连接字符串（connection stirng）为参数，返回一个OracleConnection对象引用。