|
| Inicio → WINDEV 25 → Como criar uma Conexao PostgreSQL com porta diferente da Padrão para o Windev e Webdev? |
| Como criar uma Conexao PostgreSQL com porta diferente da Padrão para o Windev e Webdev? |
| Iniciado por Boller, 11,ene. 2023 17:04 - No hay respuesta |
| |
| | | |
|
| |
Miembro registrado
4.521 mensajes |
|
| Publicado el 11,enero 2023 - 17:04 |
Prezados,
Segue abaixo um exemplo de Conexao PostgreSQL com porta diferente da Padrão para o Windev e Webdev.
Lembrando que para acessar o banco pelo Mobile precisa criar um Webservice soap ou rest ou websocket.
Tambem é possivel usando o SqlConnectWs usando o WAS Reserved free do diretorio install do Webdev que deve ser instalado no servidor onde esta o banco.
PROCEDURE ConexaoPostgreSQL()
ok1, ok2 is boolean
INIWrite("Config","HOST",EDT_Host,fCurrentDir()+"\Config.ini")
INIWrite("Config","PORT",EDT_Porta,fCurrentDir()+"\Config.ini")
INIWrite("Config","DBAS",EDT_DB,fCurrentDir()+"\Config.ini")
INIWrite("Config","USER",EDT_User,fCurrentDir()+"\Config.ini")
INIWrite("Config","PASS",EDT_Pass,fCurrentDir()+"\Config.ini")
MyConnect is Connection
MyConnect..Provider = hNativeAccessPostgreSQL
MyConnect..Server = EDT_Host
MyConnect..Source = EDT_Host//+";"+val(EDT_Porta)
MyConnect..Database = EDT_DB
MyConnect..User = EDT_User
MyConnect..Password = EDT_Pass
MyConnect..ExtendedInfo = "WD Cache Size = 10000; Server Port="+Val(EDT_Porta)+";"
IF HOpenConnection(MyConnect) = True THEN
ok1 = True
END
IF HChangeConnection("*",MyConnect) = True THEN
ok2 = True
END
IF ok1 = True AND ok2 = True THEN
ToastDisplay("Conectou com Sucesso no PostgreSQL!",toastLong,vaMiddle,haCenter,RGB(0,0,255))
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|