How to get comma delimited xml?

[Rouven Hertenstein]

Hi,
the following (simple) vb.net-webservice works inherently very well. But I'm
in need to get comma delimited xml and I don't know how to modify?!

Could anyone help me, please.

Regards,
Rouven

<WebMethod()> Public Function GetResultsAsAdoXML() As String
Dim myAdoRs As ADODB.Recordset
Dim myAdoConnection As New ADODB.Connection
Dim mypersiststream As New ADODB.Stream
Dim myConnectionString As String = "driver={SQL Server};
Server=sql-server; Database=db; UID=sa; PW=;"
Dim mySelect As String = "SELECT * from sql-view"

myAdoConnection.ConnectionString = myConnectionString
myAdoConnection.Open()
myAdoRs = myAdoConnection.Execute(mySelect)
myAdoRs.Save(mypersiststream, ADODB.PersistFormatEnum.adPersistXML)
Return mypersiststream.ReadText
myAdoConnection.Close()

End Function

[Rouven Hertenstein]

agreed in the meantime...

"Rouven Hertenstein" wrote:

Hi,
the following (simple) vb.net-webservice works inherently very well. But I'm
in need to get comma delimited xml and I don't know how to modify?!

Could anyone help me, please.

Regards,
Rouven

<WebMethod()> Public Function GetResultsAsAdoXML() As String
Dim myAdoRs As ADODB.Recordset
Dim myAdoConnection As New ADODB.Connection
Dim mypersiststream As New ADODB.Stream
Dim myConnectionString As String = "driver={SQL Server};
Server=sql-server; Database=db; UID=sa; PW=;"
Dim mySelect As String = "SELECT * from sql-view"

myAdoConnection.ConnectionString = myConnectionString
myAdoConnection.Open()
myAdoRs = myAdoConnection.Execute(mySelect)
myAdoRs.Save(mypersiststream, ADODB.PersistFormatEnum.adPersistXML)
Return mypersiststream.ReadText
myAdoConnection.Close()

End Function

[Rouven Hertenstein]

"Rouven Hertenstein" wrote:

Hi,
the following (simple) vb.net-webservice works inherently very well. But I'm
in need to get comma delimited xml and I don't know how to modify?!

Could anyone help me, please.

Regards,
Rouven

<WebMethod()> Public Function GetResultsAsAdoXML() As String
Dim myAdoRs As ADODB.Recordset
Dim myAdoConnection As New ADODB.Connection
Dim mypersiststream As New ADODB.Stream
Dim myConnectionString As String = "driver={SQL Server};
Server=sql-server; Database=db; UID=sa; PW=;"
Dim mySelect As String = "SELECT * from sql-view"

myAdoConnection.ConnectionString = myConnectionString
myAdoConnection.Open()
myAdoRs = myAdoConnection.Execute(mySelect)
myAdoRs.Save(mypersiststream, ADODB.PersistFormatEnum.adPersistXML)
Return mypersiststream.ReadText
myAdoConnection.Close()

End Function