DataSetの構造をXmlSchemaに変換する方法なのかも知れない

DataSet::WriteXmlSchema があるのと、XmlSchema.Read があるので、
メモリストリームに書いてバッファを取り出し読み込むということで、とりあえずできそうですが、どうなんだろう…。
どうなんだろうといいつつ、やってみました。

    Dim ds As System.Data.DataSet

    (データセットの作成は省略)

    Dim stream1 As New System.IO.MemoryStream()
    ds.WriteXmlSchema(stream1)
    stream1.Flush()

    Dim stream2 As New System.IO.MemoryStream(stream1.GetBuffer(), False)
    Dim schema As System.Xml.Schema.XmlSchema = System.Xml.Schema.XmlSchema.Read(stream2, Nothing)
    stream1.Close()
    stream2.Close()

本当にこれでいいのかな…。