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ベストアンサー
- 回答日時:
SQL = "UPDATE tableA SET No = ? WHERE 登録ID_Export = ?"
http://msdn.microsoft.com/ja-jp/library/system.d …
の「解説」参照
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
プロシージャ名の取得
-
エラー1004 PDFの保存ができま...
-
マクロについて教えてください...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー48発生時のDLL特定...
-
ExcelVBA Range クラスの Page...
-
VBA 別シートのセルから、文字...
-
INSERT INTOステートメント構文...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
Invalid procedure call or arg...
-
カーソルオープンでエラー(ORA...
-
エクセルVBAで以下のようなコー...
-
VBで構造体を使うさ際の64k...
-
【Excel VBA】マクロをボタンに...
-
Dictionaryについてその2
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報