PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → Exemplo de uso do SqlConnectws
Exemplo de uso do SqlConnectws
Débuté par Boller, 22 aoû. 2023 22:18 - Aucune réponse
#1
Membre enregistré
3 659 messages
Popularité : +175 (223 votes)
Posté le 22 août 2023 - 22:18
//Exemplo de uso do SqlConnectws

TestPing is boolean = False

TestPing = HTTPRequest(gsSRVSrv)

TestPing = True

IF TestPing = True

IF gnConexaoBCD = 0 THEN

gnConexaoBCD = SQLConnectWS(gsSRVSrv,gsSRVIP,gsSRVUser,gsSRVPass,gsSRVBd,"PostgreSQL")

IF gnConexaoBCD <> 0 THEN

RESULT True

ELSE

IF gnNotMessage = 1 THEN

Info("Falha ao conectar com o banco de dados",HErrorInfo(),ErrorInfo())

END

RESULT False

END

ELSE

IF gnNotMessage = 1 THEN

Info("Falha ao conectar com o banco de dados")

END

RESULT False

gnConexaoBCD = 0

END

ELSE

Trace(herrorinfo())
End

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25