List 6-25　Business.CustomerコンポーネントのUpdateCustomerメソッド

  1： Public Sub UpdateCustomer(ByVal ID As Long, _
   　                           ByVal NAME As Variant, _
   　                           ByVal YOMIGANA As Variant, _
   　                           ByVal ZIP As Variant, _
   　                           ByVal ADDRESS As Variant, _
   　                           ByVal TELEPHONE As Variant, _
   　                           ByVal FAX As Variant, _
   　                           ByVal MEMO As Variant)
  2：     ' 顧客情報テーブル内の指定された顧客番号の顧客情報を変更する
  3：     ' 【引数】
  4：     '   ID = 変更したい顧客を特定する顧客番号を指定する
  5：     '   NAME = 設定する顧客名を指定する
  6：     '   YOMIGANA = 設定する顧客のよみがなを指定する
  7：     '   ZIP = 設定する顧客の郵便番号を指定する
  8：     '   ADDRESS = 設定する顧客の住所を指定する
  9：     '   TELEPHONE = 設定する顧客の電話番号を指定する
 10：     '   FAX = 設定する顧客のFAX番号を指定する
 11：     '   MEMO = 設定する顧客の摘要を設定する
 12：     ' 【戻り値】
 13：     '   なし
 14：     Dim objContext As ObjectContext
 15：     Dim objDataCustomer As DataObj.Customer
 16：     
 17：     ' オブジェクトコンテキストの取得
 18：     Set objContext = GetObjectContext()
 19：     
 20：     ' エラーハンドラの設定
 21：     On Error GoTo ErrHandle
 22：     
 23：     ' DataObj.Customerコンポーネントの実体化
 24：     Set objDataCustomer = CreateObject("DataObj.Customer")
 25：     
 26：     ' 対象となる顧客が削除ずみでないかどうかの確認
 27：     If objDataCustomer.IsDeleted(ID) <> ID_Exists Then
 28：         ' 削除済みもしくは存在しない
 29：         Err.Raise DataObj.Err_NotFound, App.Title, _
   　                   "指定された顧客番号をもつ顧客が見つかりません"
 30：     End If
 31：     
 32：     ' 顧客情報の設定
 33：     objDataCustomer.UpdateRecord ID, NAME, YOMIGANA, _
   　                                  ZIP, ADDRESS, TELEPHONE, _
   　                                  FAX, MEMO
 34： 
 35：     ' DataObj.Customerの解放
 36：     Set objDataCustomer = Nothing
 37：     
 38：     ' コミットする
 39：     objContext.SetComplete
 40：     
 41：     ' オブジェクトコンテキストの解放
 42：     Set objContext = Nothing
 43：     
 44：     Exit Sub
 45： 
 46： ErrHandle:
 47：     ' エラーハンドラ
 48：     objContext.SetAbort
 49：     Set objContext = Nothing
 50：     Set objDataCustomer = Nothing
 51：     
 52：     ' エラーの再発行
 53：     Err.Raise Err.Number, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 54： End Sub