戻る

ADO でエラー処理を行う

概要

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

サンプル

「参照設定」で [Microsoft ActiveX Data Objects 2.1 Library] に参照します。

ADO でエラー処理を行う
		Private Sub adoFunction()     ' ADO でエラー処理を行う     On Error GoTo ErrorADODB:          Dim cnn As New ADODB.Connection          cnn.Open "Provider=SQLOLEDB;Data Source=(local);" & _              "Initial Catalog=pubs;", "sa", ""     ' ＤＢ処理 ...     '     '     '     Exit Sub ErrorADODB:     ' ここからエラー処理部分     Dim strMessage As String          If cnn.Errors.Count > 0 Then         ' データベース処理関連のエラーを取得         Dim errX As ADODB.Error         For Each errX In cnn.Errors             strMessage = strMessage & errX.Description & vbCrLf         Next     Else         ' 通常のエラーメッセージを取得         strMessage = Err.Description     End If          MsgBox strMessage, vbExclamation      End Sub

©2000 VBMANIA All rights reserved.