VPF::Имя таблицы входящим параметром

Alkor135

Дата 29.5.2009, 23:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Akella @ 29.5.2009, 21:46)

Цитата(Alkor135 @ 29.5.2009, 12:42

)

А может это ограничения персональной версии.

Первый раз слышу про персональную версию.
Скачай полную
http://forum.vingrad.ru/index.php?showtopi...t&p=1866918

Да вроде у меня официальная версия.

А вот эти функции не работают:

Говорит:

А если другую версию качать по ссылке, то файл называется setup_trial.exe ?

Akella

Дата 30.5.2009, 00:20 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(Alkor135 @ 29.5.2009, 23:56

)

А если другую версию качать по ссылке, то файл называется setup_trial.exe ?

Да.

Alkor135

Дата 30.5.2009, 13:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Akella @ 30.5.2009, 00:20)

Цитата(Alkor135 @ 29.5.2009, 23:56

)

А если другую версию качать по ссылке, то файл называется setup_trial.exe ?

Да.

Ой спасибо, Akella!

Теперь у меня время выполнения показывает.
Сравнил я скорости выполнения запросов с min и без него.
Я оказался прав. Без использования min запрос обрабатывается быстрее.

Без min:

C использованием min:

Вот код процедуры без использования min:

Код


egin
/******************************************************************************/
/*                 Расчет AUDCAD для таблицы ранжирования                     */
/******************************************************************************/
  p_pair = 'AUDCAD';

  /* Если даты не существует, то берем следующую дату (в цикле) */
  while (NOT exists (SELECT da FROM audcad WHERE da = :p_input_date_min))  do
    p_input_date_min = p_input_date_min + 1;
  /* Если время нужной даты не существует, то берем следующее время (в цикле) */
  p_ti_min = '00:00';
  while (NOT exists (SELECT ti FROM audcad WHERE (da = :p_input_date_min) and ti = :p_ti_min))  do
    p_ti_min = p_ti_min + 1;

  /* Если даты не существует, то берем предыдущую дату (в цикле) */
  while (NOT exists (SELECT da FROM audcad WHERE da = :p_input_date_max))  do
    p_input_date_max = p_input_date_max - 1;
  /* Если время нужной даты не существует, то берем предыдущее время (в цикле) */
  p_ti_max = '23:59';
  while (NOT exists (SELECT ti FROM audcad WHERE (da = :p_input_date_max) and ti = :p_ti_max))  do
    p_ti_max = p_ti_max - 1;

  SELECT da, ti, op
  FROM audcad
  WHERE (da = :p_input_date_min and ti = :p_ti_min)
  INTO p_da_min, p_ti_min, p_op;

  SELECT da, ti, cl
  FROM audcad
  WHERE (da = :p_input_date_max and ti = :p_ti_max)
  INTO p_da_max, p_ti_max, p_cl;

  /* Разница в пунктах */
  p_point = (p_op - p_cl)* 100000;

  /* Разница в пунктах по модулю */
  if (p_point<0) THEN
    p_point_mod = p_point*(-1);
    else p_point_mod = p_point;

  suspend;
end

Вот код процедуры с использованием min:

Код


begin
/******************************************************************************/
/*                 Расчет AUDCAD для таблицы ранжирования                     */
/******************************************************************************/
  p_pair = 'AUDCAD';

  /* Если даты не существует, то берем следующую дату (в цикле) */
  SELECT min(da) FROM audcad WHERE da >= :p_input_date_min into :p_input_date_min;
  /* Если время нужной даты не существует, то берем следующее время (в цикле) */
  p_ti_min = '00:00';
  while (NOT exists (SELECT ti FROM audcad WHERE (da = :p_input_date_min) and ti = :p_ti_min))  do
    p_ti_min = p_ti_min + 1;

  /* Если даты не существует, то берем предыдущую дату (в цикле) */
  while (NOT exists (SELECT da FROM audcad WHERE da = :p_input_date_max))  do
    p_input_date_max = p_input_date_max - 1;
  /* Если время нужной даты не существует, то берем предыдущее время (в цикле) */
  p_ti_max = '23:59';
  while (NOT exists (SELECT ti FROM audcad WHERE (da = :p_input_date_max) and ti = :p_ti_max))  do
    p_ti_max = p_ti_max - 1;

  SELECT da, ti, op
  FROM audcad
  WHERE (da = :p_input_date_min and ti = :p_ti_min)
  INTO p_da_min, p_ti_min, p_op;

  SELECT da, ti, cl
  FROM audcad
  WHERE (da = :p_input_date_max and ti = :p_ti_max)
  INTO p_da_max, p_ti_max, p_cl;

  /* Разница в пунктах */
  p_point = (p_op - p_cl)* 100000;

  /* Разница в пунктах по модулю */
  if (p_point<0) THEN
    p_point_mod = p_point*(-1);
    else p_point_mod = p_point;

  suspend;
end

Может конечно, я что-то сделал необъективно. Предлагаайте проведу еще тест, чтобы выяснить действительно ли использование min и max увеличивает время исполнения запроса.

Deniz

Дата 1.6.2009, 06:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

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

Alkor135попробуй во 2 процедуре все перевести на min/max

Код

begin
/******************************************************************************/
/*                 Расчет AUDCAD для таблицы ранжирования                     */
/******************************************************************************/
  p_pair = 'AUDCAD';
  /* Если даты не существует, то берем следующую дату (в цикле) */
  SELECT min(da) FROM audcad WHERE da >= :p_input_date_min into :p_input_date_min;
  /* Если время нужной даты не существует, то берем следующее время (в цикле) */
  p_ti_min = '00:00';
  SELECT min(ti) FROM audcad WHERE da = :p_input_date_min into :p_ti_min;

  /* Если даты не существует, то берем предыдущую дату (в цикле) */
  SELECT max(da) FROM audcad WHERE da <= :p_input_date_max into :p_input_date_max;
  /* Если время нужной даты не существует, то берем предыдущее время (в цикле) */
  p_ti_max = '23:59';
  SELECT max(ti) FROM audcad WHERE da = :p_input_date_max into :p_ti_max;

  SELECT da, ti, op
  FROM audcad
  WHERE (da = :p_input_date_min and ti = :p_ti_min)
  INTO p_da_min, p_ti_min, p_op;
  SELECT da, ti, cl
  FROM audcad
  WHERE (da = :p_input_date_max and ti = :p_ti_max)
  INTO p_da_max, p_ti_max, p_cl;
  /* Разница в пунктах */
  p_point = (p_op - p_cl)* 100000;
  /* Разница в пунктах по модулю */
  if (p_point<0) THEN
    p_point_mod = p_point*(-1);
    else p_point_mod = p_point;
  suspend;
end

запусти обе процедуры по несколько раз.
И покажи какие индексы есть на таблицу audcad.

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

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

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