person.xml
<?xml version="1.0" encoding="gb2312"?>
<Persons>
<Person>
<Name>11</Name>
<Nick>gwd</Nick>
<Mobile>139XXXXXXXX</Mobile>
<Tel>XXXXXXXX</Tel>
<Email>xu1ping2@chinaren.com</Email>
<QQ>2222</QQ>
<Company>XXX</Company>
</Person>
<Person>
<Name>234</Name>
<Nick>JACK</Nick>
<Mobile>13xxxxx6</Mobile>
<Tel>0xxxxxx72</Tel>
<Email>yxz</Email>
<QQ>123123</QQ>
<Company></Company>
</Person>
<Person><Name>345</Name>
<Nick>345</Nick> <Mobile>345</Mobile>
<Tel>345</Tel>
<Email>345</Email>
<QQ>345</QQ>
<Company>345</Company>
</Person>
</Persons>
web.aspx
Imports System.data
Imports System.data.SqlClient
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
ds.ReadXml(Server.MapPath("persons.xml"))
DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ctr As String = "server=localhost;database=aa;uid= ;pwd= ;"
Dim conn As SqlConnection = New SqlConnection(ctr)
Dim cmd As New SqlCommand
cmd.Connection = conn
Dim ds As New DataSet
ds.ReadXml(Server.MapPath("persons.xml"))
Dim dt As DataTable = ds.Tables(0)
Dim i As Integer = ds.Tables(0).Rows.Count
Dim j As Integer
For j = 0 To i - 1
Dim dr As DataRow = dt.Rows(j)
Dim sqltext As String = "insert into person values(" + "'" + dr.Item("name") + "','" + dr.Item("nick") + "','" + dr.Item("mobile") + "','" + dr.Item("tel") + "','" + dr.Item("QQ") + "','" + dr.Item("company") + "')"
Response.Write(sqltext)
cmd.CommandText = sqltext
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Next
End Sub
End Class
大家是不是这样做的啊？ 不知道效率怎么样！
[返回] 计算机科学论坛 →
XML.ORG.CN讨论区 - XML技术 → 『 XML源码及示例(仅原创和转载) 』 → 求助：能否告知SQL SERVER 和 XML 在存储数据方面的问题
(订阅本版)
2006/2/15 22:35:00
新浪微博
求助：能否告知SQL SERVER 和 XML 在存储数据方面的问题
