se coloco os comandos de conexao
Código: Selecionar todos
Function Ambiente_Inicial()
MSGSTOP("CHEGUEI NO AMBIENTE")
priv ctag:=.f.
if ! oClsConexao:AbreConexao(cTag)
MsgStop("Não foi possivel conectar com o banco")
ExitProcess(0)
Endif
porém ele chama uma outra rotina na classe clsconexao
Código: Selecionar todos
METHOD AbreConexao(cTag) CLASS ClsConexao
oServer := TPQServer():New( "LocalHost", "postgres", "postgres", "1052", 5432)
if oServer:NetErr()
? oServer:ErrorMsg()
return -2
cTag:=.F.
endif
oServer:SetVerbosity(2)
Lib=libpq.lib
Lib=hbpgsql.lib

