VBAからオラクルのSEQUENCEに対し、 .NEXTVALを発行するとなぜか２づつ値が増えていく事象が発生。 SQL*Plusから実行すると１ずつしか増えない。

CREATE文は下記の通り。

CREATE SEQUENCE SEQ_TEST
  INCREMENT BY 1
  MINVALUE 1
  MAXVALUE 99999999
  START WITH 1
  NOCACHE
  CYCLE
  ORDER;

「INCREMENT BY 1」で増分値を１にしているし、「NOCACHE」も指定しているので飛ぶこともないし・・・。

おかしいなと思っていたらこちらのサイトでヒントを見つけました。→「電撃羊の'あしあと'」

oo4oで接続したとき、やはり２個飛びになるとのこと。これをヒントに下記の通りのパラメータとして正常に動作する様になりました。

    Dim rst As ADODB.Recordset
    Dim strSQL As String

    Set rst = New ADODB.Recordset
    strSQL = "SELECT SEQ_TEST.NEXTVAL FROM DUAL"
    rst.Open strSQL, GetRDBConnection(), adOpenStatic, adLockReadOnly

修正前はそれぞれ「adOpenDynamic」「adLockOptimistic」を使用していました。 SEQUENCEを使用するときは、パラメータを変えないとだめそうですね。

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
　日本ブログ村へ

3/17（月）は東京のクライアント様と午後から打ち合わせ。

高崎駅通過中のあさまを撮影。斜めになっています。（笑）

いつもの通り、昼飯は高崎駅で立ち食いうどんでしたが、ちょっと物足りなかったので、NewDaysで買い物。

あさまに乗りました。

プリングルスの「クラッシュドペッパー味」 を買ってみました。”期間限定”だそうです。

中はこんな感じ。粗挽きこしょうがかかっています。

味はと言うと、個人的にはプリングルスの中で一番好みの味でした。期間限定というのがちょっと残念ですが・・・。

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
　日本ブログ村へ