データベース（MDBファイル）関連：ADOでRecordsetを使いデータを修正する

VB2008でMDBファイルのデータを修正する実行例サンプルです。

データを修正するには、UPDATEを使用します。

■修正前のテーブルデータ
1番目のレコードを修正します。
修正前のデータ

■実行画面
「Recordsetでデータの修正」ボタンで修正を実行します。
修正フォーム

■修正後のテーブルデータ
「データ1」が「修正データ1」に、「データ2」が「修正データ2」に、「123」が「789」になっています。
修正後のデータ

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
'データベースファイル名
Dim sfina As String = "C:\sample1.mdb"

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina
CN.Open()
RS.Open("table1", CN, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

'データを修正
RS.Fields("Field1").Value = "修正データ1"
RS.Fields("Field2").Value = "修正データ2"
RS.Fields("Field3").Value = 789
RS.Update()
RS.Close()
CN.Close()

End Sub
End Class

Visual Basic 2008 Express Edition実践入門