如何使用Delphi ADO组件创建D-Base IV表?

如何使用Delphi ADO组件创建D-Base IV表?,delphi,ado,create-table,dbase,Delphi,Ado,Create Table,Dbase,我正在为一个仪器开发软件,该仪器将批处理结果记录到文件夹中的单个DBase 4(*.dbf)磁盘文件中。为了准备添加新的日志分析功能(计划使用多个DBF文件),我将现有的simple BDE TTable和CreateTable分别更改为使用Delphi ADO组件重新打开并创建新的DBF文件 在此使用其他建议,我成功创建了一个测试应用程序,该应用程序使用以下核心代码,使用TAdoDataSet和TAdoConnection打开现有DBF文件: ADODataSet1.DisableContro

我正在为一个仪器开发软件,该仪器将批处理结果记录到文件夹中的单个DBase 4(*.dbf)磁盘文件中。为了准备添加新的日志分析功能(计划使用多个DBF文件),我将现有的simple BDE TTable和CreateTable分别更改为使用Delphi ADO组件重新打开并创建新的DBF文件

在此使用其他建议,我成功创建了一个测试应用程序,该应用程序使用以下核心代码,使用TAdoDataSet和TAdoConnection打开现有DBF文件:

ADODataSet1.DisableControls;
try
  S := ExtractFileDir( ParamStr(0) ); //set the dbf folder location here
  ADOConnection1.LoginPrompt:=false;
  ADOConnection1.ConnectionString:=Format('Provider=Microsoft.JET.OLEDB.4.0;Data Source=%s;Extended  Properties=dBase IV;',[S]);
  ADOConnection1.Connected:=True;
  ADODataSet1.CommandText:='Select * from test.dbf'; //The SQL query uses the name of the dbf file
  ADODataSet1.Open;
finally
  AdoDataSet1.EnableControls;
end;
这很好,但是在第一次使用DBF之前,我还需要创建一个空DBF文件,以便添加日志记录。我可以通过每次打开一个现有的“空”DBF文件来做到这一点,但我希望有一个SQL?如果我已经创建并定义了我的字段(这对我来说很容易),那么创建我的文件的方法。我用一个TAdoTable尝试了这一点,在那里我可以创建所需的字段,但我找不到任何示例,说明如何在没有任何内容的情况下将此表结构输出到磁盘上,主要是因为有太多ADO示例,但几乎总是处理现有的数据表

谁能帮我用ADO组件创建一个带有两个字段的示例DFB表文件?我相信我可以在这基础上再接再厉


非常感谢。

使用TADOCommand并执行Create Table SQL,例如:

Create Table Test (TestField1 char(64), TestField2 integer)