oo4o。executeSQLにてupdate実行後、実行件数取得は？

質問

今まであまり使ったことの無かったAccess97のVBAを使用しています。単純な質問なんですが、教えてください。

oo4oにてオラクルDBに接続し、executeSQLメソッドにより単純なupdate処理を実行しました。
-----（細かいところは省略）
sql= "update TABLE_A set CODE='AAA' where NAME='HOGE'"
OraDB.ExecuteSQL sql
-----

このExecuteSQLメソッドの、実行結果が０件なのか、１件なのかを知りたいのですが、方法はありますでしょうか？つまり、直前のSQLの実行結果を取得するメソッドはありますか？という質問です。Javaとかなら、戻り値として実行結果の件数が帰ってきますよね。この場合はそれをどうやって取ればいいのでしょうか？

where NAME='HOGE'に当てはまるレコードが無くても、０件の処理が成功として、エラーは出ないんですよねぇ・・・

もし不足の情報がありましたら、補足いたします。
よろしくお願いします。

回答No.4

taka_tetsu · ベストアンサー

>result = OraDB.ExecuteSQL sql　'☆１

括弧がありませんねぇ(^^;

result = OraDB.ExecuteSQL(sql)

お礼

ええー。それですか？
「result = 」が無ければカッコ無しでも通るんですよ。。？

補足

ビンゴでした。かっこつけたらちゃんと動きました。ありがとう御座います。
・・・っていうか、なにこの言語・・

回答No.3

taka_tetsu

>実行すると「構文エラー」・・・

うーん、構文エラーって納得いきませんねぇ。

どんなコードかいてますか？

お礼

ホント、単純なコードなんですが、以下抜粋です。
----
Dim OraSession As Object
Dim OraDB As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDB = OraSession.DbOpenDatabase(DB_TNSNAME, DB_USERNAME & "/" & DB_PASS, 0&)

Dim result As Integer
Dim sql As String

sql = "update ～（省略） "

OraSession.BeginTrans
result = OraDB.ExecuteSQL sql　'☆１

OraSession.CommitTrans
----
この☆１の部分の「result = 」を消すとうまく行くんですが、これがあると、エディタの時点で赤くなってしまっています。。resultの型が間違っているのかと色々試したんですが、ダメでした。☆１の行の「result = 」を消し、その次の行に「result= OraDB.GetRowsProcessed」を入れても、「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と出てしまいます。。

回答No.2

taka_tetsu

>うーん,IntegerでもLongでも試してみたんですけど、コードエディタの時点で赤くなってしまって、実行すると「構文エラー」・・・

もしかして、タイプライブラリを参照設定していますか？
oo4o、タイプライブラリ使うとたまに変な動きをしたような・・・

お礼

タイプライブラリの参照設定はしてありました。
一応外して試してみたんですが、どの方法でも結局おなじエラーになってしまいますね。。
それにしてもAccessの参照設定ってなんでこんなに分かりにくいんだろう…なにがなんだか。。
ありがとう御座いました。

回答No.1

taka_tetsu

ExecuteSQLメソッドの戻り値

お礼

あは、そのまんまですかｗ Integerの変数に戻り値を入れようとしたらエラーになったんで、てっきり戻り値が無いのかと思ってました。型が違うだけで、早とちりしていたということですね；；試してみます。ありがとうございました。

補足

うーん,IntegerでもLongでも試してみたんですけど、コードエディタの時点で赤くなってしまって、実行すると「構文エラー」・・・
OraDBに対して、GetRowsProcessedというメソッドも試してみたのですが、まったく同じで、サポートされていないということでした。
これはoo4oのバージョン（8.1.5.3.4）なども関係してくるのでしょうかね・・？
ネットで探すと、実行結果の件数が戻り値として戻ってくるという話もあり（→×）、GetRowsProcessedで件数が取れるという話もあり（→×）、またoo4oのヘルプでは「操作の正常な終了（OSUCCESS）または失敗（OFAILURE）を示すoresultを戻します。」とあるので、これでは件数は取れないです。。

もし何かアドバイスありましたらどなたか引き続きよろしくお願いします・・。