Есть некая база на аксессе содержащая большую таблицу и несколько мелких
Размер таблицы 36 столбцов
Строк от 300 000 до 1 500 000
Генерации этой таблицы предшествует очень долгая прелюдия поэтому в принципе на генерацию можно потратить сколь угодно времени, дальше поясню к чему это.
Далее из Excel VBA формирует через дао запрос
код примерно такой
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Set db = DAO.OpenDatabase(Cells(X, Y - 1 ), , yes)
SQlcrit = " HAVING ((([2-1 итоговый рейтинг].Дата)=#" & dat & "#)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].GR20)=""" & gr20 & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].GR21)=""" & gr21 & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].GR22)=""" & gr22 & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].[Код])=""" & kod & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].WHS_ID)=""" & whskod & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].CORP_REGION)=""" & reg & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].BRANCH)=""" & fil & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].CITY)=""" & cit & """)"
SQlcrit = SQlcrit & " AND (([2-1 итоговый рейтинг].DISTRIB_CENTRE)=""" & DC & """));"
'ВХОДНОЙ------------------------------------------------------------------------------------------------------------------------
StrSQL = "SELECT [2-1 итоговый рейтинг].[ID_Group] AS GroupID, [2-1 итоговый рейтинг].CODE,_
[2-1 итоговый рейтинг].[Итоговый рейтинг], [2-1 итоговый рейтинг].Поставщик,_
[2-1 итоговый рейтинг].[Код] AS StoreID"
StrSQL = StrSQL & " FROM [2-1 итоговый рейтинг]"
StrSQL = StrSQL & " GROUP BY [2-1 итоговый рейтинг].[ID_Group], [2-1 итоговый рейтинг].CODE,_
[2-1 итоговый рейтинг].[Итоговый рейтинг], [2-1 итоговый рейтинг].Поставщик,_
[2-1 итоговый рейтинг].Дата, [2-1 итоговый рейтинг].GR20, [2-1 итоговый рейтинг].GR21,_
[2-1 итоговый рейтинг].GR22, [2-1 итоговый рейтинг].[Код], [2-1 итоговый рейтинг].WHS_ID,_
[2-1 итоговый рейтинг].CORP_REGION, [2-1 итоговый рейтинг].BRANCH, [2-1 итоговый рейтинг].CITY,_
[2-1 итоговый рейтинг].DISTRIB_CENTRE"
StrSQL = StrSQL & SQlcrit
Set rs = db.OpenRecordset(StrSQL)
дальше работаю с рекордсетом
в общем нужно существенно увеличить скорость выполнения такого запроса. У меня он выполняется от 1,6 сек до 5,4 сек. (конфа обычная, XP, core2duo 2,2*2, 1гиг) база локальная
в сутки нужно выполнять этот запрос около 40 тыс раз и более соответственно с разными критериями. В сутки выполнение не укладывается.
Думал над вариантом создавать в прелюдии (как я говорил её продолжительность не имеет значения) 40 тыс текстовиков в папку где каждый файлик это результат выполнения запроса по критерию и читать их с винта. Но чую не та степь.
Гуглить не помогает все статьи которые удалось найти не могут дать ответ на этот вопрос "Как ускорить"
