HIRO's.NETは http://hiros-dot.net へ引っ越しました。
このページの新しいURLは http://hiros-dot.net/VBNET2003/Control/DataSet/DataSet13.htm です。
ブックマークされている方はお手数ですが http://hiros-dot.net へ修正お願いいたします。

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

UPDATE:2004/06/28

13.DataSetにXMLデータを読み込む

　DatSetにXMLデータを読み込むには、DataSetオブジェクトのReadXmlメソッドを使用します。サンプルでは OpenFileDialogでユーザにXMLファイルを選択させ、読み込んだXMLデータをDataGridに表示するようにしています。管理人はこれをビルドしてXMLの簡易ビューアーとして使用しています。

C#はこちら

サンプル

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

    Dim dlgFile As New OpenFileDialog
    Dim dtSet As New DataSet

    dlgFile.Filter = "XMLファイル(*.xml)|*.xml"

    If dlgFile.ShowDialog = DialogResult.OK Then
        'ストリームを作成する
        Dim reader As IO.StreamReader = New     IO.StreamReader(dlgFile.FileName, _
            System.Text.Encoding.GetEncoding("Shift_Jis"))

        'データセットにXMLファイルを読み込む
        dtSet.ReadXml(reader)

        Dim dtTable As DataTable = dtSet.Tables(0)

        'DataGridに表示してみる
        DataGrid1.DataSource = dtTable
    End If

End Sub