GRAVAR VALORES EM XML COM SELECT DO SQL
Boa noite
preciso fazer um select na tabela de dados onde guardo as fotos, ai preciso que automaticamente seja gerada uma informação em um arquivo xml para que seja gerada minha galeria.
<photo>
imageurl=[Ô]endereço dentro da tabela[Ô]
<title>Image 1</title>
<description>This is a regular text description.</description>
</photo>
precisaria que a cada registro que ele encontrasse ele gerasse uma tag dessa dentro do xml com o endereço que fosse encontrado dentro da tabela do db...
obrigado
preciso fazer um select na tabela de dados onde guardo as fotos, ai preciso que automaticamente seja gerada uma informação em um arquivo xml para que seja gerada minha galeria.
<photo>
imageurl=[Ô]endereço dentro da tabela[Ô]
<title>Image 1</title>
<description>This is a regular text description.</description>
</photo>
precisaria que a cada registro que ele encontrasse ele gerasse uma tag dessa dentro do xml com o endereço que fosse encontrado dentro da tabela do db...
obrigado
corrigindo
<tiltviewergallery>
<photos>
<photo imageurl=[Ô]valor retirado do select sql[Ô] linkurl=[Ô]http://www.google.com[Ô]>
<title>Image 1</title>
<description>This is a regular text description.</description>
</photo>
</photos>
</tiltviewergallery>
gostaria que ele repetisse esse código varias x dentro de um arquivo ate completar os vários valores possÃveis do select
obrigado
<tiltviewergallery>
<photos>
<photo imageurl=[Ô]valor retirado do select sql[Ô] linkurl=[Ô]http://www.google.com[Ô]>
<title>Image 1</title>
<description>This is a regular text description.</description>
</photo>
</photos>
</tiltviewergallery>
gostaria que ele repetisse esse código varias x dentro de um arquivo ate completar os vários valores possÃveis do select
obrigado
o código que tenho ate agora e esse porem precisava que o reader fosse sendo feito varias vezes para fazer isto com todas as linhas que voltam na consulta
Dim writer As New XmlTextWriter([Ô]C:\TiltViewer-PRO\web\gallery.xml[Ô], Nothing)
Dim sql As String = [Ô]Select * From fotos where nome = @nome[Ô]
Dim conn As SqlCeConnection = New SqlCeConnection([Ô]Data Source=C:\Users\Andreas\Documents\Visual Studio 2010\Projects estetiltviewer estetiltviewer ilt.sdf[Ô])
Dim CMD As New SqlCeCommand(sql, conn)
Dim endereco As String
Dim comentario As String
CMD.Parameters.Add(New SqlCeParameter([Ô]@nome[Ô], TextBox1.Text))
conn.Open()
Dim Reader As SqlCeDataReader = CMD.ExecuteReader()
Reader.Read()
endereco = Reader.GetValue(0).ToString
comentario = Reader.GetValue(3).ToString
Reader.Close()
conn.Close()
writer.WriteStartElement([Ô]tiltviewergallery[Ô])
writer.WriteStartElement([Ô]photos[Ô])
writer.WriteStartElement([Ô]photo[Ô])
writer.WriteStartAttribute([Ô]imageurl[Ô])
writer.WriteString(endereco)
writer.WriteEndAttribute()
writer.WriteStartAttribute([Ô]linkurl[Ô])
writer.WriteEndAttribute()
writer.WriteStartElement([Ô]description[Ô])
writer.WriteString(comentario)
writer.WriteEndElement()
writer.Close()
Dim writer As New XmlTextWriter([Ô]C:\TiltViewer-PRO\web\gallery.xml[Ô], Nothing)
Dim sql As String = [Ô]Select * From fotos where nome = @nome[Ô]
Dim conn As SqlCeConnection = New SqlCeConnection([Ô]Data Source=C:\Users\Andreas\Documents\Visual Studio 2010\Projects estetiltviewer estetiltviewer ilt.sdf[Ô])
Dim CMD As New SqlCeCommand(sql, conn)
Dim endereco As String
Dim comentario As String
CMD.Parameters.Add(New SqlCeParameter([Ô]@nome[Ô], TextBox1.Text))
conn.Open()
Dim Reader As SqlCeDataReader = CMD.ExecuteReader()
Reader.Read()
endereco = Reader.GetValue(0).ToString
comentario = Reader.GetValue(3).ToString
Reader.Close()
conn.Close()
writer.WriteStartElement([Ô]tiltviewergallery[Ô])
writer.WriteStartElement([Ô]photos[Ô])
writer.WriteStartElement([Ô]photo[Ô])
writer.WriteStartAttribute([Ô]imageurl[Ô])
writer.WriteString(endereco)
writer.WriteEndAttribute()
writer.WriteStartAttribute([Ô]linkurl[Ô])
writer.WriteEndAttribute()
writer.WriteStartElement([Ô]description[Ô])
writer.WriteString(comentario)
writer.WriteEndElement()
writer.Close()
Tópico encerrado , respostas não são mais permitidas