List 5-11　insertOrderメソッド

  1： Public Sub insertOrder(ByVal ProductID As Long, _
   　                        ByVal CustomerName As String, _
                             ByVal Number As Long)
  2：     '受注レコードを書き込む
  3：     Dim objCon As ADODB.Connection
  4：     Dim objRec As ADODB.Recordset
  5：     Dim objContext As ObjectContext
  6：     
  7：     'オブジェクトコンテキストを取得
  8：     Set objContext = GetObjectContext()
  9：     
 10：     'エラーハンドラを設定
 11：     On Error GoTo ErrorHandler
 12：     
 13：     
 14：     'コネクションオブジェクトの作成
 15：     Set objCon = CreateObject("ADODB.Connection")
 16：     
 17：     'データベースを開く
 18：     objCon.Open "Driver=SQL Server; Server=(local); UID=sa;" & _
   　                 " Database=dbsample"
 19： 
 20： 
 21：     '受注レコードを書く
 22：     objCon.Execute "INSERT INTO 受注テーブル" & _
   　                    " (DATE, CUSTOMERNAME, PRODUCTID, NUMBER)" & _
   　                    " VALUES ('" & Now() & "'," & "'" & CustomerName & _
   　                    "'," & ProductID & "," & Number & ")"
 23： 
 24：     'コネクションを閉じて破棄
 25：     objCon.Close
 26：     Set objCon = Nothing
 27：     
 28：     'トランザクションをコミット
 29：     objContext.SetComplete
 30：     
 31：     Exit Sub
 32：     
 33： ErrorHandler:
 34：     'エラーハンドラ
 35：     'エラーが発生したときには，トランザクションをアボートに設定
 36：     objContext.SetAbort
 37：     'エラーをもう一回引き起こす
 38：     Err.Raise Err.Number, Err.Source, Err.Description
 39： 
 40： End Sub