如VB中:
Private Function RsToXml(ByVal objRs As ADODB.Recordset) As String
    Dim objstm As ADODB.Stream
    Set objstm = CreateObject("Adodb.Stream")
    objstm.open
    objstm.Type = adTypeText
    objstm.Position = 0
    objRs.save objstm, adPersistXML '
    RsToXml = objstm.ReadText
    objstm.Close
    Set objstm = Nothing
End Function

解决方案 »

  1.   

    string connsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db/xxxxxx.mdb");
            string adaptersql = "select * from xxxxx";
            OleDbConnection conn = new OleDbConnection(connsql);
            OleDbDataAdapter adapter = new OleDbDataAdapter(adaptersql, connsql);
            DataSet ds = new DataSet();
            adapter.Fill(ds, "SfInfo");
            string strxml="17345xml.xml";
            ds.WriteXml(Server.MapPath("xml/") + strxml);
      

  2.   

    weisunding(鼎鼎) ( ) 是对的。
    这么简单的问题?
      

  3.   

    能不能生成这种格式的。
    ---------------------------------------<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
    xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
    xmlns:rs='urn:schemas-microsoft-com:rowset'
    xmlns:z='#RowsetSchema'>
    <s:Schema id='RowsetSchema'>
    <s:ElementType name='row' content='eltOnly'>
    <s:AttributeType name='paper_no' rs:number='1' rs:writeunknown='true'>
    <s:datatype dt:type='int' dt:maxLength='4' rs:precision='10'
     rs:fixedlength='true' rs:maybenull='false'/>
    </s:AttributeType>
    <s:AttributeType name='vendor' rs:number='2' rs:writeunknown='true'>
    <s:datatype dt:type='string' rs:dbtype='str' dt:maxLength='50'
     rs:maybenull='false'/>
    </s:AttributeType> <s:extends type='rs:rowbase'/>
    </s:ElementType>
    </s:Schema>
    <rs:data>
    <z:row paper_no='56583' vendor='A0000001'/>
    <z:row paper_no='56583' vendor='A0000001'/>
    </rs:data>
    </xml>
      

  4.   

    楼上是schema和data 以其输出?DS.WriteXml("C:\\DDD.XML", System.Data.XmlWriteMode.WriteSchema);