Я, конечно, понимаю, что телепатов среди вас нет, но может кто-нибудь сможет помочь.
Суть проблемы:
Имеется процедура, которая обращается к базе данных Paradox через BDE. Она делает выборку, затем считывает результат в динамический массив.

Действия с БД, которые производит данная процедура:
-выборка данных (Select) из небольших таблиц (~500 записей);
-создание временных таблиц через API (DBIMakePermanent), так как Paradox не поддерживает представления.

Из динамических типов данных используется только динамические массивы.

При последующих обращениях к ней происходит постоянное увеличение времени выполнения (хотя эта процедура выполняет одни и те же действия).

Я пытался изменить настройки BDE (может кто-нибудь посоветовать оптимальные настройки), но только хуже стало, может, не хватает кэш-памяти.
В принципе могу привести код участка процедуры, но не думаю, что это поможет

Цитата(fess @ 15.4.2005, 18:57)

создание временных таблиц через API (DBIMakePermanent), так как Paradox не поддерживает представления

УГУ! А где ж твои временные таблицы. на диск сохраняются?

Цитата(fess @ 15.4.2005, 18:57)

В принципе могу привести код участка процедуры, но не думаю, что это поможет

Желательно.

Цитата

УГУ! А где ж твои временные таблицы. на диск сохраняются?

Они сохраняются в папке с самой базой данных.

Участок кода (из него вырезана, по моему мнению, ненужная часть):

Код

procedure PrepareForOneYearBi_Sij(YearId,VariantsId, NumIndex, NumAgeOfVictim:integer);     const       {Шаблон запроса}       Template_S_B_SQL='select Sum(Weight)*Sij  As S_B, YearCod,FirstHalf,SecondHalf, DataYear, Age '+                     ' from %s F, "Sij" S'+    //"Sij" - временная таблица, которая создаётся в другой процедуре                     ' Where VariantsId=%d and '+                     ' YearId=%d and '+                     ' S.DataYear=F.DataYear '+                     ' %s ' +                     ' Group by YearCod,FirstHalf,SecondHalf, DataYear, Age ';     var //объявлене всяких переменных     begin       {Вычисление и заненсение в массив произведения Sij на Bi}       StomackModule.Query1.Close;       StomackModule.Query1.sql.Clear;       {Добаление запроса в TQuerry}       StomackModule.Query1.sql.Add(Format(Template_S_B_SQL, [BiomTableName, VariantId, YearId, 'and S.Age=F.' + Param]))       t := GetTickCount;//Замечаем время       StomackModule.Query1.Open;       MegaTik:= MegaTik+(GetTickCount - t);       // Накапливаем время выполнения в глобальную переменную, т.к. несколько раз вызывается процедура. Тут время выполнения и увеличивается       {заполнения динамического массива данными}       if Not(StomackModule.Query1.Fields[0].IsNull)       then begin         SetLength(ArrayOf_Sij_Bi,Length(ArrayOf_Sij_Bi)+NumAgeOfVictim );         while not (StomackModule.DataSource1.DataSet.Eof)         do begin           TempYear := StomackModule.DataSource1.DataSet.Fields[1].AsInteger;           TempData := StomackModule.DataSource1.DataSet.Fields[0].AsFloat;           FH:=StomackModule.DataSource1.DataSet.Fields[2].AsBoolean;           SH := StomackModule.DataSource1.DataSet.Fields[3].AsBoolean;           DY:=StomackModule.DataSource1.DataSet.Fields[4].AsBoolean;           TempAge:=StomackModule.DataSource1.DataSet.Fields[5].AsInteger;           if FH then ArrayOf_Sij_Bi[Length(ArrayOf_Sij_Bi) -NumAgeOfVictim -1 +TempAge][1][TempYear]:=TempData;           if DY then ArrayOf_Sij_Bi[Length(ArrayOf_Sij_Bi) -NumAgeOfVictim -1 +TempAge][0][TempYear]:=TempData;           if SH then ArrayOf_Sij_Bi[Length(ArrayOf_Sij_Bi) -NumAgeOfVictim -1 +TempAge][2][TempYear]:=TempData;           StomackModule.DataSource1.DataSet.Next;         end;       end;

Это сообщение отредактировал(а) fess - 15.4.2005, 20:24

Ну, раз ни у кого нет никаких предложений, попробую сформулировать вопрос по-другому.
Так как при перезапуске приложения скорость выполнения этой процедуры опять становится минимальной (т.е. при первом вызове скорость выполнения нормальная), то возникает вопрос:
Что происходит с БД при закрытии приложения и как выполнить эти действия во время работы приложения?

