VPF::Разный результат одинакого запроса

ALeXandrK

Дата 13.9.2007, 23:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Выполняю одниковый запрос, но разными компонентами.
И что удивительно, они возвращают разный результат.

I вариант, который работает верно (кол-во записей результата равно одной):

Код


function TTimeTable.GetEmptyAuditory(IdSubj, IdTime: Integer): Integer;
var
  Q:TADODataSet;
begin
  Q := TADODataSet.Create(nil);

  with Q do 
  begin
    Connection := mBases.ADOConnection;
    CommandType := cmdText;
    CommandText := SQLQuery;
    Parameters.ParseSQL(CommandText, true);  
    Parameters.ParamValues['IdSubj'] := IdSubj;
    Parameters.ParamValues['IdTime'] := IdTime;
    Open;

    if IsEmpty then
      raise Exception.Create(eNoEmptyAuditories) at @TTimeTable.GetEmptyAuditory
    else
      Result := FieldByName(fnIdAud).AsInteger;

    Free;
  end;
end;

II вариант, который работает неверно (кол-во записей результата равно нулю):

Код


function TTimeTable.GetEmptyAuditory(IdSubj, IdTime: Integer): Integer;
var
  Aud: TADOStoredProc;
begin
  Aud :=  TADOStoredProc.Create(nil);

  with Aud do
  begin
    Connection := mBases.ADOConnection;
    ProcedureName := ProcName;  // соответствующий запрос в Access
    Parameters.ParseSQL(':IdSubj :IdTime', true);
    Parameters.ParamValues['IdSubj;IdTime'] := VarArrayOf([IdSubj,IdTime]);
    Open;

    if IsEmpty then
      raise Exception.Create(eNoEmptyAuditories) at @TTimeTable.GetEmptyAuditory
    else
      Result := FieldByName(fnIdAud).AsInteger;

    Free;
  end;
end;

SQLQuery:

Код


SELECT АудиторииПредмета.инАудитории 
FROM АудиторииПредмета 
WHERE (АудиторииПредмета.инАудитории NOT IN (SELECT Расписание.инАудитории FROM Расписание WHERE Расписание.ИнВремени = :IdTime)) 
AND (АудиторииПредмета.ИнПредмета =:IdSubj) 
GROUP BY АудиторииПредмета.инАудитории;

Запрос в Access проверял - работает правильно.

Это сообщение отредактировал(а) ALeXandrK - 14.9.2007, 12:24

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

Богат не/ни тот, у кого много, а тот, кому хватает

SergeBS

Дата 14.9.2007, 07:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

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

ALeXandrK,
Во 2 запросе - ошибка описания параметров.

ALeXandrK

Дата 14.9.2007, 11:34 (ссылка)

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

Загрузка ...

Опытный

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

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

Вообщем попробовал я одну штуку на обум и она оказалась верной:

Код


Parameters.ParamValues['IdSubj;IdTime'] := VarArrayOf([IdTime, IdSubj]);

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

Это сообщение отредактировал(а) ALeXandrK - 14.9.2007, 12:28

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

Богат не/ни тот, у кого много, а тот, кому хватает

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