レコードを削除したいのですが、どうもうまく動きません。 (ID:141420)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

立て続けに申し訳ありません。
ListBoxにデータバウンドさせて、レコードをListBoxに表示させて、フォーカスをあたっているレコードを削除させたいとおもいまして、下記のコードを書いてみました。
「削除ボタン」をクリックすると、ListBoxの表示は消えるのですが、実際のレコードは削除されていません。
どのコードが悪いのか、それとも、何か足らないのかわかりませんでしたので、再び、投稿してみました。
ご指導をお願い申し上げます。
VB2008です。

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

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Dim oConn As New System.Data.OleDb.OleDbConnection()
        Dim oCommand As New OleDbCommand()
        Dim oDataAdapter As New OleDbDataAdapter()
        Dim oDataSet As New DataSet()
        Try
            oConn.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\dcu\DRS.mdb"

'コネクションの設定
            oCommand.Connection = oConn

'ＤＢ接続を開く
            oConn.Open()

'SQL文の設定
            Const strSelect As String = "SELECT * FROM mdata"
            oCommand.CommandText = strSelect

'データを取得する 
            oDataAdapter.SelectCommand = oCommand
            oDataAdapter.Fill(oDataSet, "mdata")

Dim cm As CurrencyManager = Me.ListBox2.BindingContext(Me.ListBox2.DataSource)

Dim dr As DataRow = CType(cm.Current, DataRowView).Row

dr.Delete()

Dim oBui As OleDbCommandBuilder = New OleDbCommandBuilder(oDataAdapter)

'oBui.GetUpdateCommand().CommandText = "SELECT * FROM mdata"

oDataAdapter.Update(oDataSet, "mdata")

oConn.Close()

Catch oExcept As Exception
            '例外が発生した時の処理
            MessageBox.Show(oExcept.Message, "例外発生")

Finally
            'ＤＢ接続を閉じる
            If Not oConn Is Nothing Then
                oConn.Close()
            End If

End Try

End Sub

oDataAdapter.Update(oDataSet, "mdata")
でUpdateがきちんとできてないようです。
何か、不足しているのでしょうか？

よろしくお願い申し上げます。

←解決時は質問者本人がここをチェックしてください。

戻る