Тип TfrADOQuery

Комментарии

• nomad

  June 2004 отредактировано 16:43

  увеличение adoconnection.commandtimeout мне не помогло, поэтому я правил adodb.pas :
  
  constructor TCustomADODataSet.Create(AOwner: TComponent);
  begin
  inherited Create(AOwner);
  FCommand := TADOCommand.Create(Self);
  FCommand.ComponentRef := Self;
  <span style='color:red'> FCommand.CommandTimeout:=600;</span> FIndexDefs := TIndexDefs.Create(Self);
  FModifiedFields := TList.Create;
  FIndexFields := TList.Create;
  FCursorType := ctKeyset;
  FLockType := ltOptimistic;
  FCursorLocation := clUseClient;
  FCacheSize := 1;
  CommandType := cmdText;
  NestedDataSetClass := TADODataSet;
  FMasterDataLink := TMasterDataLink.Create(Self);
  MasterDataLink.OnMasterChange := MasterChanged;
  MasterDataLink.OnMasterDisable := MasterDisabled;
  EnableBCD := True;
  end;
  
  
• Stenly Tvidl

  June 2004 отредактировано 16:43

  nomad написал:

  увеличение adoconnection.commandtimeout мне не помогло, поэтому я правил adodb.pas :
  
  constructor TCustomADODataSet.Create(AOwner: TComponent);
  begin
  inherited Create(AOwner);
  FCommand := TADOCommand.Create(Self);
  FCommand.ComponentRef := Self;
  <span style='color:red'> FCommand.CommandTimeout:=600;</span> FIndexDefs := TIndexDefs.Create(Self);
  FModifiedFields := TList.Create;
  FIndexFields := TList.Create;
  FCursorType := ctKeyset;
  FLockType := ltOptimistic;
  FCursorLocation := clUseClient;
  FCacheSize := 1;
  CommandType := cmdText;
  NestedDataSetClass := TADODataSet;
  FMasterDataLink := TMasterDataLink.Create(Self);
  MasterDataLink.OnMasterChange := MasterChanged;
  MasterDataLink.OnMasterDisable := MasterDisabled;
  EnableBCD := True;
  end;

  Спасибо, но это слишком круто!!!
  Проще способа нет?
• demav

  January 2006 отредактировано 16:43

  Похоже, в FR2.x такое не предусмотрено. Конечно, править исходники компонентов плохо. Но из двух зол я выбрал исправление исходников FR. Вот как:
  
  procedure TfrADODataSet.SetPropValue(Index: String; Value: Variant);
  var
  d : TADOConnection;
  begin
  inherited SetPropValue(Index, Value);
  Index := AnsiUpperCase(Index);
  if Index = 'NAME' then
  begin
  FDataSource.Name := 'S' + FDataSet.Name;
  FDBDataSet.Name := '_' + FDataSet.Name;
  end
  else if Index = 'ACTIVE' then
  FDataSet.Active := Value
  else if Index = 'DATABASE' then
  begin
  FDataSet.Close;
  d := frFindComponent(FDataSet.Owner, Value) as TADOConnection;
  FDataSet.Connection := d;
  <span style='color:red'>FDataSet.CommandTimeout:=FDataSet.Connection.CommandTimeout;</span>
  end
  else if Index = 'FILTER' then
  begin
  FDataSet.Filter := Value;
  FDataSet.Filtered := Trim(Value) <> '';
  end
  else if Index = 'ENABLEBCD' then
  FDataSet.EnableBCD := Value
  end;
  
• trion

  March 2010 отредактировано March 2010

  Проблема решена