Fast Report Tfrxadodatabase

Комментарии

• Lizard~ Тольятти

  November 2009 отредактировано 16:53

  UnionStream написал: »

  Все добрый день!
  Вот такая проблема!
  Подскажите как подключиться к другой базе данных используя объект TfrxADODatabase
  Если у кого нибудь есть примеры по использованию данного объекта, буду очень признательным!

  
  Справка Delphi TADODatabase. TfrxADODatabase это только обёртка.
  
• UnionStream

  November 2009 отредактировано 16:53

  LizarD написал: »

  Справка Delphi TADODatabase. TfrxADODatabase это только обёртка.

  
  Все спасибо!
  Разобрался!
• AlexCoRu

  November 2009 отредактировано 16:53

  var
  ADODatabase: TfrxADODatabase;
  begin
  frxReport.LoadFromFile(frFileName);
  ADODatabase := frxReport.FindObject('ADODatabase') as TfrxADODatabase;
  
  if ADODatabase = nil then Exit;
  
  with ADODatabase.Database do begin
  ConnectionString := 'FILEDSN=' + dsnFileName;
  KeepConnection := True;
  LoginPrompt := False;
  Mode := cmRead;
  Provider := 'MSDASQL';
  end;
  if frxReport.PrepareReport then frxReport.ShowPreparedReport;
  end;