SQLMIX e PostgreSQL 18 nativo. Windows e Linux.

Fórum sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 8183
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 6 vezes
Curtiram: 1 vez

SQLMIX e PostgreSQL 18 nativo. Windows e Linux.

Mensagem por Itamar M. Lins Jr. »

Olá!
Estou usando a conexão sem ODBC. Tá funcionando tudo de vez, DBFCDX,LETO,PGSQL
Arquivo myapp.prg

Código: Selecionar todos

#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()
Arquivo hbmk.hbm

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
Vejam que está tudo separado para quando for Windows ou Linux.

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
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.
Saudações,
Itamar M. Lins Jr.
Responder