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