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

名前

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

本文 Tableしかつかったことないですけど（しかも８年くらい前(^_^;)） とおーぃ記憶を呼び戻して うっぅうって作ってみました。 とりあえず・・・ Query 2通りあるみたいですね。 作ってみました 参考にならないでしょうけど・・・ Delphi2Desktopで書きましたら、どれでもたぶん動くでしょう。 D2005起動が遅いから使う気になれないけどぉ(>_<) 念のため2005でも確認しました(^_^;) openする時の Query1.RequestLive; の値が要注意ですね。 procedure TForm1.Button2Click(Sender: TObject); var Str: string; RLive : Boolean; begin // Database 1.dbf a,b,c 文字列型 // Query1.SQL.text := ' SELECT * FROM "1.dbf"'; // 普通に挿入 RLive := Query1.RequestLive; if Not(RLive) then begin Query1.close; Query1.RequestLive := True; Query1.open; end; // TQuery で INSERT ができない // http://www.borland.co.jp/qanda/delphi/d0000242.html // このページあってるの? 逆のことしたらできるんだけど・・・ // open する前にTrueに設定しないといけないっぽい。 Query1.Insert; Query1.FieldByName('a').AsString := '1'; Query1.FieldByName('b').AsString := '2'; Query1.FieldByName('c').AsString := TimeToStr(now); { ここで他の項目に値を代入します } // if { 項目を更新する場合 } then Post // else { 更新を中止する場合 } Cancel; Query1.Post; // まとめて挿入 Str := Query1.SQL.text; // 一度セレクト文破棄 // SQLの文法知らないので使い方がわからない。 Query1.SQL.text := 'INSERT into "1.dbf"(a,b,c) VALUES("a","b","c") '; Query1.ExecSQL; Query1.SQL.text := Str; Query1.RequestLive := RLive; Query1.open; end; > Ｄ２ ヘルプより引用 > RequestLive プロパティ > 説明 > > デフォルトの設定では，TQuery は読み出し専用結果セットを返します。ライブ結果セットが必要な場合は RequestLive を True に設定します。問い合わせの SELECT 構文がライブ結果セットの構文条件に従っていれば，BDE はライブ結果セットを返します。RequestLive が True であっても，構文が条件に従っていないと BDE は (ローカル SQL に対しては) 読み出し専用結果セット，(パススルー SQL に対しては) エラーコードを返します。問い合わせがライブ結果セットを返した場合，Delphi は CanModify プロパティを True に設定します。 > > RequestLive CanModify 結果セットの種類 > > False False 読み出し専用結果セット > > True (SELECT 構文が 条件に従う場合) True ライブ結果セット > > True (SELECT 構文が 条件に従わない場合) False 読み出し専用結果セット ↓このB社の説明はなっとくできない。 http://www.borland.co.jp/qanda/delphi/d0000242.html