Hola José Luis, prueba así a ver, es totalemnete configurable:
cadena_conex = "DRIVER={PostgreSQL ANSI};DATABASE=" & base_dat &
";SERVER=" & dir_servidor & ";PORT=" & PUERTO & ";UID=" & perso_a &
";PWD=" & perso_p & ";SSLMODE=prefer;"
Fíjate que la asignación de user y pass no lo tienes bien(como cadena)
si no me equivoco.
Esta a mí me va perfecto
Espero te ayude
Un saludo
Suso
>
> Hola foro buenos días, estoy iniciándome en postgresql y quiero hacer
> una conexión vía ODBC pero mediante una cadena de conexión y me arroja
> el siguiente mensaje cada vez que intento la conexión:
>
>
>
> *[Microsoft][Administrador de controladores ODBC] no se encuentra el
> nombre del origen de datos y no se especificó ningún controlador
> predeterminado.*
>
> * *
>
> Debo aclarar que ya tengo instalado el ODBC para postgresql en mi pc.
>
>
>
>
>
> Tengo el siguiente escenario:
>
>
>
> Windows XP SP3
>
> Visual FoxPro 9.0
>
> PostgreSQL 8.4
>
>
>
>
>
> Este es el código que utilice:
>
>
>
>
>
> lcRutaServer="192.168.1.3"
>
> lcBaseDatos="miBD"
>
> lcUser="postgres"
>
> lcPasword="miclave"
>
> lcConC
> ="Driver={PostgreSQL};Server="+lcRutaServer+";Port=5432;Database="+
> ALLTRIM(lcBaseDatos) +";Uid=lcUser;Pwd=lcPasword"
>
> miErrorTry=.f.
>
> TRY
>
> STORE SQLSTRINGCONNECT(lcConC,.t.) TO CONPOSTGRESQL
>
> CATCH
>
> miErrorTry = .t.
>
> ENDTRY
>
> IF miErrorTry
>
> =MESSAGEBOX('Ocurrio un error en la conexion a POSTGRESQL')
>
> RETURN
>
> ENDIF
>
>
>
> IF CONPOSTGRESQL <= 0
>
> lError=AERROR(Mi_Error)
>
> =messagebox(Mi_error(1,3),0+64)
>
> RETURN .f.
>
> ENDIF
>
> =MESSAGEBOX('conexion a POSTGRESQL OK')
>
>
>
>
>
>
>
>
>
>
>
> Gracias de antemano.
>
>
>
>
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 4660 (20091204) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 4661 (20091204) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com