Exportar modelo de datos

cbermejo — Tue, 20 May 2014 10:23:07 GMT

Utilidad para exportar a disco todo el modelo de datos que tengamos en una aplicación.

1. Para conseguirlo, solo necesitamos colocar este pequeño bucle en la pestaña final del script de la aplicación original:

// Guarda en disco todas las tablas de la memoria, borrándolas a continuación
Directory $(DirectoryExportData);

     let numTablas = NoOfTables();
     for i =1 to $(numTablas)
            let Tabla= TableName(0);
            STORE [$(Tabla)] into [$(Tabla)].qvd(qvd);
            drop table [$(Tabla)];
     next i

2. Y con este otro en la aplicación final para cargar todos los datos necesarios:
     // Carga todos los ficheros "qvd" existentes en un directorio
     LET DirectoryExportData ='Data\Export\';

Directory $(DirectoryExportData);

     for each Ext in 'qvd'
            for each File in filelist ('*.' & Ext)
                   load * From $(File)(QVD);
     next File;

Espero que sea de utilidad

topic Exportar modelo de datos in Español

Exportar modelo de datos