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

  1： Public Function AddProduct(ByVal PRODUCTNAME As Variant, _
   　                            ByVal YOMIGANA As Variant, _
   　                            ByVal PRICE As Variant, _
   　                            ByVal MEMO As Variant) As Long
  2：     ' 新しい製品を登録する
  3：     ' 【引数】
  4：     '   PRODUCTNAME = 製品名
  5：     '   YOMIGANA = 製品名のよみがな
  6：     '   PRICE = 製品価格
  7：     '   MEMO = 摘要
  8：     ' 【戻り値】
  9：     '   登録した製品の製品番号（製品情報テーブルのIDフィールドの値）
 10：     Dim objContext As ObjectContext
 11：     Dim objDataProduct As DataObj.Product
 12：     
 13：     ' オブジェクトコンテキストの取得
 14：     Set objContext = GetObjectContext()
 15：     
 16：     ' エラーハンドラの設定
 17：     On Error GoTo ErrHandle
 18：     
 19：     ' DataObj.Productコンポーネントの実体化
 20：     Set objDataProduct = CreateObject("DataObj.Product")
 21：     
 22：     ' AddRecordメソッドを呼び出して登録
 23：     AddProduct = objDataProduct.AddRecord(PRODUCTNAME, YOMIGANA, PRICE, MEMO)
 24：     
 25：     ' DataObj.Productの解放
 26：     Set objDataProduct = Nothing
 27：     
 28：     ' コミットする
 29：     objContext.SetComplete
 30：     
 31：     ' オブジェクトコンテキストの解放
 32：     Set objContext = Nothing
 33：     
 34：     Exit Function
 35：     
 36： ErrHandle:
 37：     ' エラーハンドラ
 38：     objContext.SetAbort
 39：     Set objContext = Nothing
 40：     Set objDataProduct = Nothing
 41：     AddProduct = -1
 42：     
 43：     ' エラーの再発行
 44：     Err.Raise Err.Number, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 45： End Function