Compa帽eros, buenos dias.
Alguien que tenga uno modo de acceder a postgres y actualizar sus datos?
GRacias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Alguien que acceda a Postgres
Willi,
Harbour proporciona una librer铆a para usar Postgres:
https://github.com/harbour/core/tree/master/contrib/hbpgsql
Harbour proporciona una librer铆a para usar Postgres:
https://github.com/harbour/core/tree/master/contrib/hbpgsql
Mediante ADO
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.
ENDSaludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Gracias mi estimado, solucionado con ODBC
Willi Quintana wrote: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.
"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
MI estimado, aqui va
//==================================================================================================================================================================
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)