Question

我们的旧程序使用dBase表和.MDX索引 - 其他系统也使用这些表，所以我们一直坚持使用它们。我们希望在我们的软件中用FireDAC替换BDE。 FireDAC似乎没有提供BDE方法DbiRegenIndex和DbiPackTable（分别重新生成索引和包表） - 有没有办法使用FireDAC执行这些功能？

Answer 1

下面的代码显示了如何使用MS dBase驱动程序索引dBase表。我＆＃39;已经使用Ado组件而不是FireDAC，因为它更容易设置所有他们在代码中的属性，所以你可以看到我在做什么。请注意，以及CREATE INDEX 该驱动程序还支持DROP INDEX。参见例如https://docs.microsoft.com/en-us/sql/odbc/microsoft/create-index-for-paradox （适用于Paradox，但也适用于dBase）

要为此项目设置自己，您需要设置一个名为DBFTest的ODBC系统DSN MS dBase驱动程序。

将此Ado示例转换为FireDAC应该很简单。

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    btnCreateTable: TButton;
    ADOQuery1: TADOQuery;
    btnOpenTable: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    btnDropTable: TButton;
    btnAddIndex: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAddIndexClick(Sender: TObject);
    procedure btnCreateTableClick(Sender: TObject);
    procedure btnDropTableClick(Sender: TObject);
    procedure btnOpenTableClick(Sender: TObject);
  public
    procedure CreatedBaseTable;
  end;

[...]

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdoConnection1.ConnectionString :=  'Provider=MSDASQL.1;Persist Security Info=False;Data Source=DBFTest';
end;

procedure TForm1.btnAddIndexClick(Sender: TObject);
var
  Sql : String;
begin
  if AdoQuery1.Active then
    AdoQuery1.Close;

  Sql := 'create index byID on dBaseTest (ID)';
  AdoConnection1.Execute(Sql);

  AdoQuery1.Open;
end;

procedure TForm1.btnCreateTableClick(Sender: TObject);
begin
  CreatedBaseTable;
end;

procedure TForm1.btnDropTableClick(Sender: TObject);
var
  Sql : String;
begin
  Sql := 'drop table dBaseTest';
  AdoConnection1.Execute(Sql);
end;

procedure TForm1.btnOpenTableClick(Sender: TObject);
begin
  AdoQuery1.SQL.Text := 'select * from dBaseTest';
  AdoQuery1.Open;
end;

procedure TForm1.CreatedBaseTable;
var
  Sql : String;
  i : Integer;
begin
  Screen.Cursor := crSqlWait;
  Update;
  try
    Sql := 'create table dBaseTest(ID int, AName char(20))';
    AdoConnection1.Execute(Sql);
    for i := 1 to 100 do begin
       Sql := Format('insert into dBaseTest(ID, AName) values(%d, ''%s'')', [i, 'Name' + IntToStr(i)]);
      AdoConnection1.Execute(Sql);
    end;
  finally
    Screen.Cursor := crDefault
  end;
end;

显然，要重生＆＃34;再生＆＃34;这样的索引，如果它们存在，你只需删除它们，处理任何异常，如果它们不存在，然后再创建它们。

我不知道dBase驱动程序是否支持＆＃34; pack table＆＃34;命令，但你可以自己使用INSERT INTO ... SELECT * FROM ...＆＃34;将活动行复制到临时表中，然后从工作表中删除所有行，然后将它们从临时表中复制回来。

BDE到FireDAC：打包表，重新生成索引

1 个答案: