如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
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
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);
这么简单的问题?
---------------------------------------<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>