Cadena de Conexión VFP con Postgresql

Carlos MauricioTorres Suárez

unread,

Jul 25, 2018, 4:27:51 PM7/25/18

to Comunidad de Visual Foxpro en Español

lcStringCnxLocal="DRIVER={PostgreSQL Ansi};SERVER=localhost;port=5432;DATABASE=empresas;UID=postgres;PWD=cacho7;"
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle=SQLSTRINGCONNECT(lcStringCnxLocal)
IF lnHandle > 0
MESSAGEBOX("Conexión con la Base de Datos Satisfactoria",0+48,mSistema)
ELSE
MESSAGEBOX("No se pudo conectar con la Base de Datos."+CHR(13)+CHR(13)+;
"El Sistema regresará a Windows",0+48,mSistema)
CANCEL
ENDIF
conexion=lnHandle
RETURN lnHandle

Y no podemos conectarnos.

Gracias por su ayuda.

mapner

unread,

Jul 25, 2018, 5:49:02 PM7/25/18

to Comunidad de Visual Foxpro en Español

Estimado,

No queda muy clara la pregunta ni tampoco el mensaje de error que te devuelve la imposibilidad de conexión...

Saludos

Jorge Galván Pérez

unread,

Jul 25, 2018, 8:01:05 PM7/25/18

to Comunidad de Visual Foxpro en Español

Amigo chequea este link a ver si te ayuda.

https://pastebin.com/8gCa5Vqr

Jorge Galvan

Caracas-Venezuela

Dsan

unread,

Jul 25, 2018, 10:07:15 PM7/25/18

to publice...@googlegroups.com

Hola yo lo hago de esta forma, espero le sirva.

This.icadena = 'Driver={PostgreSQL ODBC Driver(ANSI)};'+;
    'SERVER='+ This.iserver+';'+;
    'Port='+ This.iport+';'+;
    'DATABASE='+ This.idatabase+';'+;
    'UID='+ This.iusername+';'+;
    'PWD='+ This.ipassword+';'

=SQLSETPROP(0,"ConnectTimeOut",5)
=SQLSetProp(0,"DispLogin",3)
This.nhandle = Sqlstringconnect(This.icadena)
If This.nhandle >= 0

DSanchez