delphi.gif (306 バイト) 新しいテーブルを作るには


新しいテーブルはTableコンポーネントのCreateTableメソッドによって作ることができます。

まず、DatabaseName,TableName,TableTypeの各プロパティを設定します。つぎにFieldDefsプロパティにフィールドを追加します。そして、最後にCreateTableメソッドを実行するとテーブルが作成できます。

delphi1.gif (322 バイト)
procedure TForm1.btnCreateTableClick(Sender: TObject);
begin
  with Table1 do
  begin
     DatabaseName := 'Persons';
     TableName := 'ClubMember';
     TableType := ttParadox;
     FieldDefs.Add('Name', ftString, 16, False);
     FieldDefs.Add('Age', ftInteger, 0, False);
     CreateTable;
  end;
end;

 

レコードを並び替えるにはにもテーブル作成の例があります。