VB2010 SQLのUPDATE文エラー

VB2010とAccess2007で使用しています

データを日付順に連番を付けるコードを作成したのですが『UPDATE文構文エラーです』等のエラーが発生します？
ご教授お願いします。


Private Sub Button連番_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button連番.Click
Dim DT As New DataTable
Try
Using OleCn As New OleDbConnection(mdbPath)
Dim SQL As String = ""
SQL = "SELECT * FROM tableA ORDER BY 依頼日"
Using DA As System.Data.OleDb.OleDbDataAdapter = _
New System.Data.OleDb.OleDbDataAdapter(SQL, OleCn)
DT.Clear()
DA.Fill(DT)
End Using
End Using
Using OleCn As New OleDbConnection(mdbPath)
Dim SQL As String = ""
SQL = "UPDATE tableA SET No = @no WHERE 登録ID_Export = @登録ID"
Dim OleCmd As New OleDbCommand(SQL)
OleCmd.Connection = OleCn
OleCn.Open()
OleCmd.Parameters.Add("@no", OleDbType.Integer)
OleCmd.Parameters.Add("@登録ID", OleDbType.Integer)
For i As Integer = 1 To DT.Rows.Count
OleCmd.Parameters("@no").Value = i
OleCmd.Parameters("@登録ID").Value = CInt(DT.Rows(i)("登録ID_Export").ToString)
OleCmd.ExecuteNonQuery()
Next i
OleCmd.Dispose()
OleCn.Dispose()
End Using
Catch ex As Exception
MessageBox.Show(ex.ToString, "例外発生")
Exit Sub
End Try
MsgBox("ok")
End Sub

No.1 ベストアンサー 回答者： todo36 回答日時： 2012/03/28 15:37

SQL = "UPDATE tableA SET No = ? WHERE 登録ID_Export = ?"

http://msdn.microsoft.com/ja-jp/library/system.d …
の「解説」参照

この回答へのお礼

ありがとうございます。
原因は不明でしたがフィールド名の『No』がだめだったみたいです。

名前変更したらうまく動作しました。

お礼日時：2012/04/03 10:02