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


QueryコンポーネントでSQLを使って新しいテーブルを作ることができます。

toach.gif (917 バイト) テーブルを作成するSQL文

テーブルを作成するSQL文はCREATE TABLEです。CREATE TABLEは次のように書きます。

CREATE TABLE テーブル名 (フィールド名 型, フィールド名 型, ・・・・);

 

サンプルプログラムを次に示します。

{ テーブルを作成する }
procedure TForm1.btnCreateTableClick(Sender: TObject);
var
    SQLText: string;
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('CREATE TABLE Sample (A CHAR(10), B INTEGER);');
    ExecSQL;
    MessageDlg('SQLが終了しました。', mtInformation, [mbOK], 0);
  end;
end;