datatableを変更前に状態に戻す RejectChanges vb.net

      2017/07/13

RejectChanges
テーブルを変更前の状態に戻す。

ソース
Imports System.Data.SqlClient

Public Class Form1
Dim cn As New SqlConnection(
"Data Source=(local)\SQL;" +
"Initial Catalog=ADO;" +
"Integrated Security=True;Pooling=False")
Dim table As New DataTable()
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand()
adapter.SelectCommand.CommandText = "select * from meibo "

adapter.SelectCommand.Connection = cn

adapter.Fill(table)
DataGridView1.DataSource = table

Dim dr As DataRow = table.NewRow
dr("number") = CInt(TextBox1.Text)
dr("name") = TextBox2.Text
dr("部署コード") = TextBox3.Text
table.Rows.Add(dr)

Dim table2 As New DataTable()
table2 = table.GetChanges(DataRowState.Added)

table2.RejectChanges()
table.RejectChanges()

DataGridView2.DataSource = table2

End Sub

End Class

実行するとtableに表示されるはずの追加した行がなくなってます。
table2はカラムは表示されて空のデータが表示されます。

PR



 - ADO.NET

Translate »