List 5-10　updateStockメソッド

  1： Public Sub updateStock(ByVal ProductID As Long, ByVal newStock As Long)
  2：     'ProductIDで指定されたIDをもつ製品の在庫をnewStockに変更する
  3：     Dim objCon As ADODB.Connection
  4：     Dim objContext As ObjectContext
  5：     
  6：     'オブジェクトコンテキストを取得
  7：     Set objContext = GetObjectContext()
  8：     
  9：     'エラーハンドラを設定
 10：     On Error GoTo ErrorHandler
 11：     
 12：     'コネクションオブジェクトの作成
 13：     Set objCon = CreateObject("ADODB.Connection")
 14：     
 15：     'データベースを開く
 16：     objCon.Open "Driver=SQL Server; Server=(local); UID=sa;" & _
   　                 " Database=dbsample"
 17： 
 18：     '在庫を減らす
 19：     objCon.Execute "UPDATE 在庫テーブル SET STOCK=" & newStock & _
  　                     " WHERE ID=" & ProductID
 20： 
 21：     'コネクションを閉じて破棄
 22：     objCon.Close
 23：     Set objCon = Nothing
 24：     
 25：     'トランザクションをコミット
 26：     objContext.SetComplete
 27：     Exit Sub
 28：     
 29： ErrorHandler:
 30：     'エラーハンドラ
 31：     'エラーが発生したときには，トランザクションをアボートに設定
 32：     objContext.SetAbort
 33：     'エラーをもう一回引き起こす
 34：     Err.Raise Err.Number, Err.Source, Err.Description
 35： End Sub