ＡＣＣＥＳＳへの更新に関して

質問

以下のような記述をして、ＶＢからＡＣＣＥＳＳのテーブルに書き込みを行おうとしています。

その際に、開発をしているＶｉｓｕａｌ Ｂａｓｉｃ２００８のデバックモードでは、問題なくＡＣＣＥＳＳに
更新ができますが、コンパイルしてできあがった"ＥＸＥ"から実行した場合、ＡＣＣＥＳＳへの更新ができません。

エラーが起こっているかと思い、updateのあるfor文にポップアップを出すような仕掛けを作り、試してみましが、
そこを通過するものの、エラーも何も起こらずに正常終了してしまいます。

何が原因でしょうか。。。教えて下さい。

環境

　Windows７／ACCESS2000／VB2008／参照設定：Microsoft ActiveX Data Objects 2.8 Library

'データベースファイル名
Dim dname As String = "C:\test.mdb"
'データベースパラメータ
Dim strDatbasePara As String

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

strDatbasePara = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" + dname + ";" + _
"Jet OLEDB:Engine Type=5;"
Try

Cnn.Open(strDatbasePara)
Rst.Open("table", Cnn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

If Rst.EOF Then

For jcount = 0 To icount - 1

Rst.AddNew()
Rst.Fields("項目１").Value = "AAA"
Rst.Update()

Next

End If

Rst.Close()

Catch ex As Exception

smsg = "失敗しました。"
MessageBox.Show(smsg, "更新", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try

Cnn = Nothing
Rst = Nothing

回答No.2

nda23 · ベストアンサー

とりあえずトランザクションを管理してみては？

Cnn.BeginTrans()
Try
　　Rst.AddNew()
　　Rst.Fields("項目１").Value = "AAA"
　　Rst.Update()
　　Cnn.CommitTrans()
　　'★できればここでログを取りたい
Catch 例外 As Exception
　　Cnn.RollbackTrans()
　　Throw 例外
End Try

お礼

nda23様、ご回答ありがとうございます。

教えて頂いたようにトランザクション管理をしてみたところ、
デバックモードでもCommitする際にエラーとなっていました。

その結果を踏まえて調査したところ、書き込み先のmdbが壊れているかも？
という記述があった為、再度作成しなおした結果、問題なく更新されるように
なりました。

なぜ直ったのか細かな部分まではわかりませんが。。。

nda23様、教えて頂き、本当にありがとうございました！

回答No.1

nda23

>If Rst.EOF Then
EOFの時しか実行しませんよね？
既に１件以上データがあるのでは？

>For jcount = 0 To icount - 1
icountが0以下じゃないでしょうね？
これに値が仕込まれるステートメントは
どうなっていますか？

いずれも正常終了して何も起きない
パターンです。

お礼

nda23様、いつもありがとうございます。

申し訳ありません。

掲載する為にかなりソースを削って、簡単な形に加工してしまった為、重要な部分までも削除して
しまったようです。。。

>If Rst.EOF Then

これに関しては、その前段階でテーブルの内容を全件削除しています。

その為、このＩＦ文には必ず入ってきます。

本来このソースは、前述で他のテーブルからデータを取得し、そのデータをＡＣＣＥＳＳに書き込む
という形をとっています。

従いまして、icountは必ずデータが存在する為、0件という事はないようになっています。

わかりにくい形となってしまっていて申し訳ありません。

尚、デバックモードでは必ずupdateへはたどり着き、更新もされています。

条件が違うという事もありません。。。。

どこかが間違っているのですよね。。。