PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → SQLConnect com PostgresSQL
SQLConnect com PostgresSQL
Started by Antonio Carlos Coutinho, Feb., 21 2018 2:31 PM - No answer
Posted on February, 21 2018 - 2:31 PM
Exemplo de uso do PostgresSQL









Server Port=5433;

-----
// compara a data do servidor com a data da máquina
sIp is string = BuscaConfigValor("IP") //adriano
sUser is string = BuscaConfigValor("User") //adriano
sPass is string = BuscaConfigValor("Pass") //adriano
sPort is string = BuscaConfigValor("Port") //adriano


IF SQLConnect(sIp,sUser,sPass,"","OLEDB",hNativeAccessPostgreSQL,sPort) > 0 THEN //adriano
SQLExec("SELECT CURRENT_DATE","QseData")
IF SQLFetch("QseData")=0 THEN
DtServer is Date = SQLGetCol("QseData",1)
IF DtServer<>DateSys() THEN
Info("A data de seu computador está errada, favor corrigir !")
EndProgram()
END
END
END



----------
Em Close Window - Coloca para evitar travado o projeto sem ter que cancelar a tarefa pelo gerenciador do windows
----------

SQLDisconnect() //adriano

EndProgram() //adriano