![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
добрый день форумчане, сегодня встретил ошибку, ни как не могу с ней разобраться, да и природа ее возникновения абсолютно непонятна.
Delphi 2009, MSSQL 2005, MDAC Код:
function TMethodCardForm.MyFormShow(const aComparator_id:Integer;
const aMeasureMethodId: Integer; const aIsCert:boolean;
const aVWMethods:TMSQuery; const aAddMethod:TMSQuery): TModalResult;
begin
if aMeasureMethodId = 0 then FFormType:=ftInsert
else FFormType:=ftEdit;
FqryAddMethod:=aAddMethod;
FVWMethods:=aVWMethods;
FComparator_id:=aComparator_id;
with qryMethod do
begin
if active then close;
ParamByName('measure_method_id').AsInteger:=aMeasureMethodId;
Open; //ошибка DataSet not in Edit or Insert Mode
end;
if FFormType = ftInsert then
begin
SetEditMode(false);
qryMethod.Insert;
qryMethod.FieldByName('is_certificated').AsBoolean:=aIsCert;
qryMethod.FieldByName('is_active').AsBoolean:=true;
end
else
begin
SetEditMode(true);
qryMethod.Edit;
end;
Result:=ShowModal;
end;Похожих конструкций в приложении много, но именно эта почему то не работает, если вызывать со свойством Edit все гууд, но если с Insert то все печально.., какое-то время все работало, вроде не трогал эту часть кода, сейчас не хочет, не пойму., да и ошибка не свойствена методу open как мне кажется.. Буду благодарен за любую помощь! |
|
#2
|
||||
|
||||
|
Обычно такое происходит на исполняемом запросе. Вы не спутали там чего? Может вы как-раз исполняемый пытаетесь открыть?
|
|
#3
|
|||
|
|||
|
Да вроде все верно, вот сам запрос:
Код:
select full_name, short_name, comment, measure_sheme_id, count_cycle, count_measures, count_series, temp_max, temp_min, hum_max, hum_min, temp_variation, is_active, is_certificated from measure_methods where measure_method_id = :measure_method_id До меотда Open, датасет однозначно закрыт, но при открытии выдает эту ошибку.. |
|
#4
|
||||
|
||||
|
Единственное, что приходит в голову это временно отказаться от блоков with и проследить, что куда идет.
|
|
#5
|
|||
|
|||
|
Тема исчерпана, ошибка найдена..
|
|
#6
|
||||
|
||||
|
В чем проблема оказалась?
|