VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。
基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。
DataViewに格納されたテーブルに追加したレコードは、DataRowViewのEndEditメソッドが実行されるまでは、バッファに格納されたままです。DataRowViewのEndEditメソッドを実行する前であれば、CancelEditメソッドで変更を取り消すことができます。
手順
1)変数の宣言
2)接続文字列の作成
3)SELECT文の作成
4)SELECT用コマンドオブジェクトの作成
5)データアダプタの作成
6)データセットにデータを取得する
7)DataViewにDataSetのテーブルを連結する
8)レコードを追加できるようにする
9)レコードを追加する
10)レコードの追加を取り消す
Imports System.Data.OracleClient : :省略 : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '1)変数の宣言 Dim OraConn As OracleConnection = New OracleConnection Dim OraDA As OracleDataAdapter Dim dtSet As DataSet = New DataSet("EMP") Dim dtView As New DataView '2)接続文字列の作成 OraConn.ConnectionString = _ "user id=SCOTT;" & _ "password=TIGER;" & _ "Data Source=OracleServer" '3)SELECT文の作成 Dim strSelect As String strSelect = "SELECT * FROM EMP" '4)SELECT用コマンドオブジェクトの作成 Dim SelectCmd As New OracleCommand SelectCmd.Connection = OraConn SelectCmd.CommandText = strSelect '5)データアダプタの作成 OraDA = New OracleDataAdapter OraDA.SelectCommand = SelectCmd '6)データセットにデータを取得する OraDA.Fill(dtSet, "EMP_TBL") '7)DataViewにDataSetのテーブルを連結する dtView.Table = dtSet.Tables(0) '8)レコードを追加できるようにする dtView.AllowNew = True '9)レコードを追加する Dim dtRow As DataRowView dtRow = dtView.AddNew dtRow("EMPNO") = "94030" dtRow("ENAME") = "HIRO's.NET" dtRow("JOB") = "CLERK" '10)レコードの追加を取り消す dtRow.CancelEdit() End Sub