Добрый день.
Уважаемые знатоки, прошу вашей помощи.
Сейчас для получения данных из БД использую следующий код:
Мои предположения такие:
1. поставить клиента и в фоновом режиме синхронить постоянно.
2. оптимизировать код.
Можете подсказать варианты решения задач?
Уважаемые знатоки, прошу вашей помощи.
Сейчас для получения данных из БД использую следующий код:
Код |
---|
While Not rs.EOF For iCols = 0 To rs.Fields.Count - 1 Sheets("Table").Cells(iRows, iCols + 1).Value = rs.Fields(iCols).Value Next rs.MoveNext iRows = iRows + 1 Wend |
Время загрузки при этом 3-4 мин.
Как можно ускорить процесс?Мои предположения такие:
1. поставить клиента и в фоновом режиме синхронить постоянно.
2. оптимизировать код.
Можете подсказать варианты решения задач?