EOleSysError

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 402,375 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,083 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser: Programming Forums

Thread Tools Display Modes

Views: 2298 | Replies: 1

•

Join Date: Apr 2007

Posts: 1

Reputation: oglop44 is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

oglop44

Offline

Newbie Poster

EOleSysError

Apr 24th, 2007

I've written this program which at the mo only has two buttons. One to exit the program and the other to open a report from an external Microsoft Access database file. I'm getting this error message:

Debugger Exception Notification - Project Project1.exe raised exception class EOleSysError with message "Operation Unavailable". Process Stopped. Use Step or Run to continue.

Here's the code:

Help with Code Tags

(Toggle Plain Text)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  ComObj;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
Access: Variant;
 const
    acViewNormal = $00000000;
    acViewDesign = $00000001;
    acViewPreview = $00000002;
begin
  try
    Access := GetActiveOleObject('Microsoft Access.Application');
  except
    Access := CreateOleObject('Access.Application');
  end;
  Access.Visible := True;
  Access.OpenCurrentDatabase('P:\ICT\Write\Computing\CPT L6\NEW CPT3\XmnrTable.mdb', True);
  Access.DoCmd.OpenReport ('Report 1', acViewPreview, EmptyParam, EmptyParam);
  Access.CloseCurrentDatabase;
  Access.Quit(1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.terminate;
end;
end.

Any help would be much appreciated