vb.net 怎么生成XML过程中如果生成类似<TCS:>这样的节点

2013-09-13

vb.net 如何生成XML过程中如果生成类似TCS:***这样的节点？tcs:TcsLinkMantcs:Nameaaaaaaaaaaaa/tcs

vb.net 如何生成XML过程中如果生成类似<TCS:***>这样的节点？
<tcs:TcsLinkMan>
<tcs:Name>aaaaaaaaaaaa</tcs:Name>
<tcs:Department>text</tcs:Department>
<tcs:Duty>text</tcs:Duty>
<tcs:Telephone>text</tcs:Telephone>
<tcs:Mobile>text</tcs:Mobile>
<tcs:Fax>text</tcs:Fax>
<tcs:Address>text</tcs:Address>
<tcs:ZipCode>text</tcs:ZipCode>
<tcs:Email>text</tcs:Email>
<tcs:ImCode>text</tcs:ImCode>
<tcs:ImType>text</tcs:ImType>
</tcs:TcsLinkMan>

[解决办法]
指定namespace
[解决办法]

引用:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New SqlConnection()
        Dim cmd As New SqlCommand
        Dim rs As SqlDataReader
        conn.ConnectionString = "server=192.168.1.229;database ='test' ;user id =sa;password='sa'"
        conn.Open()
        cmd.CommandText = "select * from MessageHead "
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        rs = cmd.ExecuteReader
        While rs.Read
            'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim myTW As New XmlTextWriter(Application.ExecutablePath & "\..\dlsave.XML", System.Text.Encoding.UTF8)

            myTW.WriteStartDocument()
            myTW.Formatting = Formatting.Indented
            myTW.WriteStartElement("TCS101Message")
            myTW.WriteStartElement("MessageHead")
            myTW.WriteElementString("MessageType", Trim(rs("MessageType")))
            myTW.WriteElementString("MessageId", Trim(rs("MessageId")))
            myTW.WriteElementString("MessageTime", Trim(rs("MessageTime")))
            myTW.WriteElementString("SenderId", Trim(rs("SenderId")))
            myTW.WriteElementString("SenderAddress", Trim(rs("SenderAddress")))
            myTW.WriteElementString("ReceiverId", Trim(rs("ReceiverId")))
            myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
            myTW.WriteStartElement("MessageBody")
            myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
            myTW.WriteStartElement("TcsFlow201")
            myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
            myTW.WriteEndElement()
            myTW.WriteEndElement()
            myTW.WriteEndElement()
            myTW.WriteEndElement()
            myTW.WriteEndDocument()
            myTW.Close()
        End While
        rs.Close()
这是代码，能帮忙修改一下吗,NET不熟，第一次用XML，所以听不明白！

Dim doc As XmlDocument = New XmlDocument
        Call doc.AppendChild(doc.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")) 
 
        Dim root As XmlElement = doc.CreateElement("tcs:TcsLinkMan")

        Dim node1 As XmlElement = doc.CreateElement("tcs:Name")
        node1.InnerText = "aaaaaaaaaaaa"
        root.AppendChild(node1)

        Dim node2 As XmlElement = doc.CreateElement("tcs:Department")
        node2.InnerText = "text"
        root.AppendChild(node2)

        Dim node3 As XmlElement = doc.CreateElement("tcs:Duty")
        node3.InnerText = "text"
        root.AppendChild(node3)

        Dim node4 As XmlElement = doc.CreateElement("tcs:Telephone")
        node4.InnerText = "text"
        root.AppendChild(node4)

        Dim node5 As XmlElement = doc.CreateElement("tcs:Mobile")
        node5.InnerText = "text"
        root.AppendChild(node5)

        Dim node6 As XmlElement = doc.CreateElement("tcs:Fax")
        node6.InnerText = "text"
        root.AppendChild(node6)

        Dim node7 As XmlElement = doc.CreateElement("tcs:Address")
        node7.InnerText = "text"
        root.AppendChild(node7)

        Dim node8 As XmlElement = doc.CreateElement("tcs:ZipCode")
        node8.InnerText = "text"
        root.AppendChild(node8)

        Dim node9 As XmlElement = doc.CreateElement("tcs:Email")
        node9.InnerText = "text"
        root.AppendChild(node9)

        Dim node10 As XmlElement = doc.CreateElement("tcs:ImCode") 
 
        node10.InnerText = "text"
        root.AppendChild(node10)

        Dim node11 As XmlElement = doc.CreateElement("tcs:ImType")
        node11.InnerText = "text"
        root.AppendChild(node11)



        doc.AppendChild(root)
        doc.Save("linkMan.xml")

[解决办法]
http://msdn.microsoft.com/query/dev10.query?appId=Dev10IDEF1&l=ZH-CN&k=k(SYSTEM.XML.LINQ.XNAMESPACE);k(TargetFrameworkMoniker-%22.NETFRAMEWORK%2cVERSION%3dV4.0%22);k(DevLang-CSHARP)&rd=true

这里有相应的例子，你可以试试看。

热点排行

VB Dotnet

vb.net 怎么生成XML过程中如果生成类似<TCS:>这样的节点