Dim sMysql as string
...
Exec ["netstat -ln | grep mysql"] to sMysql
If (InStr(lower(sMysql),"mysql") > 0) Then
'localhost
else
'remoto
EndIf
ok ho risolto, avevo commesso un errore usando il try, per gestire l'errore usavo catch mentre adesso con if error ho risolto.
Try Connections["Conn1"].Open
If Error Then
PictureBox1.Picture = immagineNO.Picture
Label1.text = "DATABASE NON CONNESSO"
Continue
Else
PictureBox1.Picture = immagineSI.Picture
Label1.text = "DATABASE CONNESSO"
Connections["Conn1"].Close
Break
Endif
GRAZIE!!! :ok: