List 6-66　Business.ProductコンポーネントのUndeleteProductメソッド

  1： Public Sub UndeleteProduct(ByVal ProductID As Long)
  2：     ' 指定された製品番号を持つ製品を復活させる
  3：     ' 【引数】
  4：     '   ProductID = 復活させたい製品を特定する製品番号を指定する
  5：     ' 【戻り値】
  6：     '   なし
  7：     Dim objContext As ObjectContext
  8：     Dim objDataProduct As DataObj.Product
  9：     
 10：     ' オブジェクトコンテキストの取得
 11：     Set objContext = GetObjectContext()
 12：     
 13：     ' エラーハンドラの設定
 14：     On Error GoTo ErrHandle
 15：     
 16：     ' DataObj.Productの実体化
 17：     Set objDataProduct = CreateObject("DataObj.Product")
 18：     
 19：     ' DELETEDFLAGフィールドの値をFalseに設定する
 20：     objDataProduct.SetDeletedFlag ProductID, False
 21：     
 22：     ' DataObj.Productの解放
 23：     Set objDataProduct = Nothing
 24：     
 25：     ' コミットする
 26：     objContext.SetComplete
 27：     
 28：     ' オブジェクトコンテキストの解放
 29：     Set objContext = Nothing
 30：     
 31：     Exit Sub
 32：     
 33： ErrHandle:
 34：     ' エラーハンドラ
 35：     objContext.SetAbort
 36：     Set objContext = Nothing
 37：     Set objDataProduct = Nothing
 38：     
 39：     ' エラーの再発行
 40：     Err.Raise Err.Number, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 41： End Sub