以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML源码及示例(仅原创和转载) 』  (http://bbs.xml.org.cn/list.asp?boardid=32)
----  求助:能否告知SQL SERVER 和 XML 在存储数据方面的问题  (http://bbs.xml.org.cn/dispbbs.asp?boardid=32&rootid=&id=27308)


--  作者:平风静浪
--  发布时间:2/15/2006 10:35:00 PM

--  求助:能否告知SQL SERVER 和 XML 在存储数据方面的问题
本人第一次用。NET结合XML开发系统!
能否告知SQL SERVER 和 XML 在存储数据方面 的 各自好处!

现有一个资源库的系统,有大量数据要存储,怎么处理比较好啊!
C/S传递的XML数据,是否必须在IIS中配置SQL XML的支持!

能否给个 将 由客户端 传回的XML数据写入数据库和 重数据库读出数据反馈回去的例子啊!(最好是。NET版本的!)

谢谢各位大虾给指点指点!


--  作者:平风静浪
--  发布时间:2/16/2006 7:02:00 PM

--  
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

大家是不是这样做的啊?  不知道效率怎么样!


W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
46.875ms