VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/01(Tue) 12:50 |
| 投稿者 | ： しんじ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： エラートラップについて(コード) |
ちなみに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
こんな感じですかね。
DBEngine.ErrorsコレクションをFOR〜EACHで
トラップすれば特にエラーコードを知る必要はないですよ。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）