Цитата(fess @ 15.4.2005, 20:22)

SetLength(ArrayOf_Sij_Bi,Length(ArrayOf_Sij_Bi)+NumAgeOfVictim

По всей видимости здесь поблема.
Увеличивай длину сразу на количество записей.
Кстати, может ускорить, если перед всей операцией установить длину массива в ноль

Код

SetLength(ArrayOf_Sij_Bi,0); SetLength(ArrayOf_Sij_Bi,Length(ArrayOf_Sij_Bi)+NumAgeOfVictim

Цитата(bursa @ 25.4.2005, 14:10)

По всей видимости здесь поблема.

Это здесь совершенно не причём. Возможно, я не так объяснил или ты не так понял. Я засекаю только то время, котрое требуется на выполнения запроса (и оно увеличивается), т.е. я не смотрю, сколько времени тратится на создание динамического массива и на заполнеия его данными.

Кстати парадокс поддерживуает представления... Создай на диске файл с расширением sql и содержимым в ввиде SQL запроса. Теперь можешь к этому файлу обращаться как к таблице...

Цитата

Кстати парадокс поддерживуает представления... Создай на диске файл с расширением sql и содержимым в ввиде SQL запроса. Теперь можешь к этому файлу обращаться как к таблице...

Я эту фишку знаю, но, к сожалению, каждый разогда ты используешь этот SQL-запрос, он заново вычисляется . Таким образом, если я несколько раз использую этот SQL в запросах, время выполнения ещё больше увеличивается.

Цитата

// Накапливаем время выполнения в глобальную переменную, т.к. несколько раз вызывается процедура. Тут время выполнения и увеличивается

Если я правильно понял то ты вызываешь процедуру несколько раз в 1 программе.А по сему где твое закрытие?

Цитата

Если я правильно понял то ты вызываешь процедуру несколько раз в 1 программе.

Да, можно и так сказать. На самом деле эта процедура вызывается 5-10 раз из другой процедуры, которая несколько раз вызывается при нажатии на кнопку

Цитата

А по сему где твое закрытие?

Закрытие чего? Если запроса, то он закрывается непосредственно перед выполненем следующего запроса, т.к. я использую этот TQuery как временный в различных местах программы (чтобы каждый раз не создавать и уничтожать его динамически), так что он довольно часто открывается и закрывается.

Это сообщение отредактировал(а) fess - 2.5.2005, 18:53

Цитата

MegaTik:= MegaTik+(GetTickCount - t); // Накапливаем время выполнения в глобальную переменную, т.к. несколько раз вызывается процедура. Тут время выполнения и увеличивается

Так что же у вас увеличивается на самом деле - MegaTik или (GetTickCount - t) ?

Цитата(Guest @ 15.5.2005, 09:29)

Так что же у вас увеличивается на самом деле - MegaTik или (GetTickCount - t) ?

MegaTik. Так как процедура выполняется несколько раз, то в переменную MegaTik записывается суммарное время, которое требуется на многократное выполнение этого запроса в процедуре.

Ясно.
Тогда слtдующий вопрос:

Цитата

' from %s F, "Sij" S'+    //"Sij" - временная таблица, которая создаётся в другой процедуре

А попробуй выполнять этот запрос некоторое количество раз на одном и том же наборе данных.
Как будет вести себя - MegaTik ?

Попробывал не изменять таблицу Sij
Практически никаой разницы (т.е. всё равно, что изменяем, что не изменяем Sij)

Мда. Неонятно. Хотя я сам никогда не измерял время выполнения своих запросов
от раза к разу. Ну тогда...дурацкий вопрос на вский случай, а какого типа у ваше t и Megatick?
И еще. А если написать и проверить, скажем, такое?

listbox1.visible:=false;
for i:=1 to 1000 do
begin
StomackModule.Query1.Close;
StomackModule.Query1.sql.Clear;
{Добаление запроса в TQuerry}
StomackModule.Query1.sql.Add(Format(Template_S_B_SQL, [BiomTableName, VariantId, YearId, 'and S.Age=F.' + Param]))
t := GetTickCount;//Замечаем время
StomackModule.Query1.Open;
listbox1.items.add(inttostr(GetTickCount - t));
end;
listbox1.visible:=true;

Можно еще попробовать вместо Query1.Open - Query1.Active:=true;