タイトル | : Mdb更新について |
記事No | : 1393 |
投稿日 | : 2005/02/14(Mon) 15:02 |
投稿者 | : 迷惑 |
[OSのVer]:Windows [VBのVer]:VB.NET
テーブル更新ができない。 count = oCommand.ExecuteNonQuery() ←この文でいつもシステム例外エラーが起きる。 因みに更新しようとしてるMdbのテーブルColumnはテキスト型です。 ぜひお願いします。 ソースは以下 ======================== Dim oConn As New OleDbConnection Dim oCommand As New OleDbCommand
Const strUpdate As String = "UPDATE T_GROUP_ENV " + _ "SET BS_DATA=@strData " + _ "WHERE BS_GROUPID=@strGroupID AND BS_KEY=@strKey"
'DB接続文字列の設定 oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&q uot; + _ FileName_To_Tmp
'コネクションの設定 oCommand.Connection = oConn
'DB接続を開く oConn.Open()
For i = 0 To dtTable.Rows.Count
dtRow = dtTable.Rows(i)
'SQL文の設定 oCommand.CommandText = strUpdate
'SQL文パラメータの設定 oCommand.Parameters.Add(New OleDbParameter("@strData", OleDbType. VarChar, 255)) oCommand.Parameters("@strData").Value = dtRow(2) oCommand.Parameters.Add(New OleDbParameter("@strGroupID", OleDbType.VarChar, 10)) oCommand.Parameters("@strGroupID").Value = dtRow(0) oCommand.Parameters.Add(New OleDbParameter("@strKey", OleDbType.V arChar, 50)) oCommand.Parameters("@strKey").Value = dtRow(1)
'更新SQL文実行 Dim count As Integer count = oCommand.ExecuteNonQuery() If count > 0 Then '更新成功 MessageBox.Show("成功") Else '更新するレコードがなかった時の処理 End If
Next
========================
|