掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.