SQL узкое место, как исправить

Question

Это связано с моей предыдущей теме: SQL Query takes about 10 - 20 minutes

Однако я вроде разобрался с проблемой. Проблема (как описано в предыдущем потоке) не вставка (в то время как его все еще медленно), проблема зацикливания через самих данных Рассмотрим следующий код:

Dim rs As DAO.Recordset 
Dim sngStart As Single, sngEnd As Single 
Dim sngElapsed As Single 



Set rs = CurrentDb().QueryDefs("select-all").OpenRecordset 
MsgBox "All records retreived" 

sngStart = Timer 
Do While Not rs.EOF 
    rs.MoveNext 
Loop 
sngEnd = Timer 
sngElapsed = Format(sngEnd - sngStart, "Fixed") ' Elapsed time. 

MsgBox ("The query took " & sngElapsed _ 
    & " seconds to run.") 

Как вы можете видеть, этот цикл делает НИЧЕГО. Вы ожидаете, что он закончится за считанные секунды, однако для запуска потребуется около 857 секунд (или 15 минут). Я не знаю, почему это так медленно. Может быть, лотоснитовы SQL-драйвера?

любые другие идеи? (Java на основе решения, любое другое решение)

Что моя цель: Чтобы получить все данные с удаленного сервера и вставить в локальную таблицу доступа

Answer 1

Этот document содержит информацию о настройке производительности в NotesSQL. Если вы еще этого не сделали, выберите свои данные из Notes Views вместо Notes Forms. Затем NotesSQL будет использовать индексы в представлениях для более быстрых запросов. Возможно, вам нужно создать представление в базе данных Notes, но преимущество в производительности сделает его полезным.

Answer 2

Моя рекомендация состоит в том, что вы создаете Pass-Through запрос, получат данные с удаленного сервера. Затем создайте запрос Make Table, который использует указанный выше запрос в качестве источника. Тогда ваша функция будет упрощена для вызова этого второго запроса.

Answer 3

Цикл не делает «ничего», он вызывает MoveNext, который потенциально делает LOT.