Alguien que acceda a Postgres

[Willi Quintana]

Compañeros, buenos dias.
Alguien que tenga uno modo de acceder a postgres y actualizar sus datos?
GRacias

[Antonio Linares]

Willi,

Harbour proporciona una librería para usar Postgres:

https://github.com/harbour/core/tree/master/contrib/hbpgsql

[leandro]

Mediante ADO

Code: Select all  Expand view

  TRY                
     oCon := CreateObject( "ADODB.Connection" )
     oCon:ConnectionString := "DSN=eldsn;Uid=postgres;Pwd=tupass;"

     oCon:Open()

     vConecta:=.t.
  CATCH oError
     FW_ShowAdoError(oCon)
     MsgStop("El sistema no puede conectarse al servidor por una de las"+CRLF+;
             "siguientes razones:"+CRLF+;
             " "+CRLF+;
          "1. No hay acceso a internet en el equipo local"+CRLF+;
          "2. El Servidor esta apagado"+CRLF+;
          "3. El Servidor no tiene acceso a internet"+CRLF+;
          "4. La dirección o el nombre del equipo son incorrectos"+CRLF+;
          ""+CRLF+;
          "Verifique lo anterior y vuelva a intentarlo","Conexión con el servidor remoto - LYMAS")
     quit
     vConecta:=.f.
   END
 

[Willi Quintana]

Gracias mi estimado, solucionado con ODBC

[JoseAlvarez]

Gracias mi estimado, solucionado con ODBC

Hola willi. Saludos.

¿Podrias compartir la manera de conectar y actualizar?

Me interesa postgres ya que he leido que es mucho mas poderoso que mysql en cuanto a volumenes de datos y complejidad de consultas.

Agradecido por cualquier colaboracion al respecto.

[Willi Quintana]

MI estimado, aqui va

Code: Select all  Expand view

//==================================================================================================================================================================
Function AdoPostgre()
local oPon, oRs, oData, cString, aLIst, oRec

cString := "Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=postgres;Uid=postgres;Pwd=ekatroncito;"
oPon := TOleAuto():new("adodb.connection")
oPon:ConnectionString := cString

TRY
  oPon:Open()
CATCH
  ? "Error en la conexión"
  Return(.f.)
END

oRec := TOleAuto():New("adodb.recordset")

oRec:CursorLocation := 3  // adUseClient
oRec:CursorType := 3 // adOpenStatic
oRec:ActiveConnection:= oPon

oRec:Open("UPDATE test SET name = 'PRUEBA DE UPDDATE' WHERE code <= 20")

oRec:Open("SELECT * FROM test")

xbrowse(oRec)

Return(niL)