MDBへレコード挿入中にエラーが出力される
お世話になります。
VB6.0 & MDB でアプリケーションを作成しております。
ご質問内容を以下に記述させていただきます。
MDBへ合計140件のinsert文を実行している途中70件目くらいで、下記のメッセージが出力され、ロールバックしてしまいます。
エラーメッセージ:
ADO:-2147217833 指定されたデータ量がフィールド サイズを超えています。データ量を減らし、挿入または貼り付けを行ってください。
しかしながら、エラーが出力されているinsert文を、access2003のクエリに直接貼り付けて実行すると、問題なくデータが登録されます。
原因がわからなく難儀しております。
ソースを以下に記述させていただきます。
----------------------------------------------------------------
Public m_Connection As ADODB.Connection '// ADO接続
Private Function aaaaa() As Integer
FOR i = 0 to RecordCount
'// トランザクション開始
m_Connection.BeginTrans ・・(1)
'// SQL文作成
・・・・insert文・・・・ ・・(2)
'// 実行
m_Connection.Execute strSQL, lngRsp ・・(3)
'// エラー時ロールバック
If (3) = Error then
m_Connection.RollbackTrans
Exit For ・・(4)
End if
Next
End Function
----------------------------------------------------------------
70回目くらいの(3)でエラーが出力されて、(4)のロールバック処理に移行してしまいます。
恐れ入りますが、ご教示いただきたくよろしくお願い申し上げます。
以上です。
お礼
早速ありがとうございました!! 声は桜井さんだったし、中島みゆきさんの曲は聞き逃したし 全ての謎が解けましたし、BankBandの存在も知ることができました。 ありがとうございます。