PostgreSQL SQLMIX String de Conexão com SSL

Mensagem por **Itamar M. Lins Jr.** » 17 Jul 2026 16:32

Olá!

#ifdef __PLATFORM__WINDOWS
   #require "sddodbc"  
#endif
#require "rddsql"    
#require "sddpg"  
#require "hbssl"   

REQUEST DBFCDX, DBFFPT, DBFDBT, LETO, SQLMIX, SDDODBC, SDDPG
   
FUNCTION TestaConexaoPGSQL
LOCAL cAlias := Alias(), nCon, cRdd

cRdd := RDDSETDEFAULT( "SQLMIX" )
// Passando a string idêntica ao psql na segunda posição do array
nCon := rddInfo( RDDI_CONNECT, { "POSTGRESQL", "host=111.111.111.111 port=0000 dbname=database user=xyz sslmode=require password=abcde" } )

IF nCon == 0
   hwg_MsgInfo("Não conectou no Postgres: " + Str(nCon) )
ELSE
   hwg_MsgInfo("Conectou no Postgres: " + Str(nCon) )
ENDIF

RDDINFO(RDDI_DISCONNECT, nCon)
RDDSETDEFAULT( cRdd )
dbSelectArea(cAlias)
RETURN .T.

No arquivo hbmk.hbm

Código: Selecionar todos

sddodbc.hbc
rddsql.hbc
sddpg.hbc
hbssl.hbc

Saída do hbmk2.
hbmk2: Processando script local: hbmk.hbm
hbmk2: Acionado pelo operador de diretivas " # ": sddodbc.hbc
hbmk2: Acionado pelo operador de diretivas " # ": rddsql.hbc
hbmk2: Acionado pelo operador de diretivas " # ": sddpg.hbc
hbmk2: Acionado pelo operador de diretivas " # ": hbssl.hbc