Доступ к BDEQuery.params из кода

intaari · July 2005

Добрый день!!!

Подскажите пожалуйста как произвести передачу значения в параметр запроса, если запрос расположен на DialogPage в frxReport. Я пытаюсь сделать следующим образом:

procedure TForm2.Button1Click(Sender: TObject);
var
   parNPacient: TfrxBDEQuery;
begin
    parNPacient:=frxReport1.findObject('BDEQuery') as TfrxBDEQuery;
    parNPacient.ParamByName('NPatient').asinteger:=form1.Query1.FieldByName('NPatient').AsInteger;
    frxReport1.ShowReport;
end;

При компиляции генерится ошибка:
[Error] Unit2.pas(240): Undeclared identifier: 'asinteger'.

AlexTZ · July 2005

Нет такого св-ва AsInteger, есть только Value.

intaari · July 2005

procedure TForm2.Button1Click(Sender: TObject);
var
  parNPacient: TfrxBDEQuery;
begin
   parNPacient:=frxReport1.findObject('BDEQuery') as TfrxBDEQuery;
   parNPacient.ParamByName('NPatient').[B]Value[/B]:=form1.Query1.FieldByName('NPatient').AsInteger;
   frxReport1.ShowReport;
end;

В этом случае генерится исключение? Что то всетаки нетак.

AlexTZ · July 2005

Скорее всего, надо устанавливать еще и тип параметра.

Доступ к BDEQuery.params из кода

Комментарии

Оставить комментарий