есть запрос
"SELECT tabl.[nomertel], sum(tabl.[summazvonka]) FROM tabl WHERE tabl.[summazvonka]<>0 and (((tabl.[opisanie]) Like '*(РЕГ)*')) group by tabl.[nomertel] "

таблица tabl содержит более 2 000 000 записей.

запрос работает, но выполняется в течении 5-10минут. хочется быстрее.

если сделать выборку , и записать ее в таблицу , а потом делать агрегацию, то агрегация делается быстро.
но вот сама запись в таблицу заниает кучу времени около 5минут.
может я неправильно както записываю в таблицу?
подскажите как правильно рекордсет записать в таблицу? или ее вообще можно не записывать, а как то сам рекордсет суммировать?

более 300 000 записей выбирается

уплотненых с итогами уже порядка 150

через create table я не знаю как вугрузить значения рекордсета, что то никакк не додумкаю.

так и делаю, (еслия парвильно поянл) загружаю таблицу в отднельный файл акса, а далее уже из своего клиента к нему подключаюсь.

как думаешь, регекспом быстрее будет?
в оракле лайк шустр :)

может так (хотя не уверен)

SELECT t.nomertel AS Выражение1, (select sum ( r.summazvonka) as wer
from Tabl as r where r.nomertel=t.nomertel) AS сумма
FROM [SELECT s.nomertel
FROM Tabl as s
where s.opisanie like '*рег*']. AS t
GROUP BY t.nomertel
HAVING ((((select sum ( r.summazvonka) as wer
from Tabl as r where r.nomertel=t.nomertel))<>0))

я просто заливаю таблицу в аксес

Как заливаете? В существующую таблицу? Пустую?
Заливать можно запросом INSERT INTO, в нем добавить вычисляемое поле IIF(tabl.[opisanie]) Like '*(РЕГ)*', True, False), результат которого вносить в логическое поле таблицы. Ну или после импорта выполнить запрос UPDATE для этого поля.
А потом это поле использовать в условиях запроса.

Поэксперементировал
на 2 700 000 записях

тот запрос что я вам выше написал
отрабатывает у меня за 44 сек

запрос с которого начался топик - за 33 сек

запрос с дополнительным столбцом в таблице - за 19 сек

(основное время тратится на группировку почему-то)

нет не индексированно. попробовал проиндексировать (с повторениями) но не особо быстро получилось.

--создайте пустую бд c:\pusto.mdb
--

filecopy c:\pusto.mdb c:\mrab1.mdb             s1="select ......into rab1 in 'c:\mrab1.mdb'" docmd.runsql s1

отчеты делать со связанной таблицы rab1
скорость выше, т.к. рабочая мдб --пустая

Мне казалось, что выше есть ответы на эти вопросы.
я создаю файл mdb, туда импортирую данные в обычную таблицу. (просто импорт файла)
далее из клиента просто обращаюсь к этому файлу, и выбираю те данные, котрые мне нужны.

>пока заполняю таблицу 2мя миллионаме
------------------------
--заполнить мдб терпения не хватило
--создала текстовик
--прилинковала
--базовый запрос --21 секунда

SELECT [1256].tel, Sum([1256].am) AS [Sum-am], First([1256].note1) AS [First-note1] FROM 1256 WHERE note1 like '*reg*' and am>0 GROUP BY [1256].tel;

похоже;причина замедления --размер мдб
--у меня он 700кб
--у вас видимо 700мб

запросы плохо работают при раздувании мдб

''полной очистки от лишнего не делала, так немного Function task_Tabl3kp(Optional cRec& = 1, _                      Optional dmode As Boolean = True) Dim rs As DAO.Recordset Dim i&, j&, ii&, s&, sr&, tel$, am@, note$, s1, j2 'On Error GoTo err123 If cRec < 1 Then cRec = 1 If dmode = False Then CurrentDb.Execute "delete * from Tabl", dbFailOnError SysCmd acSysCmdSetStatus, "заполнено: " & 0 & " из " & cRec Open "c:\rab\1256.txt" For Output As #1 Print #1, "tel;am;note1" j2 = 0 For i = 1 To cRec     tel = "(" & Format(rnd99(), "000") & ")" & Format(rnd99(), "00") & "-" & Format(rnd999(), "000") & "-" & Format(rnd999(), "000")     am = rnd99() / 100     note = ""     ii = CInt(Math.Round((30) * Rnd())) + 1     For j = 0 To ii         s1 = Chr(CInt(Math.Round((ii) * Rnd())) + 40)                  note = note & s1               Next j     'If InStr(note, "44") > 0 Then     If note Like "*4*4*" Then         note = note & "(reg) "         j2 = j2 + 1         If note > "999" Then         Debug.Print "="; i; j2;         End If         End If         If dmode = True Then         'Debug.Print "tel=" & tel, "am=" & am, "note=" & note         Print #1, tel, ";"; am; ";"; note     Else         CurrentDb.Execute "insert into Tabl(nomertel,summazvonka,opisanie) " & _                           "values('" & tel & "'," & am & ",'" & note & "')"                           ', dbFailOnError     End If '    Debug.Print acSysCmdSetStatus, "заполнено: " & i & " из " & cRec: DoEvents     ' SysCmd Next i Close #1 Exit Function err123: MsgBox Error, , "task_Tabl3k" SysCmd acSysCmdClearStatus Exit Function End Function

в таблицу добавьте поле status
в котором будет 1 или 0 в зависимости от like "*рег*"

по этому полю сделайте индекс

на 2 000 000 записях у меня суммирование с группировкой по номеру телефона заняло порядка 40 секунд

значит надо поработать над алгоритмом(запросом) который бы быстро выставлял статус :)

например заливать(подготавливать) таблицу ночью :)
чтобы конечный пользователь мог работать с готовыми данными, не требующими дополнительной обработки
если это возможно, конечно

так и есть.
один момент только хочу уточнить .
я не большой асс в программировании. поэтому по поводу линковки хотел бы уточнить.
я открываю таблицу следующим образом

Set db = DBEngine.Workspaces(0).OpenDatabase("путь к моей таблице в виде \\ser1\.....\....mdb")
Set RstKont = db.OpenRecordset("здесь мой запрос по группировке и суммированию")


может я не правильно делаю?

объем клиента 1,5Мб

у меня это все работает, вопрос не в этом. там ошибок не с раздилителями не с именами нет.
я просто подумал, может я не правильно понял и вы имели ввиду что-то другое под словом "линоквать"