Delphi ADOコンポーネントを使用してD-Base IVテーブルを作成するにはどうすればよいですか？

Question

私は、バッチ結果をフォルダ内の単一のDBase 4（* .dbf）ディスクファイルに記録する計測器のソフトウェアを開発しています。これらのDBFファイルの複数で動作するように計画されている新しいロギング解析機能を追加する準備として、私は既存の単純なBDE TTableとCreateTableを変更して、それぞれ新しいDBFファイルを開き、Delphi ADOコンポーネントを使用します。

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は、前：SO私はsuccessfulyのTADODataSetとTADOConnectionのを使用して、次のコアコードを使用して、既存のDBFファイルを開き、テスト・アプリケーションを作成した上で、ここで他の提案を使用して

初めて私のログレコードを追加できる空のDBFファイルを作成する必要があります。私は毎回「空の」DBFファイルを開いてこれを行うことができましたが、SQLがあることを期待していましたか？フィールドを作成して定義していれば、私のファイルを作成する方法です（これは簡単です）。私はTAdoTableでこれを試してみましたが、必要なフィールドを作成することができましたが、このテーブル構造をディスクに取り込む方法の例は見つけられませんでした。主にそこにADOの例がたくさんありますが、データテーブル。

ADOコンポーネントを使用していくつかのフィールドを使用してサンプルのDFBテーブルファイルを作成できますか？私はそれを上手くいくことができると確信しています。

多くのありがとうございます。

Answer 1

使用TADOCommandはこのような例を何かのために、表SQLを作成して実行します。

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