FiveTech Software tech support forums

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 wrote:Gracias mi estimado, solucionado con ODBC

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)