Källkoden för /anders.enges/ado/aerror.asp

---

<!--#include file="../inc/navstuff.asp" -->
<p>Error objektet hör till ADO.Connection objektet och
används för att kolla vad som gått fel i t.ex. en händelse.</p>
<p>Error objektet har följande properties</p>
<table border="1">
<tr bgcolor="#EEEEEE"><td><b>Property</b></td><td><b>Förklaring</b></td></tr>
<tr><td valign="top">Description</td><td>En förklaring i textform över vad som gått fel (på engelska). Denna är "default property"</td></tr>
<tr><td valign="top">Number</td><td>Den numeriska felkoden</td></tr>
<tr><td valign="top">Source</td><td>Det objekt som förorsakat felet</td></tr>
<tr><td valign="top">SQLState</td><td>En femsiffrig standard SQL felkod</td></tr>
<tr><td valign="top">NativeError</td><td>Serverns interna felkod</td></tr>
<tr><td valign="top">HelpFile</td><td>Eventuell Help fil som förklarar felet</td></tr>
<tr><td valign="top">HelpContext</td><td>Var i Helpfilen finns prolemet förklarat?</td></tr>
</table>
<p>Har man fått ett fel i en händelse och det som parameter finns följande:<br/>
<b>ByVal pError As ADODB.Error</b><br />
kan man då använda <b>pError.Description</b> eller bara <b>pError</b> för att
få se felbeskrivningen</p>
<p>En sak man bör beakta är att en felaktigt programrad kan ge många ADO fel.Man kan då
testa dessa med på följsnde sätt:</p>
<p>
<div class="code">
<pre>
Public Sub FelUtlösare()

    Dim Conn As ADODB.Connection
    Dim errLoop As ADODB.Error
    Dim strError As String

    On Error GoTo ErrorHandler
   
    Set Conn = New ADODB.Connection
    ' försöker öppna en tabell som inte finns
    cnn1.Open "FinnsInte"
   
    Exit Sub

ErrorHandler:

    ' Loopa genom alla eventuella fel
    ' Ock visa dessa.
    For Each errLoop In Conn.Errors
       strError = "Error #" & errLoop.Number & vbCr & _
          " " & errLoop.Description & vbCr & _
          " (Source: " & errLoop.Source & ")" & vbCr & _
          " (SQL State: " & errLoop.SQLState & ")" & vbCr & _
          " (NativeError: " & errLoop.NativeError & ")" & vbCr
       If errLoop.HelpFile = "" Then
          strError = strError & _
             " No Help file available" & _
             vbCr & vbCr
       Else
          strError = strError & _
             " (HelpFile: " & errLoop.HelpFile & ")" & vbCr & _
             " (HelpContext: " & errLoop.HelpContext & ")" & _
             vbCr & vbCr
       End If
         
    Debug.Print strError
    Next
End Sub
</pre>
</div>
<!--#include file="../inc/footer.asp" -->