Блог

У меня есть мастер и деталь TAdoQuery , называемые FMaster and FDetail . Они подключены через источник FMasterSource данных . Подробный запрос имеет параметр, который автоматически заполняется и обновляется в зависимости от основного запроса.

Теперь проблема в том, что после выполнения FDetail.Locate (или фактически FDetail.Recordset.Clone ) FMaster.Next генерируется исключение при попытке FDetail выполнить запрос с новым параметром:

   try
    FMaster.Open;
    FDetail.Open;
    FDetail.Locate('Id', 2, []);
    FMaster.Next; {<== throws Exception with ADO Errorcode 0x80040e05}
  finally
    FDetail.Close;
    FMaster.Close;
  end;
 

Согласно этому списку, Errorcode 0x80040e05 означает «Объект уже открыт».

• Проблема, по-видимому, заключается в том, что FDetail.Locate создается клон базового набора записей Ado для последующего использования и сохраняется. Поэтому мы можем заменить Locate на recordsetClone := FDetail.Recordset.Clone(adLockReadOnly); (which uses Winapi.ADOInt ) и получить ту же ошибку.
• Внутри FMaster.Next исключение генерируется при попытке FDetail запроса после установки нового параметра для MasterID. Это происходит в TCustomADODataSet.RefreshParams .
• Когда вы отключаете деталь от Master, все работает просто отлично. Установка параметра FDetail вручную работает просто отлично.

Что я пропустил? Это ошибка в VCL? Или это еще одна странная ошибка ADO?

Исходный код

Я использую Oracle 11g XE и Delphi 10.4 Sydney.

Таблицы Oracle:

 drop table Detail;
drop table Master;

create table Master (
  Id NUMBER(2) not null, 
  constraint MasterPK primary key (Id)
);
create table Detail (
  Id       NUMBER(2) not null, 
  MasterId NUMBER(2), 
  constraint DetailPK primary key (Id),
  constraint DetailFK foreign key (MasterId) references Master(Id)
);
insert into Master values (1);
insert into Master values (2);
insert into Detail values (1,1);
insert into Detail values (2,1);
insert into Detail values (3,2);
 

Код Delphi:

 procedure TForm1.Button1Click(Sender: TObject);
begin
  //Initializing...
  FConnection.Provider := 'OraOLEDB.Oracle.1';
  FConnection.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Password=xxxx;Persist Security Info=True;User ID=TEST;Data Source=XE';
  FConnection.LoginPrompt := False;
  FConnection.KeepConnection := False;

  FMaster.Connection := FConnection;
  FMaster.SQL.Text := 'select Id from Master';
  FMaster.CursorLocation := clUseServer;
  FMaster.CursorType := ctStatic;

  FMasterSource.DataSet := FMaster;

  FDetail.Connection := FConnection;
  FDetail.DataSource := FMasterSource;
  FDetail.SQL.Add('select Id, MasterId from Detail where MasterId = :Id');
  FDetail.Parameters[0].DataType := ftInteger;
  FDetail.CursorLocation := clUseServer;

  //Do stuff
  try
    FMaster.Open;
    FDetail.Open;
    //FDetail.Locate('Id', 2, []);
    recordsetClone := FDetail.Recordset.Clone(adLockReadOnly);
    FMaster.Next; {<== throws Exception with ADO Errorcode 0x80040e05}
  finally
    FDetail.Close;
    FMaster.Close;
  end;
end;