Aloz 的 Oracle ERP 天地

VisualBasic から OO4O を使って、表にアクセスしてみる（その他更新編）

Select 編は、読んでいただけましたか？Dynaset を使用する方法と、Bind を使用した参照方法、２つを書きました。
単なる１レコードの読みこみ（照会）だけならば、Dynaset で十分です。コーディングも短いですし、気軽に使えます。

ようは、適材適所というか、○鹿の一つ覚えのように、Dynaset を使うのはダメということです。

さて、参照の次は当然、更新，追加，削除です。参照を含めて、この４つが使えれば、大体のPGは問題なく作成できます（よね？）

１．Dynaset を使う

参照の時に使った、Dynaset を用いて、更新，追加，削除をしましょう。
--------------------------------------------------------------------------------
Dim W_Sql   As Object
Dim W_Dyna As Object

W_Sql = "select item1 from tblA"

Set W_Dyna = OraDatabase.dbCreateDynaset(W_Sql,&H0&)

W_Dyna.dbEdit　'(A)
W_Dyna.fields("item1") = "ABC" '(B)
W_Dyna.dbUpdate '(C)
--------------------------------------------------------------------------------
簡単です。超が付くほど。

(A) では、「これからレコードの編集をするぞ」と宣言し、
(B) にて、更新対象の項目に、値をセットし、
(C) で、更新を実行しています。

更新処理(Update) を行うには、dbUpdate メソッドを、Dynaset に対して実行してやれば良いのです。
（当然、カレントレコードが対象になります）

なにも考えてないコーディングですが、これだけで更新できます。実際にはもっと項目が多いですから、
コーディングは煩雑ですけど。

追加の場合はこうです。
--------------------------------------------------------------------------------
Dim W_Sql   As Object
Dim W_Dyna As Object

W_Sql = "select item1 from tblA"

Set W_Dyna = OraDatabase.dbCreateDynaset(W_Sql,&H0&)

W_Dyna.dbAddNew　'(A)
W_Dyna.fields("item1") = "ABC" '(B)
W_Dyna.dbUpdate '(C)
--------------------------------------------------------------------------------
更新の時と、そう差が有りません。
dbEdit メソッドが、dbAddNew メソッドに変わるだけです。最終的に、(C)の dbUpdate を実行した時点で、
Insert されます。

さらに、削除の場合は、こうです。
--------------------------------------------------------------------------------
Dim W_Sql   As Object
Dim W_Dyna As Object

W_Sql = "select item1 from tblA"

Set W_Dyna = OraDatabase.dbCreateDynaset(W_Sql,&H0&)

W_Dyna.dbDelete '(A)
--------------------------------------------------------------------------------
これはもう、こんなんで良いんでしょうか、っていうくらい簡素なコードです。
これで簡単に削除されてしまうレコードは、カワイソウになってきます。

２．Dynaset を使わない更新操作

当然、Dynaset を使用しなくても、更新や追加，削除は可能です。
１件ずつの更新や削除なら、Dynaset でも良いと思います。しかし、まとめて更新や削除するとき
には、いちいち Dynaset を使う必要はありません。

SQL 文を実行するために、dbExecuteSQL メソッドを使います。
例を見ていただくと、一目瞭然でしょう。

(1)更新

Dim W_Sql        As String

W_Sql = "update "
W_Sql = W_Sql & "tblA "
W_Sql = W_Sql & "set "
W_Sql = W_Sql & "item1 = 'AAA'"
W_Sql = W_Sql & "where "
W_Sql = W_Sql & "item2 = '123'"

OraDatabase.dbExecuteSQL(W_Sql)

(2) 削除

Dim W_Sql        As String

W_Sql = "delete from "
W_Sql = W_Sql & "tblA "
W_Sql = W_Sql & "where "
W_Sql = W_Sql & "item2 = '123'"

OraDatabase.dbExecuteSQL(W_Sql)

いかがでしょうか。更新用の SQL 文を作成して、dbExecuteSQL にて実行するだけです。
簡単ですね。
対象が１件だけなら、Dynaset と変わりないかも知れませんが、複数件有るときはとても
便利です。