データベースにフィールド追加しての反映について (ID:38661)

名前

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

本文 D7 の IBX にて行っていますが、 一旦、DBを作成して後に、フィールドを追加したいことが多々あります。 このような場合、最も初めに作成されるFormにて、 １．そのフィールドがあるか？ ２．無ければ作成 という風に行っています。 結果オーライということで試作中には便利です。 具体的には var SQL_St,SQL_St_1:String; procedure *****ButtonClickなど****** begin //フィールドの有無をチェックして無ければ挿入します SQL_St := ' select <挿入したいフィールド名> from <DB名> '; try with IBSQL1 do begin Close; SQL.Clear; SQL.Add(SQL_St); Open;//フィールドが無ければエラーが発生 end; except //エラーの場合フィールドを追加 SQL_St1 := ' alter table <DB名> add <挿入したいフィールド名> VARCHAR(30)'; with IBSQL2 do begin Close; SQL.Clear; SQL.Add(SQL_St1); ExecSQL; IBTr1.CommitRetaining; end; end; end;