レコードを削除したいのですが、どうもうまく動きません。 (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がきちんとできてないようです。 何か、不足しているのでしょうか？ よろしくお願い申し上げます。