想要使用xml在不同的数据库之间传输交换数据，有没有相关资料？

tobato 2003-06-17 11:52:47

想要使用xml在不同的数据库之间传输交换数据，有没有相关资料？
求教在数据库的表映射到xml模型的时候，使用什么方法比较好？
在数据库之间交换数据，目前一般是使用.txt文件，然后把信息
都排成一行一行的，中间使用逗号或者Tab或者其他符合来进行分隔。
xml的出现使我们可以尝试使用新的数据传输标准来传递数据，
欢迎做过数据传输或xml的兄弟来一起讨论一下。

...全文

51 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

tobato 2003-07-16

打赏
举报

天哪！xml简直就是性能杀手！
5000个人的信息有7M，再解析回去对内存和cpu的消耗简直是夸张！

tobato 2003-06-21

打赏
举报

Xml有个问题，数据太大了，传输时的时间增加了很多，
怎样进行数据的压缩？

soulroom 2003-06-20

打赏
举报

你可以用DataSet在服务器端和客户端用Xml进行传输，
DataSet.ReadXmlSchema();读取数据结构
DataSet.ReadXml();读取数据
DataSet.GetXml();获取数据结构
DataSet.GetXmlSchema();获取数据

tobato 2003-06-19

打赏
举报

都参考了，但是对将xml表示的对象映射到数据库中还是有点迷糊，
如果需要传输几个表的话，如何表示表间的外键，主键关系？如何处理数据的类型？

online 2003-06-18

打赏
举报

这是vb+asp的，你看看
在远程服务器写一个ASP文件接收数据如：

<%

If Request.ServerVariables("REQUEST_METHOD")="POST" Then
ON ERROR RESUME NEXT
Dim AttendArray
Dim ResStr
Set xmldom=Server.CreateObject("Microsoft.XMLDOM")
Set Obj=Server.CreateObject("SAS.SHIFT")
xmldom.load(Request)
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open xmldom
AttendArray=Rs.GetRows
If IsArray(AttendArray) Then
ResStr=Obj.AddAttendRecord(AttendArray)
End If
If Err.number =0 Then
Response.Write "OK"
Set xmlResult=Server.CreateObject("Microsoft.XMLDOM")
xmlResult.save(Response)
Set xmlResult=Nothing
Else
Response.Write "NO"
Set xmlResult=Server.CreateObject("Microsoft.XMLDOM")
xmlResult.save(Response)
Set xmlResult=Nothing
End If
End If
%>

客户端这样写的

Dim Url As String

Url = "http://" & ServerName & "/shift/AddAttendRecord.asp"

Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Strm As ADODB.Stream
Dim XMLHttp As XMLHTTPRequest
Dim ObjSas As InstantPassCls.clsSAS
Dim AttendArray As Variant
Dim i As Integer
Set rs = New ADODB.Recordset
Set ObjSas = New InstantPassCls.clsSAS
AttendArray = ObjSas.GetUploadRecord

If IsArray(AttendArray) Then

With rs.Fields
.Append "StaffNo", adBSTR
.Append "Time", adBSTR
.Append "AttendType", adBSTR
End With
rs.Open
With rs
For i = 0 To UBound(AttendArray, 2)
.AddNew
.Fields("StaffNO") = AttendArray(0, i)
.Fields("Time") = AttendArray(1, i)
.Fields("AttendType") = AttendArray(2, i)
.Update
Next i
End With

Set Strm = New ADODB.Stream
rs.Save Strm, adPersistXML
Set XMLHttp = New XMLHTTPRequest
XMLHttp.Open "POST", Url, False
XMLHttp.send Strm.ReadText

If Err.Number = 0 Then
UPloadData = XMLHttp.responseText
Sleep (10000)
'If Left(UPloadData, 2) = "NO" Then
If InStr(1, UPloadData, "NO") > 0 Then
UPloadData = LoadResString(5038)
WriteLog 4, "Upload data failed"
End If
'If Left(UPloadData, 2) = "OK" Then
If InStr(1, UPloadData, "OK") > 0 Then
ObjSas.MarkRecord
WriteLog 4, "Upload data success"
UPloadData = LoadResString(5037)
End If
Else
UPloadData = LoadResString(5036)
WriteLog 4, "Upload data failed"
End If

Else
UPloadData = LoadResString(5035)
End If

Set ObjSas = Nothing
Set rs = Nothing

PoorAngel 2003-06-18