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

Question

参看
http://www.csdn.net/Develop/read_article.asp?id=13753
，两端定义相同的格式即可

Answer 1

还有
http://www.csdn.net/Develop/read_article.asp?id=18011

Answer 2

http://developer.ccidnet.com/pub/disp/Article?columnID=340&articleID=37466&pageNO=1

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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