掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TTablel.DeleteTableについての質問 (ID:13032)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
仕事といえば仕事ですので…でも企業秘密という程ではありません（？） 折角、皆様がレスポンスしているのですし、こちらの都合良い情報だけ公開というのも納得いかないでしょうね。 という訳で説明します。 ******************************************************************** (１)テーブル１削除（テーブル１既存の場合エラーの為） try DelTbl.DatabaseName := DelDatabase.DatabaseName; DelTbl.TableName := 'テーブル１'; DelTbl.DeleteTable; except end; (２)テーブル１作成、テーブル２作成 (３)テーブル１をテーブル２にINSERT（テーブル１と２の合体です） InsQry.DatabaseName := InsDatabase.DatabaseName; StrSql := 'INSERT INTO テーブル２(フィールド名,…) '; StrSql := StrSql + 'SELECT テーブル１.フィールド名,… '; StrSql := StrSql + 'FROM テーブル１'; InsQry.SQL.Clear; InsQry.SQL.Add( StrSql ); InsQry.ExecSQL; (４)合体したのでテーブル１は不要（削除） try DelTbl.DatabaseName := DelDatabase.DatabaseName; DelTbl.TableName := 'テーブル２'; DelTbl.DeleteTable; except end; ******************************************************************** という流れです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.