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 > コントロール > DataSet Tips メニュー

14.DataSetのデータをXMLに書き込む

UPDATE:2004/06/29 

<< 前のTips  次のTips >>

 

 DataSetのデータをXMLに書き込むにはDatSetオブジェクトのWriteXmlメソッドを使用します。

手順
1)変数の宣言
2)データセットにテーブルを追加する
3)テーブルにフィールドを追加する
4)フィールドに主キーを設定する
5)テーブルにレコードを追加する
6)ストリームを作成する
7)DataSetのデータをXMLに書き込む

手順1)-5)まではデータを作り出している部分なのでDataSetにデータがある場合は省略して下さい。実際に必要な部分は6),7)です。

 
サンプル
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    '1)変数の宣言
    Dim dtSet As DataSet = New DataSet("アドレステーブル")
    Dim dtTable As DataTable
    Dim PrimaryColumn As DataColumn
    Dim dtRow As DataRow

    '2)データセットにテーブルを追加する
    'ADDRESS_TBLというテーブルを作成します
    dtTable = dtSet.Tables.Add("ADDRESS_TBL")

    '3)テーブルにフィールドを追加する
    '.Add("フィールド名", フィールドの型)で追加します
    PrimaryColumn = dtTable.Columns.Add("No", Type.GetType("System.Int32"))
    dtTable.Columns.Add("ZIPCODE", Type.GetType("System.String"))
    dtTable.Columns.Add("ADDRESS", Type.GetType("System.String"))
    dtTable.Columns.Add("PHONE", Type.GetType("System.String"))
    dtTable.Columns.Add("E-MAIL", Type.GetType("System.String"))

    '4)フィールドに主キーを設定します
    dtTable.PrimaryKey = New DataColumn() { PrimaryColumn }

    '5)テーブルにデータを追加する
    dtRow = dtTable.NewRow()
    dtRow("No") = "1"
    dtRow("ZIPCODE") = "123-4567"
    dtRow("ADDRESS") = "東京都のどこか"
    dtRow("PHONE") = "0120-111-2222"
    dtRow("E-MAIL") = "hoge@mail.co.jp"
    dtTable.Rows.Add(dtRow)

    '確認のためデータグリッドに表示
    DataGrid1.DataSource = dtTable

    Dim SW As StreamWriter
    '6)ストリームをシフトJISエンコーディングで作成
    SW = New StreamWriter("C:\Work\Test.xml", False, _
        System.Text.Encoding.GetEncoding("Shift_Jis"))
    '7)DataSetのデータをXMLに書き込む
    dtSet.WriteXml(SW)

End Sub
 

<< 前のTips  次のTips >>