sql error

[speedy6]

Hi,

In the following code i make a connection to my database and it works fine BUT

when i zet my firewall on BLOCK ALL. I get a error on the following line:

$Objconn.open ("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";")

I cannot catch it with the following code...so how can I solve it?

$Objconn.open ("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";")

If @error Then

SetError(1)

Return 0

Else

...

Thanks

Speedy

[Zedna]

$objErr = ObjEvent("AutoIt.Error","MyErrFunc")

Func MyErrFunc()
    ; when COM error occurs only set @error flag and continue
    SetError(1)
EndFunc

$Objconn.open ("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";")
If @error Then 
  ; ...
EndIf

[speedy6]

thx

And another question?

I can't get parsed this function...why?

Func _close()

TraySetState(2);

Opt("TrayIconHide", 1);

exit

EndFunc

[Zedna]

thx

And another question?

I can't get parsed this function...why?

Func _close()

TraySetState(2);

Opt("TrayIconHide", 1);

exit

EndFunc

Func _close()
  TraySetState(2)
  Opt("TrayIconHide", 1)
  exit
EndFunc

It's not Pascal so no need to have ; at end of lines :-)

[speedy6]

Func _close()
  TraySetState(2)
  Opt("TrayIconHide", 1)
  exit
EndFunc

It's not Pascal so no need to have ; at end of lines :-)

Now thats not the solution... can I call the function exit in a function?

[speedy6]

problem solved