Hi,
I'm new to webservices. I have created a small program to generate my XML
using webservices that works beautifully. Unfortunately I am unable to get
the XML output to be formatted in the necessary format. I've tried multiple
ways, including myXMLwriter. Any help would be greatly appreciated.
Thanks!
Desired Output (interfaces w/another program that I cannot change)
<?xml version="1.0" encoding="UTF-8" ?>
<datapacket>
<row PkFamily="1" Name="Sausage" />
<row PkFamily="2" Name="Sausages, salamis and fuet" />
<row PkFamily="3" Name="Stuffed pork loin" />
<row PkFamily="4" Name="Yorks: Pork hams and shoulders" />
<row PkFamily="5" Name="Poultry" />
</datapacket>
Result of my code:
<?xml version="1.0" encoding="utf-8" ?>
<string xmlns="http://tri-mgroup.com/MyDataService/Service1">ÿþ<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='pkFamily' rs:number='1' rs:maydefer='true'
rs:writeunknown='true'> <s:datatype dt:type='int' dt:maxLength='4'
rs:precision='10' rs:fixedlength='true'/> </s:AttributeType> <s:AttributeType
name='name' rs:number='2' rs:nullable='true' rs:maydefer='true'
rs:writeunknown='true'> <s:datatype dt:type='string' dt:maxLength='50'/>
</s:AttributeType> <s:extends type='rs:rowbase'/> </s:ElementType>
</s:Schema> <rs:data> <z:row pkFamily='1' name='Sausage'/> <z:row
pkFamily='2' name='Sausages, salamis and fuet'/> <z:row pkFamily='3'
name='Stuffed pork loin'/> <z:row pkFamily='4' name='Yorks: Pork hams and
shoulders'/> <z:row pkFamily='5' name='Poultry'/> </rs:data> </xml></string>
Below is the code:
<WebMethod()> Public Function GetFamilyXML() As String
Dim myAdoRs As ADODB.Recordset
Dim myAdoConnection As New ADODB.Connection
Dim mypersiststream As New ADODB.Stream
Dim bLoaded As Boolean
Dim Result As String
Dim myConnectionString As String =
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
"C:\Program Files\Microsoft Office\Office10\Samples\catalog.mdb"
Dim mySelect As String = "SELECT family.pkFamily, family.name from
[family]"
myAdoConnection.ConnectionString = myConnectionString
myAdoConnection.Open()
myAdoRs = myAdoConnection.Execute(mySelect)
mypersiststream.Charset() = "iso8859-1"
mypersiststream.Open()
myAdoRs.Save(mypersiststream, ADODB.PersistFormatEnum.adPersistXML)
Return mypersiststream.ReadText
myAdoRs.Close()
End Function