CLOSE TABLES all
USE settings IN  0 
************
lc_DSN = ALLTRIM(Settings.Sql_dsn)
gncn_sql = SQLSTRINGCONNECT(m.lc_DSN)	&& Соединение с SQLSERVER

= SQLEXEC(gncn_sql, "SELECT ind.kod_indic, LEFT(ind.SectCode,30) as SectCode, LEFT(ind.varmnem,30) as varmnem "+;
                    "FROM EC_INDICATORS_SPR ind "+;
                    "WHERE Tbl_source = 'IIS_QUERI_V_Descns' AND SectCode <> 'zzzz' "+;
                    "ORDER BY 2, 3",;
                    "Q_EC_INDICATORS_SPR")

= SQLEXEC(gncn_sql, "SELECT terr.kod_terr, LEFT(terr.crcode,30) as crcode "+;
                    "FROM TERR_SPR terr ORDER BY 2", "Q_TERR_SPR")

= SQLDISCONNECT(gncn_sql)		&& ***************************

lc_DSN = ALLTRIM(Settings.Mdb_dsn)
gncn_mdb = SQLSTRINGCONNECT(m.lc_DSN)	&& Соединение с Первой Базой Access

= SQLEXEC(gncn_mdb, "SELECT DISTINCT VarMnem FROM IIS_QUERI_V_Descns WHERE TradeCode = True "+;
                    "ORDER BY VarMnem", "Q_IIS_QUERI_V_Descns")
= SQLEXEC(gncn_mdb, "SELECT DISTINCT SectCode FROM IIS_QUERI_Sect_Descns "+;
                       "WHERE TradeCode = True AND SectCode <> 'zzzz' ORDER BY SectCode", ;
                       "Q_IIS_QUERI_Sect_Descns")
= SQLEXEC(gncn_mdb, "SELECT CrCode FROM CRClass WHERE IISQueri > 0 ORDER BY CrCode", "Q_CRClass")

= SQLDISCONNECT(gncn_mdb)		&& ***************************

lc_DSN = ALLTRIM(Settings.Mdb_dsn)
lc_DSN = STRTRAN(lc_DSN, 'OEFDATA', 'QUERIDATA')
gncn_mdb1 = SQLSTRINGCONNECT(m.lc_DSN)		&& Соединение со Второй Базой Access

= SQLEXEC(gncn_mdb1, "SELECT * FROM QueriData ORDER BY CrCode, ComCode, VarMnem", "Q_QueriData")

= SQLDISCONNECT(gncn_mdb1)		&& ***************************

SELECT Q_TERR_SPR.* ;
  FROM Q_TERR_SPR INNER JOIN Q_CRClass ;
    ON Q_TERR_SPR.CrCode = Q_CRClass.CrCode ;
  ORDER BY Q_TERR_SPR.CrCode ;
  INTO CURSOR C_TERR_SPR

USE IN Q_TERR_SPR
USE IN Q_CRClass

SELECT I.* ;
  FROM Q_EC_INDICATORS_SPR I ;
    INNER JOIN Q_IIS_QUERI_Sect_Descns S ;
       ON I.SectCode = S.SectCode ;
    INNER JOIN Q_IIS_QUERI_V_Descns V ;
       ON I.VarMnem = V.VarMnem ;
  ORDER BY I.SectCode, I.VarMnem ;
  INTO CURSOR C_ind

USE IN Q_EC_INDICATORS_SPR
USE IN Q_IIS_QUERI_Sect_Descns
USE IN Q_IIS_QUERI_V_Descns

SELECT D.*, T.Kod_terr, I.Kod_indic ;
  FROM Q_QueriData D ;
    INNER JOIN C_TERR_SPR T ;
        ON D.CrCode = T.CrCode ;
    INNER JOIN C_ind I ;
        ON D.ComCode = I.SectCode ;
          AND D.VarMnem = I.VarMnem ;
  ORDER BY D.CrCode, D.ComCode, D.VarMnem ;
  INTO CURSOR C_QueriData

USE IN Q_QueriData
USE IN C_TERR_SPR
USE IN C_ind

SELECT C_QueriData
* И работать с данными

SELECT I.* ;
  FROM Q_EC_INDICATORS_SPR I ;
    INNER JOIN Q_IIS_QUERI_Sect_Descns S ;
       ON I.SectCode = S.SectCode ;
    INNER JOIN Q_IIS_QUERI_V_Descns V ;
       ON I.VarMnem = V.VarMnem ;
  ORDER BY I.SectCode, I.VarMnem ;
  INTO CURSOR C_ind

SELECT Q_EC_INDICATORS_SPR
INDEX ON SectCode ...
INDEX ON VarMnem ...

SELECT Q_IIS_QUERI_Sect_Descns
INDEX ON SectCode ...

SELECT Q_IIS_QUERI_V_Descns
INDEX ON VarMnem ...