Buscar por:

como abrir um relatório criado no ms access pelo delphi

Código

 procedure TForm1.ImprimeClick(Sender: TObject);

  var access : variant;

  const

    print = $00000000;

    viewDesign = $00000001;

    preview = $00000002; 

  begin

  // Abre a aplicaçao Access

  try

    Access := GetActiveOleObject('Access.Application');

  except

   Access := CreateOleObject('Access.Application');

  end; 

  Access.Visible := true; 

  // Abre o database

  // Informe no primeiro parâmetro o local do arquivo.mdb

  // No Segundo parâmetro especificar se o banco de dados do Access abrirá no modo exclusivo, não compartilhado. 

  Access.OpenCurrentDatabase('C:Mes documentostestearquivo.mdb', True); 

  {

  Abre o relatório criado no Access; informar seu nome no primeiro parâmetro.

  O valor do segundo parâmetro deve ser: preview, viewDesign(estrutura) ou print(o qual é default e imprime o relatório imediatamente).

  O *terceiro parâmetro, é para uma expressão de sequência que seja o nome válido de uma consulta no banco de dados atual.

  O *quarto parâmetro é para cláusula WHERE SQL válida, sem a palavra WHERE.

  *não foi usado neste exemplo 

  } 

  Access.DoCmd.OpenReport('Relatorio_de_Clientes', preview,

  EmptyParam, EmptyParam); 

  end;

  procedure TForm1.FecharAccessClick(Sender: TObject);

  var access : variant;

  begin 

    // depois de imprimir, use esse código para fechar:

   try

    Access := GetActiveOleObject('Access.Application');

   except

      Access := CreateOleObject('Access.Application');

   end; 

    Access.CloseCurrentDatabase;

    Access.Quit;

  end;