List 6-196　DataObj.BillコンポーネントのDeleteRecordメソッド

  1： Public Sub DeleteRecord(ByVal BillID As Long)
  2：     ' 請求書情報テーブルから指定された請求書のレコードを削除する
  3：     ' 【引数】
  4：     '   BillID = 削除したい請求書の請求書番号
  5：     ' 【戻り値】
  6：     '   なし
  7：     Dim objContext As ObjectContext
  8：     Dim objConn As ADODB.Connection
  9：     Dim userName As String, NowDate As Date
 10：     Dim objHistory As DataObj.History
 11：     
 12：     ' オブジェクトコンテキストの取得
 13：     Set objContext = GetObjectContext()
 14：     
 15：     ' エラーハンドラの設定
 16：     On Error GoTo ErrHandle
 17：     
 18：     ' DataObj.Historyコンポーネントの実体化
 19：     Set objHistory = CreateObject("DataObj.History")
 20：     
 21：     ' ユーザー名と現在の時刻を取得
 22：     userName = objContext.Security.GetOriginalCallerName()
 23：     NowDate = Now()
 24：     
 25：     ' データベースと接続して，レコードを削除
 26：     Set objConn = CreateObject("ADODB.Connection")
 27：     objConn.Open g_DBConnection
 28：     objConn.Execute "DELETE FROM 請求書情報 WHERE ID=" & BillID
 29：     
 30：     ' データベースコネクションを遮断
 31：     objConn.Close
 32：     Set objConn = Nothing
 33：     
 34：     ' 履歴の追加
 35：     objHistory.AddHistory "請求書情報", "DELETEDFLAG", BillID, -1, -1
 36：     Set objHistory = 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 objConn = Nothing
 51：     Set objHistory = Nothing
 52：     
 53：     ' エラーの再発行
 54：     Err.Raise Err.Number, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 55： End Sub