|
| Exemplo de uso do SqlConnectws |
| Started by Boller, Aug., 22 2023 10:18 PM - No answer |
| |
| | | |
|
| |
Registered member
4,520 messages |
|
| Posted on August, 22 2023 - 10:18 PM |
//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/ |
| |
| |
| | | |
|
| | | | |
| | |
|