VB.netのデータをACCESSで更新したいです

Question

前提・実現したいこと
VB.netのデータをACCESSで更新したいです。

エラーメッセージ
System.Data.OleDb.OleDbException: 'UPDATE ステートメントの構文エラーです。

この例外は、最初にこの呼び出し履歴 
    System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(System.Data.OleDb.OleDbHResult)
    System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(System.Data.OleDb.tagDBPARAMS, out object)
    System.Data.OleDb.OleDbCommand.ExecuteCommandText(out object)
    System.Data.OleDb.OleDbCommand.ExecuteCommand(System.Data.CommandBehavior, out object)
    System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(System.Data.CommandBehavior, string)
    System.Data.OleDb.OleDbCommand.ExecuteNonQuery()
    WindowsApp6.Form1.Button5_Click(Object, System.EventArgs) 場所: Form1.vb
    System.Windows.Forms.Control.OnClick(System.EventArgs)
    System.Windows.Forms.Button.OnClick(System.EventArgs)
    System.Windows.Forms.Button.OnMouseUp(System.Windows.Forms.MouseEventArgs)
    ...
    [呼び出し履歴が切り捨てられました] でスローされました

該当のソースコード

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        'Access接続準備
        Dim command As OleDbCommand
        Dim cnAccess As OleDbConnection = New OleDbConnection()

        'SQL、更新
        Dim cm As New OleDb.OleDbCommand("UPDATE table2 (Set [出勤時間(時)] = :11 where 日付 = :1", cnAccess)

        '作成した接続文字列を設定
        cnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database2.mdb"

        'Access接続開始
        cnAccess.Open()

        'SQL文の実行
        cm.ExecuteNonQuery()

        '終了
        command.Dispose()
        cnAccess.Close()


    End Sub

UPDATEの基本構文は、問題なく記述出来ていると思われます。
UPDATE 表名
SET 列名 = 値
WHERE　更新する行を特定する条件

使っているツールのバージョンなど補足情報
ACCESSのバージョン2016
Windows10の64ビット
WindowsForms
Visual Studio2019
NET Framework 4.8
AccessDatabaseEngine.exeインストール済です。

ご教示よろしくお願い致します。

Comments

[YAmaGNZ]

作成したSQLをACCESSで実行して、SQLが悪いのかプログラムが悪いのかを切り分けましょう。

[sousuke]

.netのOleDb.OleDbCommandに関してはよく知りませんが「(Set」の開始のかっこが閉じてなかったり「 = :11」などのコロンを使ったSQLの記述方法は正しいものなのでしょうか？
「UPDATEの基本構文は、問題なく記述出来ていると思われます。」というのはどういう形で問題ないと判断しているのでしょうか？

[rarara_123]

エラー内容が構文エラーなのでSQLそのものではなくプログラムが悪いと考えております。

[rarara_123]

INSERTで使った分をUPDATEに置き換えています。
'SQL文作成
Dim cm As New OleDbCommand("INSERT INTO table2 (
日付,[出勤時間(時)],[出勤時間(分)],[退勤時間(時)],[退勤時間(分)],給料)
VALUES(@hiduke,@syukkinJikan,@syukkinHun,@taikinJikan,@taikinHun,@TextBox2.Text)", cnAccess)
それと、調べたところ基本構文そのものは問題なく記述出来ていると思いました。

[sazi]

VB.netのデータって何ですか？
VB.NETでアクセスしているデータをAccessで更新したいという事なら、VB.netは取り敢えず関係なくて、VB.Netでどんなデータにアクセスしているかですけど。

[rarara_123]

VB.netのフォームに入力したデータをACCESSに表示させてます。その表示させているデータをVB.net側から更新をさせたいです。

[sazi]

> VB.netのフォームに入力したデータをACCESSに表示させてます。

「ACCESSに表示させてます」って何ですか？
VB.NETのフォームからAccessのデータに追加していて、追加は出来ているけど更新もしたいという事ですか？

[rarara_123]

仰るとおりでございます。
追加は出来ていて更新もしたいです。

[YAmaGNZ]

＞エラー内容が構文エラーなのでSQLそのものではなくプログラムが悪いと考えております
貴方の判断ではなくACCESSでSQLを実行して切り分けをしましょう。
こういう場合は「思う」ではなくSQLのみで実行して何が間違っているのか確定させることが重要です。

[rarara_123]

ありがとうございます。ACCESSを実行して切り分けをする方法を学ぶ事が出来ました。

[退会済みユーザー]

前のスレッド https://teratail.com/questions/333520 その前 https://teratail.com/questions/333203 もそうだけど、何か言われたけど、分からないから取りあえずテキトーに返事を返しているとしか思えませんけど。

何が問題か理解できてないから解決できていないでしょうから、きっとまた同じ質問をするのではないかと思ってますが、そういうの止めませんか？

Answer 1

UPDATEの基本構文は、問題なく記述出来ていると思われます。

中途半端に(が残ったりパラメータ識別(:)らしきものが残っているので、駄目でしょうね。
良く分かりませんが、

Dim cm As New OleDbCommand("INSERT INTO table2 (
日付,[出勤時間(時)],[出勤時間(分)],[退勤時間(時)],[退勤時間(分)],給料)
VALUES(@hiduke,@syukkinJikan,@syukkinHun,@taikinJikan,@taikinHun,@TextBox2.Text)", cnAccess)

上記で上手くいったのなら、以下の様にしてみたらどうですか。

"UPDATE tables Set [出勤時間(時)] = @syukkinJikan where 日付 = @hiduke"

ここで@XXXはパラメータですから値のセットは事前に行っておく必要があります。
insertが上手くいっているなら、そのロジックはあるのでしょうからそれを流用すれば良いでしょう。

因みにパラメータ識別に@を使用するのはSQL ServerかMySQLとかなので、Accessは単にリンクテーブルではないのでしょうか。

Comments

[rarara_123]

今日半日使っても解消出来なかったのでとても助かります。ありがとうございました。

[退会済みユーザー]

> Accessは単にリンクテーブルではないのでしょうか。

OleDb + JET + Access なら位置パラメータマーカ ? です。