Imports System
Imports System.Xml
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.Data.SqlXml
Module Module1
Sub Main()
'테스트 실폐
FillMyDataSet()
End Sub
Sub ShowXmlToInIE(ByVal strPathToInIE As String)
Dim Ie As New SHDocVw.InternetExplorer()
Ie.Navigate(strPathToInIE)
Ie.Visible = True
End Sub
Public Sub FillMyDataSet()
Dim strPathToResults As String = "C:\MyResults.Xml"
Dim strPathToSchema As String = "C:\MySchema.xsd"
Dim strConn, strSQL As String
strConn = "Provider=SQLOLEDB;User ID=sa;Password=gatsol;Initial Catalog=NorthWind;Data Source=211.236.186.207;"
'strSQL = "Select Top 2 CustomerID, CompanyName From Customers For Xml Auto, Elements"
Dim cmd As New SqlXmlCommand(strConn)
cmd.SchemaPath = strPathToSchema
cmd.CommandText = "Orders[CustomerID='GROSR']"
cmd.CommandType = SqlXmlCommandType.XPath
Dim rdr As XmlReader = cmd.ExecuteXmlReader()
Dim xmlDoc As New XmlDocument()
xmlDoc.Load(rdr)
rdr.Close()
xmlDoc.Save(strPathToResults)
ShowXmlToInIE(strPathToResults)
End Sub
End Module
