Database

Hej.

Jeg har lavet en meget simple applikation til at åbne en database fil (*.dbf)

unit DataBaseSQL;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls;

type
TForm1 = class(TForm)
Query1: TQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
FileName, Path : string;

begin
if OpenDialog1.Execute then
begin
Filename := OpenDialog1.FileName;
path := ExtractFilePath(FileName);
Query1.DatabaseName := path;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM "'+ FileName + '"');
Query1.Active := true;
end;
end;

end.

Hvis jeg køre den på den computer som jeg har Delphi på virker den uden problem, men jeg får følgende fejl "An error occurred while attempting to initialize the Borland Database Engine (error $2109)" hvis jeg bruger applikationen på en computer uden delphi.