VPF::TADOQuery скорость перемещения курсора

namervasek

Дата 1.6.2012, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.12.2007

Репутация: нет
Всего: нет

всем здрасте!
есть код

Код


    MainQuery.Close;
    MainQuery.SQL.Clear;
    ConstructQueryStr(MainQuery.SQL);
    
    {$IfNDef Release}
    J := GetTickCount;
    {$EndIf}

    MainQuery.Open;

    while not FSelelectComplete do
    begin
      Application.ProcessMessages;
    end;

    {$IfNDef Release}
    ShowMessage('Запрос выполнен = ' +  IntToStr(GetTickCount - J));
    J := GetTickCount;
    I := 0;
    {$EndIf}

    MainQuery.First;
    MainListView.Items.BeginUpdate;
    while not MainQuery.Eof  do
    begin

      {$IfNDef Release}
      Inc(I);
      {$EndIf}

      MainQuery.Next;
    end;

    {$IfNDef Release}
    ShowMessage('Запрос пройден за = ' +  IntToStr(GetTickCount - J));
    ShowMessage('Кол-во полученых записей = ' + IntToStr(I));
    {$EndIf}

Делается асихроный запрос в базу результат запроса примерно 500000 строк.
Первая месага показывает время около 17000(вполне приемлемое).
Вторая месага показывает цифру около 1760000(это где то минут 20 вышло).
Вопрос такой: можно как то ускорить перемещение курсора?

Данкинг

Дата 1.6.2012, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А смысл? Может, возможно решить задачу как-то иначе?

--------------------

There's nothing left but silent epitaphs.

namervasek

Дата 1.6.2012, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.12.2007

Репутация: нет
Всего: нет

Смысл сего творения в заполнении ListView инфой. заполняется List соотвествено в цикле.

Данкинг

Дата 1.6.2012, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А, ну тогда вариант - сделать обычный грид вместо листвью.

--------------------

There's nothing left but silent epitaphs.

namervasek

Дата 1.6.2012, 16:31 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.12.2007

Репутация: нет
Всего: нет

DBGrid?
Если да то скажу почему выбор пал на View.
После формирование View необходимо что бы можно было
1) результат сортировать по любой колонке,
2) сортировка должна быть быстрой(запрос к базе с order by ни приемлем с таким количеством строк)
3) мюльтиселект строк
4) разукрашивать строки таблиц как захочется(причем разукрашивать надо так что бы если строка выделена то разукрашивать не надо)
Самые выжные первые дав пункта.
Вторые два в DBGrid реализовать конечно можно, но четвертый пункт делается прямо сказать как то через ж... (особено закраска строк)

Пробовал TMS-ий грид но проблемы там такие же как и обычного

Это сообщение отредактировал(а) namervasek - 1.6.2012, 16:33

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »