戻る

DAO で エラー処理を行う

概要

データベース処理に関連したエラー処理をプロシージャの中に組み込む。

サンプル

「参照設定」で [Microsoft DAO 3.5 Object Library] に参照します。

DAO で エラー処理を行う
		Private Sub JetFunction()     ' DAO でエラー処理を行う     On Error GoTo ErrJet:          Dim ws As DAO.Workspace, db As DAO.Database          Set ws = DBEngine.Workspaces(0)          Set db = ws.OpenDatabase("C:\My Documents\db1.mdb")                   ' ＤＢ処理 ...     '     '     '     Exit Sub ErrJet:     Dim strMessage As String          If DBEngine.Errors.Count > 0 Then         ' データベース処理関連のエラーを取得         Dim errX As Error         For Each errX In DBEngine.Errors            strMessage = strMessage & errX.Description & vbCrLf         Next errX     Else         ' 通常のエラーメッセージを取得         strMessage = Err.Description     End If          MsgBox strMessage, vbExclamation      End Sub

©2000 VBMANIA All rights reserved.