TQuery.ExecSQLについて (ID:12984)

名前

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

本文 状況がよくわかりませんが、、、 var TblName: string; SqlStr: string; begin TblName := 'C:\TEST.DB'; // SqlStr := 'CREATE TABLE '''+TblName+''''+ ' (LAST_NAME CHAR(20),'+ ' FIRST_NAME CHAR(15),'+ ' DEPT_NO SMALLINT,'+ ' PRIMARY KEY(LAST_NAME, FIRST_NAME))'; Query1.SQL.Clear; Query1.SQL.Add(SqlStr); Query1.ExecSQL; // SqlStr := 'INSERT INTO '''+TblName+''''+ ' (LAST_NAME,FIRST_NAME,DEPT_NO)'+ ' VALUES (''通り'',''すがり'',1)'; Query1.SQL.Clear; Query1.SQL.Add(SqlStr); Query1.ExecSQL; end; ってすると、新規にテーブルを作成し、そのテーブルにレコードを挿入できます。 Paradox/D6です。