delphi - 如何以原生方式读写 dbf？

Question

在Delphi for Win32中，如何在没有BDE的情况下以 native 方式读写dbf文件？我知道网络上有一些可用的组件，但我从未使用过其中任何一个，所以我不知道该选择哪个(如果有的话)。

Answer 1

您可以使用 ADO 访问 DBF 文件

请参阅示例代码(使用 TAdoConnection 和 TAdoDataSet 组件)。

var
dbf_folder : string;
begin
  dbf_folder:='c:\bdd';//set your dbf folder location here 
  ADOConnection1.LoginPrompt:=false;
  ADOConnection1.ConnectionString:=Format('Provider=Microsoft.JET.OLEDB.4.0;Data Source=%s;Extended Properties=dBase IV;',[dbf_folder]);
  try
  ADOConnection1.Connected:=True;
  ADODataSet1.CommandText:='Select * from file.dbf'; //make your SQL query using the name of the dbf file
  ADODataSet1.Open;
   while not ADODataSet1.eof do
   begin
   //do your stuff here
   //ADODataSet1.FieldByName('').AsString
   ADODataSet1.Next;
   end;
  except
    on E : Exception do
      ShowMessage(E.Message);
  end;
end;