C# と VB.NET の質問掲示板

度々質問させて頂きたいのですが、

只今access内のデータをデータグリッドビューに表示が出来ている状態で。
そこから項目内の変更をしたい場合の更新処理のコーディングで行き詰っています。

サイトで調べましたが、理解まで至りません。
VB と Accessでのやりとりですが、
検索でよくVBAの方がヒットしてしまい、こんがらがってます。


表示した時の処理での共通する部分とかがあるのでしょうか。
（イベント発生させる度にまたDBを呼び出す処理等）


変更をしたら更新のボタンを押した後にデータの中身が更新される処理を想定しています。


ご教授願います。



Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '接続用変数の定義
        Dim OLEDBCon As OleDb.OleDbConnection = New OleDb.OleDbConnection
        Dim OLEDA As OleDb.OleDbDataAdapter
        Dim OLEDS As DataSet = New DataSet("TABLEDATA")
        Dim strSQL As String


        OLEDBCon.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source= path" & _
          "Persist Security Info=False"

        'SQL構文を作成
        strSQL = "select * from Test"

        'SQL文を作成
        OLEDA = New OleDb.OleDbDataAdapter(strSQL, OLEDBCon)

        

        Try
            'データセットにデータを格納
            OLEDA.Fill(OLEDS, "Test")

            'データグリッドビューのデータソースを設定
            DataGridView1.DataSource = OLEDS.Tables("Test")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        'セルの値を編集
        DataGridView1.ReadOnly = False

    End Sub

End Class

2014/05/23(Fri) 13:44:22 編集(投稿者)


> System.Windows.Forms.DataGrid「データグリッド」と
> System.Windows.Forms.DataGridView「データグリッドビュー」は
> まったく別のコントロールですが、今回は、
> DataGridView に関してという認識でよろしいでしょうか。

失礼しました。
DataGridViewです。



> 『"Data Source=" & path & ";" & _』や
> 『"Data Source=path.mdb;" & _』など。
ミスです、修正致しました。


> たとえば、このような手順です。
> http://blog.livedoor.jp/akf0/archives/51536291.html
> 
> 上記は SQL Server が相手なので、SqlCommand や SqlDataAdapter が使われていますが、
> 今回は Access が相手なので、OleDbCommand や OleDbDataAdapter に置き換えれば OK です。

置き換えて書いてみましたところ、
データを更新するボタンを押したときに、

'データの更新
        result = adapter.Update(ds.Tables(0))　　ここで


同時実行違反 : UpdateCommand によって、処理予定の 1 レコードのうち 0 件が処理されました。

というエラーが出ました。

フォームロード時にデータグリッドビューを表示し、
更新ボタンがあるという状態です。



前と同じ値であればUpdateできるが、異なる値だと出来ない
という状態です。

異なる値に変更したいのですが、
これはaccess側に原因があるのでしょうか。

同時実行違反のエラーの関連ページも見ましたが、
イメージが付かないです。



Imports System.Data.SqlClient
Imports System.Data.OleDb


Public Class Form1


    Private connection As OleDbCommand
    Private adapter As OleDbDataAdapter
    Private ds As DataSet


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim OLEDBCon As OleDb.OleDbConnection = New OleDb.OleDbConnection
        Dim OLEDS As DataSet = New DataSet("TABLEDATA")



        connection = New OleDbCommand()


        'DBへの接続
        OLEDBCon.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=Sample.mdb;;" & _
          "Persist Security Info=False"


        'データの取得
        ds = New DataSet()


        Dim sql As String
        sql = "SELECT * FROM Test"


        adapter = New OleDbDataAdapter()
        adapter.SelectCommand = New OleDbCommand(sql, OLEDBCon)
        adapter.SelectCommand.CommandType = CommandType.Text
        adapter.Fill(ds)

        Me.DataGridView1.DataSource = ds.Tables(0)

        adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '更新用SQLの取得
        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
        builder.GetUpdateCommand()
        Dim result As Integer


        'データの更新
        result = adapter.Update(ds.Tables(0))

    End Sub

End Class