Public Class label_xml Inherits System.Web.UI.Page #Region " Web Form µðÀÚÀ̳ʿ¡¼­ »ý¼ºÇÑ ÄÚµå " 'ÀÌ È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection Me.DataSet11 = New label.DataSet1 CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit() ' 'OleDbDataAdapter1 ' Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1 Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Customers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("ContactName", "ContactName"), New System.Data.Common.DataColumnMapping("ContactTitle", "ContactTitle"), New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("Region", "Region"), New System.Data.Common.DataColumnMapping("PostalCode", "PostalCode"), New System.Data.Common.DataColumnMapping("Country", "Country"), New System.Data.Common.DataColumnMapping("Phone", "Phone"), New System.Data.Common.DataColumnMapping("Fax", "Fax")})}) ' 'OleDbSelectCommand1 ' Me.OleDbSelectCommand1.CommandText = "SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region," & _ " PostalCode, Country, Phone, Fax FROM Customers Where City like '%" & Request.QueryString("City").ToString & "%'" Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1 ' 'OleDbConnection1 ' Me.OleDbConnection1.ConnectionString = "User ID=sa;Tag with column collation when possible=False;Data Source=hwabong.cabsoftware.com;Pass" & _ "word=cab123;Initial Catalog=NWind;Use Procedure for Prepare=1;Auto Translate=Tru" & _ "e;Persist Security Info=True;Provider=""SQLOLEDB.1"";" ' 'DataSet11 ' Me.DataSet11.DataSetName = "DataSet1" Me.DataSet11.Locale = New System.Globalization.CultureInfo("ko-KR") CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit() End Sub Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection Protected WithEvents DataSet11 As label.DataSet1 'Âü°í: ´ÙÀ½ÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¼±¾ðÀº Web Form µðÀÚÀ̳ÊÀÇ Çʼö ¼±¾ðÀÔ´Ï´Ù. '»èÁ¦Çϰųª ¿Å±âÁö ¸¶½Ê½Ã¿À. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: ÀÌ ¸Þ¼­µå È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. 'ÄÚµå ÆíÁý±â¸¦ »ç¿ëÇÏ¿© ¼öÁ¤ÇÏÁö ¸¶½Ê½Ã¿À. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '¿©±â¿¡ »ç¿ëÀÚ Äڵ带 ¹èÄ¡ÇÏ¿© ÆäÀÌÁö¸¦ ÃʱâÈ­ÇÕ´Ï´Ù. Response.ContentEncoding = System.Text.Encoding.Default Dim Myds As DataSet Me.OleDbConnection1.Open() Myds = New DataSet("root") Me.OleDbDataAdapter1.Fill(Myds, "¹Þ´Â»ç¶÷") Response.Write("<?xml version='1.0' encoding='euc-kr'?>") Response.Write(Myds.GetXml()) Myds = Nothing Me.OleDbConnection1.Close() End Sub End Class