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です。