PHP DM Gate v0.9 » ODAC. Параметризованные запросы. <span class="vd">[D7]</span>

checkmate-maker (15.09.08 09:28) [0]

Здравствуйте. Помогите разобраться.
После выполнения следующего участка кода сообщение не выдается(запрос пустой - ничего не вернул, но и не ругался)

var
lOpenSQL: TOpenSQL;

...

lSQLString := 'Select sec_name from pr_sec where sec_id = :S_ID';
lOpenSQL := TOpenSQL.CreateWithParams(lSQLString);
try
lOpenSQL.DeclareVariable('S_ID', ftInteger);
lOpenSQL.SetVariable('S_ID', 0);
lOpenSQL.ReOpen;
if not lOpenSQL.IsDone then
ShowMessage(lOpenSQL.FieldAsString(0));
finally
lOpenSQL.Free;
end;

Уточню TOpenSQL класс с приватным FOraQuery: TOraQuery.
Метод CreateWithParams:

FOraQuery := TOraQuery.Create(nil);
FOraQuery.Connection := Form1.OraSession1;
FOraQuery.SQL.Text := SQL;

Метод DeclareVariable:

FOraQuery.Params.CreateParam(AType, AName, ptInput);

Метод SetVariable:

FOraQuery.ParamByName(AName).Value := AValue;

Метод ReOpen:

FOraQuery.Open;

Метод IsDone:

Result := FOraQuery.Eof;

Чтобы исключить лишние уточнения добавлю: запрос без параметров работает "на ура". ODAC 5.1.

Спасибо за помощь.

<Цитата>
Поросенок Винни-Пух © (15.09.08 09:58) [1]

Зачем этот изврат?

FOraQuery.Params.CreateParam(AType, AName, ptInput);

<Цитата>
Sergey13 © (15.09.08 10:01) [2]

> [0] checkmate-maker (15.09.08 09:28)
> запрос пустой - ничего не вернул, но и не ругался

Ну так наверное нет значений с S_ID=0.
А какой смысл во всех ухищрениях с подменой методов?

<Цитата>
Поросенок Винни-Пух © (15.09.08 10:05) [3]

передать из обертки текст sql, установить значение параметра. все.

<Цитата>
checkmate-maker (15.09.08 10:42) [4]

Всем спасибо за участие в решении вопроса.

Я разобрался сам. Необходимо было устанавливать
FOraQuery.ParamCheck := false;

Надеюся решение кому-нибудь пригодится. В инете подобного не нашел.

<Цитата>
Поросенок Винни-Пух © (15.09.08 10:43) [5]

Это в штатной доке описано черным по белому

<Цитата>
ANB (15.09.08 17:54) [6]

> checkmate-maker (15.09.08 09:28)

Делаем из одака доа ?

<Цитата>