List 6-104 DataObj.SlipコンポーネントのIsDeletedメソッド
1: Public Function IsDeleted(ByVal SlipID As Long) As DELETEDFLAG
2: ' 指定された伝票番号を備えた伝票が削除ずみであるかどうかを調べる
3: ' 【引数】
4: ' SlipID = 調査する伝票番号
5: ' 【戻り値】
6: ' 指定された伝票番号を備えた伝票が
7: ' 削除されていればID_Deleted
8: ' 存在すればID_Existsを
9: ' 存在しなければID_NotFoundを
10: ' 返す
11: Dim objContext As ObjectContext
12: Dim objConn As ADODB.Connection
13: Dim objRec As ADODB.Recordset
14:
15: ' オブジェクトコンテキストの取得
16: Set objContext = GetObjectContext()
17:
18: ' エラーハンドラの設定
19: On Error GoTo ErrHandle
20:
21: ' データベースに接続し,指定された伝票が存在するかどうかを調査
22: Set objConn = CreateObject("ADODB.Connection")
23: objConn.Open g_DBConnection
24: Set objRec = objConn.Execute( _
"SELECT DELETEDFLAG FROM 伝票情報 WHERE ID=" & SlipID)
25:
26: If objRec.EOF Then
27: ' 指定された伝票はない
28: IsDeleted = ID_NotFound
29: Else
30: If objRec.Fields("DELETEDFLAG").Value = True Then
31: ' 伝票ーは削除されている
32: IsDeleted = ID_Deleted
33: Else
34: ' 伝票は削除されていない
35: IsDeleted = ID_Exists
36: End If
37: objRec.Close
38: End If
39:
40: ' データベースとの接続を閉じてレコードセットを解放
41: Set objRec = Nothing
42: objConn.Close
43: Set objConn = Nothing
44:
45: ' トランザクションをコミット
46: objContext.SetComplete
47:
48: ' オブジェクトコンテキストの解放
49: Set objContext = Nothing
50:
51: Exit Function
52:
53: ErrHandle:
54: ' エラーハンドラ
55: objContext.SetAbort
56:
57: Set objContext = Nothing
58: Set objConn = Nothing
59: Set objRec = Nothing
60:
61: ' エラーの再発行
62: Err.Raise Err.NUMBER, Err.Source, Err.Description, _
Err.HelpFile, Err.HelpContext
63: End Function