МояПроцедура

[wallstreet]

Всем Здравствуйте!

Начну с того что есть у меня база, в которую льются данные по ODBC из внешней программы.
Моя процедура вытаскивает определенные данные из базы, калькулирует их, и выводит в соотв-ие текстбоксы формы. Происходит это с помощью рекордсета вот так:

Public Sub Кнопка40_Click()
Dim db As dao.Database
Dim rs As dao.Recordset
Dim sSQL As String
Dim Last As Long 

Set db = dao.OpenDatabase("Путь к файлу\g.mdb")
sSQL = "SELECT цена FROM AllDeals;"

With rs
   .MoveLast 'Перемещаемся к последней записи
      Last = .Fields(0) ' Переменная с последней сделкой
      Textbox1.value = Last.value
End With
End Sub

Мне нужно что бы процедура запускалась и принтила значение последней записи таблицы AllDeals не по нажатии кнопки, а постоянно или при появлении новых записей (типа в Excel WorksheetChange), или же таймером через определенный интервал времени, что наверное будет более разумно в силу следущего обстоятельства, моя процедура тормозит НЕРЕАЛЬНО !! Для примера происходит так, кликаю на кнопку40, акцес подвисает секунд на 10 и спустя эти 10 сек, выдает необходимые значения. Оговорюсь что в моей базе, за день больше 200 тыс. записей. А в процедуре есть, так же, запросы со стасистическими функциями, что еще сильнее тормозит процесс.

Итак сформулирую вопросы:
1) Каким методом зациклить процесс постоянного вывода данных из базы?
2) Как ускорить выполнение процедуры?

[Teslenko_EA]

Здравствуйте wallstreet.
1. ответ однозначный - таймер.
2. этот вопрос однозначного ответа не "достоин":
а) отказаться от применения DAO и создавать подключение с помощью ADO
б) отказаться от перебора записей
в) если не требуется специфических возможностей MS Access выполнять задачу в Excel
примерно так в общих чертах я вижу решение задачи.
Евгений.

[Abrakadabra]

Если сначала создать запрос, результатом которого будет последняя запись, а потом открыть рекордсет, ИМХО будет быстро

[wallstreet]

спасибо за ответы.

Если подскажете как это сделать с помощью ADO буду примного благодарен.

[Teslenko_EA]

Здравствуйте wallstreet.
возможно пример будет лучше чем "подсказка"
Удачи Вам.
Евгений.

[wallstreet]

Супер.. Большое спасибо..

[wallstreet]

Еще раз здравствуйте!

Итак работает все как было задумано, однако заторможенность осталась примерно 3-4 сек (против прежних прим. 12-17 сек), что замечу уже огромное достижение!!!!!!!!
Только вот смущает один момент.. Под каждый запрос, пишу отдельную функцию (connDB1, connDB2, connDB3 ....), а соответственно создаю отдельный коннект с базой делаю выборку и закрываю. А не будет-ли более продуктивно, с точки зрения скорости выполнения задачи, создать один коннект и под него сделать сразу все запросы и насколько?

[Teslenko_EA]

Здравствуйте wallstreet.
В Ваших словах ".. не будет-ли более продуктивно..создать один коннект.." безусловно есть логика. По аналогии с понтонным мостом, строить и разбирать для каждой переправы гораздо затратнее и по времени конечно тоже, чем строительство одного моста для всех желающих переправиться через реку. Если источник один и тот же создавайте и открывайте единственное подключение, и только после выполнения всех запросов можете его закрыть.
"Можете" в случае если для канала связи (при сетевом подключении) данное подключение будет чрезмерной нагрузкой, для БД заданная в строке подключения блокировка, вполне "безобидна", ничего страшного не произойдет если подключение будет закрыто по завершению работы приложения, а не будет создаваться, открываться для получения каждой порции данных и сразу закрываться, как это происходит при работе с WEB сервером.
Евгений.