Public Class label_xml_reader 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 ' '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;Pass" & _ "word=cab123;Initial Catalog=NWind;Use Procedure for Prepare=1;Auto Translate=Tru" & _ "e;Persist Security Info=True;Provider=""SQLOLEDB.1"";Workstation ID=HWABONG;Use En" & _ "cryption for Data=False;Packet Size=4096" 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 'Âü°í: ´ÙÀ½ÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¼±¾ðÀº 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 Me.OleDbConnection1.Open() Dim myreader As OleDb.OleDbDataReader myreader = Me.OleDbSelectCommand1.ExecuteReader Response.Write("<?xml version='1.0' encoding='euc-kr'?>") Response.Write("<root>" & vbCrLf) While myreader.Read() Response.Write(" <¹Þ´Â»ç¶÷>" & vbCrLf) Response.Write(" <¿ìÆí¹øÈ£>" & myreader.Item("PostalCode") & "</¿ìÆí¹øÈ£>" & vbCrLf) Response.Write(" <ÁÖ¼Ò>" & myreader.Item("City") & " " & myreader.Item("Address") & "</ÁÖ¼Ò>" & vbCrLf) Response.Write(" <ȸ»ç¸í>" & myreader.Item("CompanyName") & "</ȸ»ç¸í>" & vbCrLf) Response.Write(" <´ã´çÀÚ¸í>" & myreader.Item("ContactName") & "</´ã´çÀÚ¸í>" & vbCrLf) Response.Write(" <´ã´çÀÚÁ÷Ã¥¸í>" & myreader.Item("ContactTitle") & "</´ã´çÀÚÁ÷Ã¥¸í>" & vbCrLf) Response.Write(" </¹Þ´Â»ç¶÷>" & vbCrLf) End While Response.Write("</root>") myreader.Close() Me.OleDbConnection1.Close() End Sub End Class