|
|
Postada em 10/07/2008 09:18 hs
Bom dia pessoal... eu criei um exportador de base de dados access para xml em vb 6 onde eu escolho o .mdb e o exportador atraves de um 'for' pega todos os dados da tabela desta base de dados e seus respectivos cabeçalhos e gera um arquivo XML.
Só que eu preciso que esse arquivo alimente um servidor web (imóveis ZAP) e para alimentar os meus campos e cabeçalhos devem atender os padrões desse "imóveis zap".
Aí vem a dúvida:
Como eu faço para convertar esses mesmos dados, mas de maneira que os campos e cabeçalhos possam já vir no padrão que o site exige?
Um forte abraço para vocês.
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
|
|
|
|
Postada em 10/07/2008 10:17 hs
Será que alguém pode me ajudar?
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
Fiuza
|
VIANA DO CASTELO
RJ - PORTUGAL
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2008 20:11 hs
Boas Alberto, Será que já obteve resposta para a sua pergunta ? Porque a minha duvida é igual. Tenho um ficheiro XSD que é o esquema que pretendo o XML, e tenho o ficehiro access MDB com varias tabelas que pretendo converter em XML, isto usando codigo VB. Vc me pode ajudar ? |
|
|
|
Danilo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/07/2008 15:27 hs
Dêem uma olhada no artigo abaixo, pode ser que ajude... |
|
|
|
|
|
Postada em 26/08/2008 16:01 hs
Bom... pessoal consegui... Obrigado FIUZA... por ter me lembrado desse tópico através de sua mensagem...
Segue o código abaixo, e o adequem as suas necessidades, é lógico... que necessitei de inserir condições... e uma porção de coisas de acordo com a necessidade da empresa... mas qualquer coisa postem aí ou me enviem um e-mail.
Private Sub XmlExportacao(Optional ByVal RecordName As String = "Imovel")
Screen.MousePointer = vbHourglass
Dim aConn As ADODB.Connection
Dim RS As ADODB.Recordset
' cria uma conexão ADO
Set aConn = New ADODB.Connection
aConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Text1.Text
' cria um recordset ADO
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM NOME_BASE_DADOS ", aConn, 2, 3
Dim f As Integer
Dim b As Integer
Dim oField As ADODB.Field
Dim Dt
' pega um identificador livre par ao arquivo e abre para gravacao
f = FreeFile
Open Text2.Text "NOME_DO_ARQUIVO_XML.xml" For Output As #f
' o inicio de um arquivo XML possui o plural dos registros do arquivo.
Print #f, "<?xml version='1.0' encoding='ISO-8859-1'?>"
Print #f, "<Carga xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlnsxsd ='http://www.w3.org/2001/XMLSchema' > "
Print #f, "<Imoveis>"
' percorre um laço por cada registro ate o fim do arquivo
While Not RS.EOF
' escreve uma tab XML para indicar que estamos no comeco de um novo registro
Print #f, " <" & RecordName & ">"
Print #f, " <ValorFixo>PARA VALOR FIXO É ASSIM</ValorFixo>"
Print #f, " <TAG_XML>" & RS("DIGITE_AQUI_O_NOME_CAMPO_BASE_DADOS") & "</TAG_XML>"
Print #f, " <Nome>" & RS("NOME") & "</Nome>"
Print #f, " <Endereco>" & RS("ENDERECO") & "</Endereco>"
Print #f, " <Idade>" & RS("IDADE") & "</Idade>"
.
.
.
Print #f, " <n>" & RS("n") & "</n>"
' fecha a tag para este registro
Print #f, " </" & RecordName & ">"
' vai para o proximo registro
RS.MoveNext
Wend
' encerra o arquivo xlm
Print #f, "</Imoveis> "
Print #f, "</Carga> "
' fecha o arquivo
Close #f
' fecha e libera memoria usada
RS.Close
Set RS = Nothing
' fecha e limpa conexao
aConn.Close
Set aConn = Nothing
Screen.MousePointer = vbDefault
End Sub
Gente qualquer coisa... só falar...
Um forte abraço a todos.
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
TÓPICO EDITADO
|
|
|
|
