簡易的なDELETE/INSERT

DELETE/INSERT

DAO

テーブルをDELETEして引数で渡した文字列をテーブルのColumnNameにINSERT

——–

Public Function Execute_Simple(ByVal sSql As String) As Boolean
    On Error GoTo Err_Rtn   'エラー処理ルーチン開始
    Dim DB      As DAO.Database

    '戻り値の初期化
    DelIns_TargetPeriod = False

    'オブジェクト作成
    Set DB = CurrentDb
    'DELETE(一括)
    DB.Execute ("DELETE FROM TableA")
    'INSERT(一括)
    DB.Execute ("INSERT INTO TableA (ColumnName) VALUES ('" & sSql & "')")

    '戻り値の正常終了
    DelIns_TargetPeriod = True
    GoTo Exit_Rtn

Err_Rtn:
    'エラーハンドリング
    Select Case Err.Number
    Case Else
        MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _
               "エラー番号：" & Err.Number & Chr(13) & _
               "エラー内容：" & Err.Description, vbOKOnly + vbExclamation, "システム管理者"
    End Select
Exit_Rtn:
    'オブジェクトの解放
    Set DB = Nothing
End Function

Public Function Execute_Simple(ByVal sSql As String) As Boolean

On Error GoTo Err_Rtn 'エラー処理ルーチン開始

Dim DB As DAO.Database

'戻り値の初期化

DelIns_TargetPeriod = False

'オブジェクト作成

Set DB = CurrentDb

'DELETE(一括)

DB.Execute ("DELETE FROM TableA")

'INSERT(一括)

DB.Execute ("INSERT INTO TableA (ColumnName) VALUES ('" & sSql & "')")

'戻り値の正常終了

DelIns_TargetPeriod = True

GoTo Exit_Rtn

Err_Rtn:

'エラーハンドリング

Select Case Err.Number

Case Else

MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _

"エラー番号：" & Err.Number & Chr(13) & _

"エラー内容：" & Err.Description, vbOKOnly + vbExclamation, "システム管理者"

End Select

Exit_Rtn:

'オブジェクトの解放

Set DB = Nothing

End Function