「[cls]データベース操作」の編集履歴（バックアップ）一覧はこちら

「[cls]データベース操作」(2013/07/19 (金) 10:49:19) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

クラスモジュール
#blockquote{Option Compare Database
Option Explicit

Dim objADOCON As New ADODB.Connection
Dim objADORS As New ADODB.Recordset

&color(black,aqua){'DB接続}
Private Sub Class_Initialize()
    Set objADOCON = Application.CurrentProject.Connection
End Sub

&color(black,aqua){'DB切断}
Private Sub Class_Terminate()
    On Error Resume Next
    objADOCON.Close
    objADORS.Close
    Set objADOCON = Nothing
    Set objADORS = Nothing
    On Error GoTo 0
End Sub

&color(black,aqua){'SQL Select発行}
Public Function ExecSelect(strSQL) As Boolean
    ExecSelect = False
    On Error Resume Next
    objADORS.CursorLocation = adUseClient
    objADORS.Open strSQL, objADOCON, adOpenForwardOnly, adLockReadOnly
    &color(black,aqua){'SQL実行結果を判定}
    If objADOCON.Errors.Count = 0 Then
     ExecSelect = True
    End If
    On Error GoTo 0
End Function

&color(black,aqua){'SQL Select以外発行}
Public Function ExecSQL(strSQL) As Boolean
    ExecSQL = False
    On Error Resume Next
    objADOCON.Execute strSQL
    &color(black,aqua){'SQL実行結果を判定}
    If objADOCON.Errors.Count = 0 Then
         ExecSQL = True
    End If
    On Error GoTo 0
End Function

&color(black,aqua){'トランザクション開始}
Public Sub BeginTrans()
    objADOCON.BeginTrans
End Sub

&color(black,aqua){'トランザクション終了 コミット}
Public Sub Commit()
    objADOCON.CommitTrans
End Sub

&color(black,aqua){'トランザクション終了 ロールバック}
Public Sub Rollback()
    objADOCON.RollbackTrans
End Sub

&color(black,aqua){'レコードセット取得}
Public Property Get GetRS() As ADODB.Recordset
    Set GetRS = objADORS
End Property}

クラスモジュール[clsDb]
#blockquote{Option Compare Database
Option Explicit

Dim objADOCON As New ADODB.Connection
Dim objADORS As New ADODB.Recordset

&color(black,aqua){'DB接続}
Private Sub Class_Initialize()
    Set objADOCON = Application.CurrentProject.Connection
End Sub

&color(black,aqua){'DB切断}
Private Sub Class_Terminate()
    On Error Resume Next
    objADOCON.Close
    objADORS.Close
    Set objADOCON = Nothing
    Set objADORS = Nothing
    On Error GoTo 0
End Sub

&color(black,aqua){'SQL Select発行}
Public Function ExecSelect(strSQL) As Boolean
    ExecSelect = False
    On Error Resume Next
    objADORS.CursorLocation = adUseClient
    objADORS.Open strSQL, objADOCON, adOpenForwardOnly, adLockReadOnly
    &color(black,aqua){'SQL実行結果を判定}
    If objADOCON.Errors.Count = 0 Then
     ExecSelect = True
    End If
    On Error GoTo 0
End Function

&color(black,aqua){'SQL Select以外発行}
Public Function ExecSQL(strSQL) As Boolean
    ExecSQL = False
    On Error Resume Next
    objADOCON.Execute strSQL
    &color(black,aqua){'SQL実行結果を判定}
    If objADOCON.Errors.Count = 0 Then
         ExecSQL = True
    End If
    On Error GoTo 0
End Function

&color(black,aqua){'トランザクション開始}
Public Sub BeginTrans()
    objADOCON.BeginTrans
End Sub

&color(black,aqua){'トランザクション終了 コミット}
Public Sub Commit()
    objADOCON.CommitTrans
End Sub

&color(black,aqua){'トランザクション終了 ロールバック}
Public Sub Rollback()
    objADOCON.RollbackTrans
End Sub

&color(black,aqua){'レコードセット取得}
Public Property Get GetRS() As ADODB.Recordset
    Set GetRS = objADORS
End Property}