Configuración de conexión a datos VFP

[Alfredo García]

Escribo para solicitar ayuda para poder configurar, por código, la conexión a una base de datos de VFP.

 

Por medio del análisis he configurado la conexión, el cual funciona mi proyecto en desarrollo correctamente, accedo a los datos sin problemas.

 

Tengo el problema en lograr una fácil implementación en producción.

 

Quiero hacer uso de un archivo de configuración, por ejemplo, Setup.ini, y colocar allí los parámetros de conexión para mis dos bases de datos VFP y HPFSQL classic

 

He tratado de programar la conexión de esta manera, sin éxito:

 

PROCEDURE Conexion()

sRuta is string = INIRead("ConexionBD","Ruta","",gsArchivoINI)

sExtendida is string = INIRead("ConexionBD","Extendida","",gsArchivoINI)

sExtendida = StringBuild(sExtendida,sRuta)

 

// Conexión a VFP

gbConeccionRealizada = False

IF HDescribeConnection(gctConexionVFP,"Provider=MSDASQL.1;Persist Security Info=False;Data Source=Agenda") THEN

            gbConeccionRealizada = HOpenConnection(gctConexionVFP) 

            gbConeccionRealizada = HChangeConnection(VFP,gctConexionVFP)

END

 

// Conexión a HPFSQL

gbConeccionRealizada = False

gctConexionHFSQL..Provider = hAccessHF7

HOpenConnection(gctConexionHFSQL) 

 

RESULT gbConeccionRealizada

Y el archivo Setup así:

[GoogleCalendar]

Email=alfre...@gmail.com

ClientID=202143764168-rifr1tqmpef15qnfckgvnh4572f1ehn5.apps.googleusercontent.com

ClientSecret=H0x1IKQUGjZh0bH1L6-VBZUH

NombreCalendario=CitasMedicas

 

[ConexionBD]

Ruta=g:\My Projects\workana\AgendaMedica\DATOS AGENDA\contactos.dbc

Extendida=Persist Security Info=False;Prompt=4;Extended Properties=DSN=agenda;UID=;PWD=;SourceDB=%1;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes