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』がだめだったみたいです。 名前変更したらうまく動作しました。