adodb updateBatch不正な情報を格納する

Question

私は、adodbレコードセットとMicrosoft Access 2007データベースファイルを使用するVB6プログラムを持っています。私は、テーブル内の各レコードを取るコードをアプリケーションに追加しました。テーブルのほとんどのレコードでは、1つのフィールドを取り、そのフィールドの値に基づいて新しい値を計算し、その値を同じレコードの別のフィールドに格納します。私はこれをテストし、それを生産に入れました。多数のラップトップでエラーが報告されずに実行されています。

今日はエラーが報告されました。私が知る限りでは、レコードセットのupdateBatchメソッドは、私がそこに置いた値とは少し異なる値を格納しています。私はそれをデバッガに入れて、新しい値が私が望むものであることを確認しました。私は、基本値と新しい値をファイルに書き込むステートメントを入れて、それらが私が望むものであることを確認しましたが、異なる値がデータベースに入ります。ここで

は、関連するループです：

sqlStr = "Select key_citation, long_citeIndex from citation" 
Set rs = m_dbh.runSQLReturnRS_RW(sqlStr) 
While Not rs.EOF 
    citationNumber = rs.Fields("key_citation").value 
    If Left$(citationNumber, 1) <> "W" Then 
     newIndex = Citation.calculateCiteIndex(citationNumber) 
     Open "c:\CitationIndexDebug.txt" For Append As #4 
     Write #4, citationNumber, newIndex 
     Close #4 
     rs.Fields("long_citeIndex").value = newIndex 
    End If 
    rs.MoveNext 
Wend 
rs.UpdateBatch 
rs.Close 
Set rs = Nothing 

RUNSQLなどadOpenDynamic、adLockBatchOptimistic

でレコードセットを開き、私は、各レコードの中でrs.Updateを入れて試してみたが、それはいないようですまったく働く。私は、アプリケーションの残りの部分はupdateBatchを使用しているため、runSQL文はバッチ更新を前提としたレコードセットを開くことを前提としています。

誰かがこれが間違っていると思われる理由がありますが、間違っているのはごくわずかです。私が言っているように、それは私がスコア/何百ものマシンで知ることができるくらい近くで正しく動作しており、この特定のデータベースにエラーがあります。

Answer 1

どのように値を保存する予定と少し違いますか？あなたはそれが何であるべきか、それが実際に貯蓄されているもののいくつかの例を提供できますか？

Answer 2

また、adOpenForwardOnlyを使用してレコードセットを取得し、UPDATE SQL文を送信することもできます。私はm_connを発明しましたが、それはADO.Connectionオブジェクトでなければなりません。

sqlStr = "SELECT key_citation FROM citation" 
Set rs = m_conn.Execute(sqlStr, , adCmdText Or adOpenForwardOnly) 
While Not rs.EOF 
    citationNumber = rs.Fields(0).Value 
    If Left$(citationNumber, 1) <> "W" Then 
     newIndex = Citation.calculateCiteIndex(citationNumber) 
     m_conn.Execute "UPDATE citation SET long_citeIndex = " & CStr(newIndex) & " WHERE key_citation = " & CStr(citationNumber), , adCmdText 
    End If 
    rs.MoveNext 
Wend rs.UpdateBatch 
rs.Close 
Set rs = Nothing