SQLMIX e PostgreSQL 18 nativo. Windows e Linux.
Enviado: 02 Ago 2026 16:24
Olá!
Estou usando a conexão sem ODBC. Tá funcionando tudo de vez, DBFCDX,LETO,PGSQL
Arquivo myapp.prg
Arquivo hbmk.hbm
Vejam que está separado para quando for Windows ou Linux.
Função genérica Linux/Windows de conexão.
Postando pq antes estava usando ODBC no Windows. Algum problema do msys2 UCRT64, o drive deu erro. Cria a lib etc. Mas dá erro.
Dai eu instalei o PG baixei do site e apontei para a pasta "\Program Files"... onde está o PG 18 e funcionou sem problema.
Estou usando a conexão sem ODBC. Tá funcionando tudo de vez, DBFCDX,LETO,PGSQL
Arquivo myapp.prg
Código: Selecionar todos
#include 'dbinfo.ch'
#require "sddpg"
#require "hbssl"
REQUEST DBFCDX, DBFFPT, DBFDBT, LETO, SQLMIX, SDDPG
REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_UTF8, HB_CODEPAGE_UTF8EX
ConectarPG()
Código: Selecionar todos
{unix}/home/itamar/dev/hwgui/hwgui.hbc
{win}/dev/hwgui/hwgui.hbc
{unix}/home/itamar/dev/LetoDBf/letodb.hbc
{win}/dev/letodbf/letodb.hbc
{win}-i/dev/hwgui/include
sddpg.hbc
hbct.hbc
hbnf.hbc
{win}hbwin.hbc
Função genérica Linux/Windows de conexão.
Código: Selecionar todos
Function ConectarPG
LOCAL lRet := .T.
LOCAL cRdd := RDDSETDEFAULT( "SQLMIX" )
LOCAL nCon := rddInfo( RDDI_CONNECT, { "POSTGRESQL","host=hostremoto.net port=1234 dbname=tabelas user=joao sslmode=require password=ABCDEXYZ"})
IF nCon == 0
hwg_msginfo("Não conectou no Postgres: " + Str(nCon) )
RDDSETDEFAULT( cRdd )
lRet := .F.
ENDIF
Return lRet
Dai eu instalei o PG baixei do site e apontei para a pasta "\Program Files"... onde está o PG 18 e funcionou sem problema.