Hej!

Jag håller på att göra lite felhantering till mitt program men jag behöver veta om ett av mina objekt är fortfarande "öppna" så jag inte försöker stänga något som är redan stängt.

Detta är en del av det jag programmerat hittils

On Error GoTo errhand

Set Connect = CreateObject("ADODB.Connection")
Connect.open "Driver={SQLServer};Server=127.0.0.1;Database=Test;Uid=TestUser;Pwd=testa;"

' gör en massa med databas kopplingen
Connect.Close
set Connect = Nothing

'programmet forstätter en bit...

errhand:
' Här måste det göras någon slags validering så att connect är fortfarande öppen och det är det jag undrar hur man gör så att man inte försöker stänga något som är redan stängt och får ett fel i felhanteringen

Connect.Close
set Connect = Nothing

Tacksam för ett snabbt svar!

Det finns en metod som heter IsObject(),
den skulle du kunna använda.

Typ så här:
<code>
errhand:
If IsObject(Connect) Then
' gör något om objektet finns
Else
' gör något annat om objektet inte finns
End If
</code>

Tack så hemskt mycket! :D

<code>
If Connect.State = adStateOpen then
Connect.Close
End if
</code>


[Peter.H]