エラー処理の実装

食事が終わった八木くんは部屋へ戻ると、早速、残りの処理の実装に取り掛かりました。

「まずは、エラー処理をプロシージャの先頭と末尾に追加して…っと」

Sub データ追加()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim num As String
    Dim i As Long
    
    On Error GoTo エラー
    
    If DB接続 Then
　　　：
　　　：
    End If

    Exit Sub

エラー:
    MsgBox "追加に失敗しました データベースは更新されません"
    Call データ取得
End Sub

※赤字の部分が、修正・追加したコードです。

「トランザクションを組み込むときは、エラー処理は必須だ。
これがないと、ロールバックさせる処理を組み込めないからな…」

八木くんはさらに、カタカタとキーボードを叩きます。