Скорость работы запросов :)

madg
Дата: 25.05.2004 20:55:49
ВС ты(ВЫ?) сказали интересно.
По тверждению сайта:
http://www.granite.ab.ca/access/performanceforms.htm
в данном формате скорость работы приложения увеличивается многократно
(2-35 против 1-2)!
Можно развить тему, т.к. разделил интерфейс с таблицами, и скорость работы,
даже на сервере упала до мининмума.
Вот что получилось:
Private Sub Form_Load()
'F1 чтоб самому не запутаться в Ваших пояснениях!
F1="Select * FROM Reestr WHERE (((Reestr.ID_delo)='" & Forms![Titul]![ID_delo] & "'))"
Me.RecordSource = F1
For Each ctl In Me.Controls
    Select Case ctl.Properties("ControlType")
    Case acComboBox, acListBox
        ctl.RowSource = ctl.Tag
    Case acSubform
        ctl.Form.RecordSource = ctl.Form.Tag
    Case Else
        'do nothing
    End Select
    Next ctl

    Set ctl = Nothing
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Dim ctl As Control

    Me.RecordSource = ""

    For Each ctl In Me.Controls
        Select Case ctl.Properties("ControlType")
        Case acComboBox, acListBox
            ctl.RowSource = ""
        Case acSubform
            ctl.Form.RecordSource = ""
        Case Else
            'do nothing
        End Select
    Next ctl

    Set ctl = Nothing
End Sub

Скопировал с сайта дословно, данный код действительно позволяет увеличить
скорость работы по сети? или как? Хотя бы теоретически?

И самое главное: кроме F1=......... осознанного понимания кода нет.
Если там ошибочка, будьте любезны, подправьте!

Спасибо.
Ok.madg
Владимир Саныч
Дата: 25.05.2004 21:06:46
Сорри, что именно я говорил? О каком моем утверждении идет речь? Сегодня оказалось, что этих моих утверждений тут уже 10000...
madg
Дата: 25.05.2004 21:39:22
Поздравляю с 10000
Говорил:
Владимир Саныч 
Member 

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 10011 	
Интересно. Я этого не знал.

Насчет по-русски - есть Гетц, которого здесь очень почитают. Придут знатоки, расскажут.	
23 май 04, 16:02    [695180]

Я там понял, что надо сделать, но что это значить конечно не понял.
А тупо повторять без понимания как то неудобно, код что то делает
а что я не знаю. Обидно за себя.
Вся надежда на тебя.

PS
Подправьте начало топика, а то как то криво выглядит, некрасиво.
Плиз, конечно.
Владимир Саныч
Дата: 25.05.2004 21:43:20
автор
Интересно. Я этого не знал.

Да, это, конечно, достойная цитата. О чем речь-то шла?
(c)VIG
Дата: 25.05.2004 21:49:34
Саныч, а какая разница ? Годится на все случаи
Владимир Саныч
Дата: 25.05.2004 21:50:17
Тоже верно...
madg
Дата: 25.05.2004 21:55:18
Конкретно здесь
http://www.granite.ab.ca/access/performanceforms.htm
речь идет о :(перевод )
У меня есть форма, которая брала 85 секунд, чтобы сохранять. После 
применения техники ниже это уменьшило сохраняемое время к точному пара
секунд. Это также уменьшило мою уплотненную базу данных размера из 5Meg
до 4Meg после применения этой техники.

Это - конец: Загрузите форму, subform, combobox и listbox рекордные
источники во времени прогона. Это это. Вы достигнете драматического
улучшения исполнения и сокращенной базы данных размера.

Results Before After
Form Open Time 2-35sec 1-2sec
Form Save Time 85sec 1-2sec
FE Compacted Siz 5092Kb 4040Kb

Прошу извинения, это из переводчика, сам с англиским не в ладах.
Так вот, если это верно хоть на 50%, уже неплохо!
Только вот вопрос, конструкция

For Each ctl In Me.Controls

Тоже для чего то нужна?!

А для чего ни малейшего представления, а хотелось бы!
Владимир Саныч
Дата: 25.05.2004 21:58:59
Короче, ссылка на меня вроде отменяется? Ну и ладненько...
madg
Дата: 25.05.2004 22:02:55
А сколько было разговоров о скорости ................
Ну ладненько, так ладненько.
Владимир Саныч
Дата: 25.05.2004 22:05:15
Ну так где эти разговоры были-то? Я не буду сейчас перерывать весь форум.