HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2003の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2003 Tips > コントロール > DataView Tips メニュー

06.レコードを追加する

UPDATE:2004/05/13 

<< 前のTips  次のTips >>

 

　DataViewに格納されたテーブルにレコードを追加するには、DataViewのAddNewメソッドを実行します。ただし、DataViewの AllowNewプロパティがTrueになっていなければなりません。また、追加を確定するにはDataRowViewオブジェクトのEndEditメソッドを実行する必要があります。

手順
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.EndEdit()

End Sub