cAddress = 'localhost'
cUser = 'postgres'
cPassword= 'vivikupa32607918'
cBD = 'MAPA'
lcRutaServer=ALLTRIM(cAddress)
lcPort = '5432'
lcBaseDatos=cBD
lcUser=ALLTRIM(cUser)
lcPasword=LOWER(cPassword)
lcConC = "Provider=MSDASQL;Driver={PostgreSQL ANSI};SERVER=&lcRutaServer;port=&lcPort;DATABASE=&lcBaseDatos;UID=&lcUser;PWD=&lcPasword;"
cadena = SQLSTRINGCONNECT(lcConC)
if cadena >0
else
wait wind 'Error al conectarse'
cadena = 0
ENDIF
RETURN cadena
y para migrar dbf a postgres
1- COPY TO C:\TEMP\TBLEMPGB.txt CSV
donde temp puede ser el directorio que tu elijas y esta instruccion la corres desde vfp teniendo en uso la tabla a exportar
debes tener la fecha en set century on y formato ansi
2- copy TBLEMPGB from '/TEMP/TBLEMPGB.TXT' CSV header
DONDE TBLEMPGB ES TU TABLA DE POSTGRES Y TBLEMPGB ES LA TABLA QUE CONTIENE LOS DATOS EN FORMATO CSV SE LE COLOCA HEADER PARA QUE SEPA QUE TIENE ENCABEZADOS Y DEBEN SER DE LA MISMA LONGITUD Y TIPO