TTablel.DeleteTableについての質問 (ID:13035)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

試してみました。
var
  StrSql: string;
begin
  Database.DatabaseName := 'C:\';
  //
  try
    DelTbl.DatabaseName := Database.DatabaseName;
    DelTbl.TableName    := 'テーブル１';
    DelTbl.DeleteTable;
  except
    ShowMessage('テーブル１ not found');
  end;
  //
  DelQry.DatabaseName := Database.DatabaseName;
  StrSql := 'CREATE TABLE '''+DelTbl.TableName+''''+
            ' (LAST_NAME CHAR(20),'+
            ' FIRST_NAME CHAR(15),'+
            ' DEPT_NO SMALLINT)';
  DelQry.SQL.Clear;
  DelQry.SQL.Add(StrSql);
  DelQry.ExecSQL;
  //
  StrSql := 'INSERT INTO '''+DelTbl.TableName+''''+
            ' (LAST_NAME,FIRST_NAME,DEPT_NO)'+
            ' VALUES (''通り'',''すがり'',1)';
  DelQry.SQL.Clear;
  DelQry.SQL.Add(StrSql);
  DelQry.ExecSQL;
  //
  InsQry.DatabaseName := Database.DatabaseName;
  StrSql :=          'INSERT INTO テーブル２ (LAST_NAME,FIRST_NAME,DEPT_NO) ';
  StrSql := StrSql + 'SELECT LAST_NAME,FIRST_NAME,DEPT_NO ';
  StrSql := StrSql + 'FROM テーブル１';
  InsQry.SQL.Clear;
  InsQry.SQL.Add( StrSql );
  InsQry.ExecSQL;
  //
  try
    DelTbl.DatabaseName := Database.DatabaseName;
    DelTbl.TableName    := 'テーブル１';
    DelTbl.DeleteTable;
  except
    ShowMessage('Could not delete テーブル１');
  end;
end;
２回めの'テーブル１'削除できます。
Paradox/D6です。

←解決時は質問者本人がここをチェックしてください。

戻る