в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:59Z

1 версия

Новая страница

==Using the VBA Err Object and ADO Errors Collection==



<source lang="vb">

Sub DBError()
Dim conn As New ADODB.Connection
Dim errADO As ADODB.Error
On Error GoTo CheckErrors
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\my.mdb"
CheckErrors:
Debug.Print "VBA error number: " & Err.Number & vbCrLf & " (" & Err.Description & ")"
Debug.Print "Listed below is information " & "regarding this error " & vbCrLf & "contained in the ADO Errors collection."
For Each errADO In conn.Errors
Debug.Print vbTab & "Error Number: " & errADO.Number
Debug.Print vbTab & "Error Description: " & errADO.Description
Debug.Print vbTab & "Jet Error Number: " & errADO.SQLState
Debug.Print vbTab & "Native Error Number: " & errADO.NativeError
Debug.Print vbTab & "Source: " & errADO.Source
Debug.Print vbTab & "Help Context: " & errADO.HelpContext
Debug.Print vbTab & "Help File: " & errADO.HelpFile
Next
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/ADO Error - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия