|
| Exemplo de uso do SqlConnectws |
| Iniciado por Boller, 22,ago. 2023 22:18 - No hay respuesta |
| |
| | | |
|
| |
Miembro registrado
4.521 mensajes |
|
| Publicado el 22,agosto 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/ |
| |
| |
| | | |
|
| | | | |
| | |
|